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>&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'>"
%>