?? ly_save.asp
字號:
<%
if request("name")="" then
response.write "<br><br><br><div align='center'>錯誤提示:未輸入名字!</div>"
response.end
end if
if request("content")="" then
response.write "<br><br><br><div align='center'>錯誤提示:未輸入內容,姓名與留言反饋內容為必須填寫項目!</div>"
response.end
end if
if Len(request.form("content"))>800 then
response.write "<br><br><br><div align='center'>錯誤提示:每條留言反饋的內容不能大于800字!</div><br> <div align='center'><a href=# onclick='history.back()'>返回修改</a></div>"
response.end
end if
%>
<!--#include file=include/conn.asp-->
<!--#include file=include/char.inc-->
<%dim sql2
dim rs2
sql2="select * from admin"
Set rs2= Server.CreateObject("ADODB.Recordset")
rs2.open sql2,conn,1,1
%>
<%
fid = 1
dim email
dim name
dim tel
dim content
dim sql
dim rs
if request("tel")="tel" then
tel=""
else
tel=htmlencode2(request("tel"))
end if
if request("email")="E-mail" then
email=""
else
email=htmlencode2(request("email"))
end if
content=htmlencode2(request("content"))
name=htmlencode2(request("name"))
ip = Request.servervariables("REMOTE_ADDR")
set rs=server.createobject("adodb.recordset")
sql="select * from guestbook "
rs.open sql,conn,1,3
rs.addnew
rs("content")=content
rs("name")=name
rs("email")=email
rs("tel")=tel
rs("ip")=ip
rs("sh")="0"
rs.update
rs.close
conn.close
set conn=nothing
response.write "<br><br><br><div align='center'><p align='center'>您的留言反饋內容已經成功提交,我會及時的給您回復,謝謝您的支持!</p></div>"
response.write "<br><div align='center'>系統2秒鐘后將自動返回到上一頁,您也可以 <a href=index.asp>點擊這里返回</a></div>"
response.write "<meta http-equiv='refresh' content='2; url=liuyan.asp'>"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -