bookcoll_class.asp

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

<!--#include file="conn.asp"-->
<%
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&"userbooksave where userid="&uid&" and bookid="&bid&""
rs1.open sql1,conn,1,3
if rs1.eof then
rs1.addnew
rs1("userid")=uid
rs1("bookid")=bid
rs1.update
list_page="收藏成功!<br/>"
else
list_page="已存在书架!<br/>"
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?bid="&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


%>