searchlist_class.asp

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

<!--#include file="conn.asp"-->
<%
c=request("c")
t=request("t")
t=replace(t,"or","")
t=replace(t,"'","")
t=replace(t," ","")
t=replace(t,"　","")

Set rs= Server.CreateObject("adodb.recordset")
if c=1 then
Rs.open "select * from "&prefix&"booklist where  booktitle like '%"&t&"%'" ,conn,1,1
elseif c=0 then
Rs.open "select * from "&prefix&"booklist  where bookwriter like '%"&t&"%'" ,conn,1,1
else
Rs.open "select * from "&prefix&"booklist  where bookrole like '%"&t&"%'" ,conn,1,1
end if
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
if rs.eof then
list_page="暂时找不到您需要的电子书!"
else
while not rs.eof and n<=rs.pagesize 
b_state=array("连载","全本","其他","其他")
list_page=list_page&"<a href=""show.asp?bid="&rs("id")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&replace(rs("booktitle"),"&","&amp;")&"/"&replace(rs("bookwriter"),"&","&amp;")&"/"&b_state(rs("bookstate"))&"</a><br/>"


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=""searchlist.asp?t="&t&"&amp;c="&c&"&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=""searchlist.asp?t="&t&"&amp;c="&c&"&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=""searchlist.asp?t="&t&"&amp;c="&c&"&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=""searchlist.asp?t="&t&"&amp;c="&c&"&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=""searchlist.asp?t="&t&"&amp;c="&c&"&amp;page="&tatalpages&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">最后页</a><br/>"
else
end if
end if
end if
rs.close


%>