gbookchk.asp

来自「信息管理系统 管理页面:admin/index.asp 用户和密码都是adm」· ASP 代码 · 共 34 行

<!--#include file="conn.asp"-->
<!--#include file="usercookies.asp"-->
<%
dim rs,sql,reg1,ses
reg1=request.cookies("ijob")("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("ijob")("username")
rs("lx")=trim(request("gbook"))
rs("gbook1")=trim(request("memo"))
rs("fbsj")=now()
rs.update
Response.cookies("ijob")("reg1")=now()
rs.close
set rs=nothing
closedb
response.write "<li>留言成功，需要管理员回复后才可以显示在网站上！"
response.write "<meta http-equiv=refresh content=""3;URL=gbook.asp"">"
%>