comment_class.asp

起点9 V2.0小说整站系统 介绍： 1、 采用企业级标准应用三层架构

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


Set rs= Server.CreateObject("adodb.recordset")
Rs.open "select * from "&prefix&"bookcomment where bookid="&bid&" " ,conn,1,1
if rs.eof then
list_page="暂时没有评论!<br/>"
else
rs.pagesize=10 '定义一页显示的记录数目 
tatalrecord=rs.recordcount '获取记录总数目 
tatalpages=rs.pagecount '获取分页的数目 
rs.movefirst 
nowpage=request("page")
if nowpage&"x"="x" then '处理页码为空时的情况 
nowpage=1 
else 
nowpage=cint(nowpage) '将页码转换成数字型 
end if
if nowpage>tatalpages then
nowpage=tatalpages
end if
rs.absolutepage=nowpage
n=1

i=0
while not rs.eof and n<=rs.pagesize

list_page=list_page&"["&tatalrecord-(nowpage-1)*10-i&"楼]"&rs("username")&":"&rs("bookcomment")&" ["&month(rs("bookcommenttime"))&"-"&day(rs("bookcommenttime"))&","&hour(rs("bookcommenttime"))&":"&minute(rs("bookcommenttime"))&"]<br/>"
i=i+1

n=n+1 
rs.movenext '显示页面的数据 
wend 
list_page=list_page&"共"&tatalpages&"页 当前为:"&nowpage&"页<br/>"
list_page=list_page&"跳至<input type=""text"" name=""gonum"" size=""3"" value=""1"" maxlength=""4"" format=""*N""/>"
list_page=list_page&"<a href=""comment.asp?bid="&bid&"&amp;page=$(gonum)&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">GO&gt;&gt;</a><br />"
if nowpage<>1 then
list_page=list_page&"<a href=""comment.asp?bid="&bid&"&amp;page=1&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">首页</a> "
else 
end if 
if nowpage>1 then
list_page=list_page&"<a href=""comment.asp?bid="&bid&"&amp;page="&nowpage-1&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">上一页</a> "
else
end if
if nowpage < tatalpages then
list_page=list_page&"<a href=""comment.asp?bid="&bid&"&amp;page="&nowpage+1&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">下一页</a>"
else
end if

if nowpage<>tatalpages then
list_page=list_page&" <a href=""comment.asp?bid="&bid&"&amp;page="&tatalpages&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">最后页</a><br/>"
else
end if
end if
rs.close




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

login_page="<br/><input type=""text"" name=""CommentType""/><br /><anchor><go method=""post"" accept-charset=""utf-8"" href=""CommentSave.asp?bid="&bid&"&amp;uid="&uid&"&amp;ups="&ups&" ""><postfield name=""CommentType"" value=""$(CommentType)"" /><postfield name=""action"" value=""save"" /></go>发表评论</anchor><br/>"

else
login_page="<br/>"
login_page=login_page&"帐号:<input type=""text"" size=""10"" name=""username""/><br />"
login_page=login_page&"密码:<input type=""text"" size=""10"" name=""userpass""/><br />"
login_page=login_page&"<anchor title=""登陆"">登陆<go method=""post"" href=""Logincheck.asp?did="&bid&"&amp;pnum="&pnum&"""><postfield name=""action"" value=""login"" /><postfield name=""username"" value=""$username"" /><postfield name=""userpass"" value=""$userpass"" /></go></anchor> <a href=""reg.asp?pnum="&pnum&""">注册</a><br/>"
end if




















%>