<%
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>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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秒鐘后將自動返回到上一頁，您也可以&nbsp;&nbsp;<a href=index.asp>點擊這里返回</a></div>"
   response.write "<meta http-equiv='refresh' content='2; url=liuyan.asp'>"
%>