最新专题

阅读排行

推荐阅读

<%if not isempty(request("page")) then CurrentPage=cint(request("page")) else CurrentPage=1 end if MaxPerPage=5 '###每页显示数 if not isnumeric(request("page")) and request("page")<>"" then response.write"错误的系统参数!请输入整数" response.end end if set rs=server.createobject("adodb.recordset") sql="select * from zt order by ztid desc" rs.open sql,conn,1,1 strskoftcount=rs("ztcount") if rs.eof and rs.bof then response.write "

还没有人评论，您想评论吗？！" else totalPut=rs.recordcount totalnumber=rs.recordcount if (totalPut mod MaxPerPage)=0 then tempPcount= totalPut \ MaxPerPage else tempPcount= totalPut \ MaxPerPage + 1 end if if (totalPut mod MaxPerPage)=0 then Pcount= totalPut \ MaxPerPage else Pcount= totalPut \ MaxPerPage + 1 end if rs.MoveFirst if currentpage > Pcount then currentpage = Pcount if currentpage<1 then currentpage=1 'if currentpage=empty then currentpage=1 rs.move (currentPage-1)*MaxPerPage bookmark=rs.bookmark i=0 do while not rs.eof and i < Clng(MaxPerPage) if Not Response.IsClientConnected then responseend%> <% rs.movenext i=i+1 if i>=MaxPerPage then exit do loop end if rs.close set rs=nothing %>

·.htm"><%=rs("title")%>

<%=cutStr(trim(strskoftcount),200)%>

<% dim filename,ii,n filename="ztlb.asp" if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "

"& vbCrLf 'response.write ""&strsortname&" "& vbCrLf if CurrentPage<2 then response.write " 共有专题 "&totalnumber&" 个首页上一页 " else response.write "共有专题 "&totalnumber&" 个首页 " response.write "上一页 " end if if n-currentpage<1 then response.write "下一页尾页 "& vbCrLf else response.write "下一页" response.write " 尾页"& vbCrLf end if response.write " 页次："&CurrentPage&"/"&n&"页 " response.write " "&maxperpage&"个/页 "& vbCrLf response.write " 转到： " response.write " " & vbCrLf response.write "

"& vbCrLf%>