<%=Application("titles")%>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%=Application("titles")%> > <% Dim TotalPages '总记录数 Dim CurrentPage Dim MaxPerPage '每页记录数 MaxPerPage = 48 page = Request.QueryString("Page") dim types types=trim(request("types")) types2=trim(request("types2")) R=trim(request("R")) T=trim(request("T")) bt=trim(request("bt")) set rstt=server.CreateObject("ADODB.RecordSet") sqlt="select * from downtype where (ts like '"&types&"%' ) and tj=2 " 'response.write sqlt&"
" //response.end rstt.open sqlt,conn,1,1 set rs=server.createobject("adodb.recordset") if T<>"" then sql="SELECT pic,cxn,id,hits from down where tid="&types2&" and show=1 order by id desc" elseif R<>"" then sql="SELECT pic,cxn,id,hits from down where tid="&types2&" order by hits desc" else if trim(request("types2"))="" then sql="SELECT pic,cxn,id,hits from down where cd='"&split(rstt("tname"),"|")(0)&"' order by id desc" else sql="SELECT pic,cxn,id,hits from down where tid="&types2&" order by id desc" end if end if rs.open sql,conn,1,1 %> <% if rs.eof then response.write "

没有相关数据

" else totalPut = rs.recordcount//总页数 rs.pagesize = MaxPerPage CurrentPage = 0 If Trim(page) <> "" then CurrentPage = CLng(request("page")) If CurrentPage > rs.PageCount then CurrentPage = rs.PageCount End If Else CurrentPage = 1 End If if not rs.eof then rs.MoveFirst totalPut = rs.recordcount if CurrentPage<>1 then if (CurrentPage - 1)*MaxPerPage < totalPut then rs.move(CurrentPage - 1)*MaxPerPage end if end if dim n,k if (totalPut mod MaxPerPage)=0 then n = totalPut \ MaxPerPage else n = totalPut \ MaxPerPage + 1 end if end if i = 0 '---------------------分页中部数字分页---------------------- Dim x Dim Num,sb Num="" Num=10 '显示页数 CurrentIndex=(page\num) if CurrentIndex=0 then BeginPage=1 EndPage=Num else BeginPage=(-1) EndPage=Num end if '------------------------------------------------------ '分页显示过程 sub pageshow() if CurrentPage>1 then Response.write " " Response.write " " else Response.write "" Response.write "" end if p="" For p = BeginPage to EndPage if CurrentIndex*num +p > n then exit for Response.Write "" if page-1=(CurrentIndex*Num+p-1) then Response.Write "" & CurrentIndex*num +p & "" else Response.Write "" & CurrentIndex*num +p & "" end if Response.Write " | " Next if CurrentPage" Response.write "" Response.write "" Response.write "" else Response.write "" Response.write "" end if Response.write "" end sub //分页显示过程结束 %>

本类导航←

<% types=trim(request("types")) //response.write types set rst=server.CreateObject("ADODB.RecordSet") sqlt="select * from downtype where (ts like '"&types&"%' ) and tj=2 order by id desc " //response.write sqlt //response.end rst.open sqlt,conn,1,1 do while NOT rst.EOF set rsc=conn.execute("SELECT count(*) as cc from down where tid="&split(rst("ts"),",")(rst("tj")-1)&" ") %> <% rst.movenext loop rst.close:set rst=nothing rsc.close:set rsc=nothing %>

&types2=<%=split(rst("ts"),",")(1)%>" class="hei_12"> →<%=split(rst("tname"),"|")(rst("tj")-1)%>(共<%=rsc("cc")%>个)