class.asp

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

<!--#include file="66hc.asp"--><!--#include file="opfw.asp"-->
<card id="login" title="分类">
<p>
<%
ids=request("ids")
if ids="" then ids="0"
set rs0=server.createobject("ADODB.Recordset")
Sql0="select * from [66hc_url] where [66hc_fid]="&ids&" order by [66hc_time] desc"
rs0.open Sql0,conn,1,1
if rs0.recordcount = 0 then
response.write("暂无内容")
else
If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then	
	Page = 1
	Else
	Page = CINT(Request.QueryString("Page"))
End If
	rs0.pagesize =pag
	total  = rs0.RecordCount
	rs0.absolutepage=page
	mypagesize = rs0.pagesize 
rs0.Move(0)
dim j
j=1
do while ((not rs0.EOF) and j <=clng(pag))
%>
<%if flsz<>0 then%><%=j+(page*pag)-pag%>.<%end if%>
<a href='url.asp?idss=<%=idss%>&amp;wid=<%=rs0("66hc_id")%>'><%=ubb(rs0("66hc_name"))%></a>
<%if flsz=2 then%>
(进<%=rs0("66hc_zl")%>)
<%elseif flsz=3 then%>
(出<%=rs0("lc")%>)
<%end if%><br/>
<%
j=j+1
rs0.movenext
loop
end if
%>
<%if page<rs0.pagecount   then%>
<a href='class.asp?ids=<%=request("ids")%>&amp;page=<%=page+1%>&amp;bs=<%=bs%>'>下页</a>
<%end if%>
<%if page>1 then%>   
<a href='class.asp?ids=<%=request("ids")%>&amp;page=<%=page-1%>&amp;bs=<%=bs%>'>上页</a>
<%end if%>
(<%=page%>/<%=rs0.pagecount%>/<%=total%>)
<%
rs0.close
set rs0=nothing
%>
<!--#include file="66hcw.asp"-->