%
'----------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'******************* zj0579在线中文书库 ********************************
'修改者:余春秋
'电子邮件:zj0579@163.com
'网站:http://www.zj0579.net
'qq:4193244
'**********************************************************************
'----------------------------------------------------------------------
%>
<%
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim dyname
dyname="book_type.asp" '当页文件dyname=news.asp
const MaxPerPage=20
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim rs
dim sql
atypeid=Trim(Request.QueryString("atypeid"))
search1=Trim(Request("search1"))
q=Trim(request("q"))
set rs=server.createobject("adodb.recordset")
sql=sql &" select a.title,b.title,b.btypeid,b.zzname,b.addtime,b.atypeid from ycq_btype b,ycq_atype a where b.atypeid=a.atypeid and b.atypeid="&atypeid&" "
if search1="1" then
sql=sql &" and b.title like '%"&q&"%'"
end if
if search1="2" then
sql=sql &" and b.zzname like '%"&q&"%'"
end if
sql=sql &" order by b.addtime desc"
'Response.Write(sql)
rs.open sql,conn,1,1
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,dyname '当页文件dyname=news.asp
else
if (currentPage-1)*MaxPerPage
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end if
%>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "
"
response.write "
"
if CurrentPage<2 then
response.write " 共"&totalnumber&"条信息/每页显示"&MaxPerPage&"条 首页 上一页 "
else
response.write " 共"&totalnumber&"篇信息/每页显示"&MaxPerPage&"条 首页 "
response.write "上一页 "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write ""
response.write "下一页尾页"
end if
response.write " "&CurrentPage&"/"&n&"页 "
response.write ""
response.write "