gbookchk.asp

信息类网站的不错选择

<!--#include file="conn1.asp"-->
<!--#include file="config.asp"-->
<%
dim rs,sql,reg1,ses,nm,memo,name,lx,namelx

name=trim(request("ausername"))
memo=trim(request("memo"))
nm=request("nm")
lx=request("lx")


if nm<>"on" then

if request.cookies("cnmai")("username")="" or request.cookies("cnmai")("domain")=""  then 
response.write "<br>"
response.write "<li>你还没有登陆！"
response.write "<meta http-equiv=refresh content=""2;URL=login.asp"">"
response.end
end if
if name<>request.cookies("cnmai")("username")  then
response.write "<li>你的用户名填写不正确，请重新填写！"
response.end
end if
namelx=1
else  namelx=0
end if




reg1=request.cookies("cnmai")("reg1")
ses=DateDiff("s",reg1,now())
if ses<60 then
response.write "<li>你的留言间隔是60秒，请等会再次发布！"
response.end
end if
if len(name)<1  then
response.write "<li>请填写留言者姓名！"
response.end
end if


if len(memo)>100 then
response.write "<li>留言内容太多，请简单填写！"
response.end
end if
if len(memo)<1 then
response.write "<li>你没有填写留言内容！"
response.end
end if




set rs=server.createobject("adodb.recordset")
sql = "select * from gbook order by fbsj desc"
rs.open sql,conn,1,3
rs.addnew

rs("username")=name
rs("namelx")=namelx
rs("lx")=lx
rs("gbook1")=memo
rs("fbsj")=now()

rs.update
Response.cookies("cnmai")("reg1")=now()
rs.close
set rs=nothing
closedb
response.write "<li>留言成功，需要管理员回复后才可以显示在网站上！"
response.write "<meta http-equiv=refresh content=""3;URL=gbook.asp"">"
%>