zl.asp

3ani桑尼网络wap导航程序wap导航程序wap导航程序

<!--#include file="../66hc.asp"-->
<card id="login" title="最多连入">
<p>
<%
set rs0=server.createobject("ADODB.Recordset")
Sql0="select * from [66hc_url] order by [66hc_zl] desc"
rs0.open Sql0,conn,1,1
rs0.PageSize=20
page=CLng(Request("page"))
if page<1 then
page=1
End if
if page>rs0.pagecount then
page=rs0.pagecount
End if
if rs0.recordcount=0 then
response.write("暂无内容<br/>")
else
rs0.absolutepage=page
if page=1 then
bihao=0
else
bihao=page*pag-pag
End if
For i=1 to pag
bihaocont=bihaocont+1
%>
<%=bihao+bihaocont%>.<%if rs0("zt")=1 then%><a href='../url.asp?o=<%=o%>&amp;wid=<%=rs0("66hc_id")%>'><%=ubb(rs0("66hc_name"))%></a><br/><%else%><%=ubb(rs0("66hc_name"))%><br/><%end if%>
<%
rs0.Movenext
if rs0.EOF then Exit for
Next
End if
response.write "(" &  Page & "/" & rs0.PageCount & ")" & "&#x5171;" & rs0.RecordCount & "&#x4E2A;"
If Page<rs0.PageCount then
Response.Write "<a href='zl.asp?sb="&sb&"&amp;o="&o&"&amp;page=" & (page+1) & "'>[下页]</a>"
End if
If page>1 then
Response.Write "&nbsp;<a href='zl.asp?sb="&sb&"&amp;o="&o&"&amp;page=" & (page-1) & "'>[上页]</a>"
End if
rs0.close
set rs0=nothing
%>
<!--#include file="../66hcw.asp"-->