commentsave_class.asp

来自「起点9 V2.0小说整站系统 介绍： 1、 采用企业级标准应用三层架构」· ASP 代码 · 共 48 行

<!--#include file="conn.asp"-->
<%
uid=request("uid")
ups=request("ups")
bid=request("bid")

set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from "&prefix&"userpro where id="&uid&" and userpass='"&ups&"'"
rs.open sql,conn,1,1
if not rs.eof then
set rs1=server.CreateObject("ADODB.RecordSet")
sql1="select * from "&prefix&"bookcomment where userid="&uid&" order by bookcommenttime desc"
rs1.open sql1,conn,1,1
if rs1.eof then
bookcommenttime="2008-6-4 下午 06:07:00"
else
bookcommenttime=rs1("bookcommenttime")
end if
if DateDiff("s",bookcommenttime,now())>45 then

set rs2=server.CreateObject("ADODB.RecordSet")
sql2="select * from "&prefix&"booklist where id="&bid&" "
rs2.open sql2,conn,1,1
booktitle=rs2("booktitle")
rs2.close
set rs3=server.CreateObject("ADODB.RecordSet")
sql3="select * from "&prefix&"bookcomment "
rs3.open sql3,conn,1,3
rs3.addnew
rs3("bookid")=bid
rs3("booktitle")=booktitle
rs3("userid")=uid
rs3("username")=rs("busername")
rs3("bookcomment")=bookcomment
rs3("bookcommenttime")=now()
rs3.update
rs3.close

list_page="发表成功!<a href=""comment.asp?bid="&bid&"&amp;uid="&uid&"&amp;ups="&ups&" "">返回</a>"

else

list_page="2次发表评论间隔要大于15秒!<a href=""comment.asp?bid="&bid&"&amp;uid="&uid&"&amp;ups="&ups&" "">返回</a>"
end if
end if


%>