gbookchk.asp

二手程序,可是实现会员的等级功能管理,会员可以有上船图片,给信息标题加颜色功能!

<!--#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"">"
%>