bookcase_class.asp

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

<!--#include file="conn.asp"-->
<%
uid=request("uid")
ups=request("ups")
bid=request("bid")
did=request("did")
if did>0 then
Conn.execute("delete from "&prefix&"userbooksave where id="&did&" ")
end if
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&"userbooksave where userid="&uid&" "
rs1.open sql1,conn,1,1
if not rs1.eof then
do while not rs1.eof
set rs2=server.CreateObject("ADODB.RecordSet")
sql2="select * from "&prefix&"booklist where id="&rs1("bookid")&" "
rs2.open sql2,conn,1,1
if not rs2.eof then
list_page=list_page&"<a href=""bookcase.asp?did="&rs1("id")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">[下架]</a>"
list_page=list_page&" <a href=""show.asp?bid="&rs1("bookid")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&rs2("booktitle")&"</a><br/>"
list_page=list_page&"书签:"
else
list_page="收藏书籍已被删除!"
end if
if rs1("bookmark")<>"" then
set rs3=server.CreateObject("ADODB.RecordSet")
sql3="select * from "&prefix&"bookchapter where id="&rs1("bookmark")&" "
rs3.open sql3,conn,1,1
if not rs3.eof then
list_page=list_page&"<a href=""chapter.asp?cid="&rs1("bookmark")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&rs3("booktexttitle")&"</a><br/>"
else
end if
else
list_page=list_page&"<br/>"
end if
list_page=list_page&"最新:<a href=""chapter.asp?cid="&rs2("bookupdateid")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&rs2("bookupdatetitle")&"</a><br/>"



rs1.movenext
loop





else
list_page="书架是空的!"
end if






else
list_page="<br/>"
list_page=list_page&"帐号:<input type=""text"" size=""10"" name=""username""/><br />"
list_page=list_page&"密码:<input type=""text"" size=""10"" name=""userpass""/><br />"
list_page=list_page&"<anchor title=""登陆"">登陆<go method=""post"" href=""Logincheck.asp?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



%>