<% '---------------------------------------------------------------------- '转发时请保留此声明信息,这段声明不并会影响你的速度! '******************* 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
<% if rs.eof and rs.bof then response.write "" else do while not rs.eof %> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop end if %>
分 类 书 名 作 者 时 间
对不起,没有您要查询的信息
<%=rs("a.title")%> " target="_blank"><%=replace(rs("b.title"),""&q&"",""&q&"")%> <%= rs("zzname") %> <%= formatdatetime(rs("addtime"),2) %>
<% 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 "
" end function %>