<%
set rsddlb=server.CreateObject("adodb.recordset")
rsddlb.open"select top 17 * from sort order by px desc,sort_id desc",cn,1,3
for i=1 to rsddlb.recordcount %>
<% sort_id=request("sort_id")
nsort_id=request("nsort_id")
Set rs = server.CreateObject("adodb.recordset")
if(sort_id="" and nsort_id="") then
rs.Open "select * from [cp] order by px desc,id desc", cn, 1, 3
else
if(nsort_id="") then
rs.Open "select * from [cp] where sort_id=" & sort_id & " order by px desc,id desc", cn, 1, 3
else
rs.Open "select * from [cp] where sort_id=" & sort_id & " and nsort_id=" & nsort_id & " order by px desc,id desc", cn, 1, 3
end if
end if
Page = request.querystring("page")
PageSize = 12
rs.PageSize = PageSize
If IsEmpty(Page) Or (Not IsNumeric(Page)) Then
Page = 1
Else
Page = CInt(Page)
End If
If Page > rs.PageCount Then
if rs.recordcount<>0 then
rs.AbsolutePage = rs.PageCount
end if
ElseIf Page <= 0 Then
rs.AbsolutePage = 1
Else
rs.AbsolutePage = Page
End If
if(rs.PageCount=0) then
PageCount=1
else
PageCount=rs.PageCount
end if
IndexInt=0
IsEnd= true
for i=1 to rs.PageSize
indexint=indexint+1
if rs.EOF then
Exit For
end if
%>
