user_gbookchk.asp

一套现成的分类信息网站发布系统

<!--#include file="conn1.asp"-->
<!--#include file="config.asp"-->
<%
dim rs,sql,reg1,ses
reg1=request.cookies("cnmai")("reg1")
ses=DateDiff("s",reg1,now())
if ses<60 then
response.write "<li>你的留言间隔是60秒，请等会再次发布！"
response.end
end if
if len(request("memo"))>100 then
response.write "<li>留言内容太多，请简单填写！"
response.end
end if
if len(request("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")=request.cookies("cnmai")("username")
rs("lx")=trim(request("gbook"))
rs("gbook1")=trim(request("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=user_gbook.asp"">"
%>