<%
set rs=server.createobject("adodb.recordset")
sql="Select * From Net_photo Order By NID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
'do while Not rs.eof
%>
<%
else
'以下为分页
rs.PageSize = 16 '每页记录条数
iCount=rs.RecordCount'记录总数
iPageSize=rs.PageSize
maxpage=rs.pageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize/2
end if
'分页结束
do while not rs.eof
i = i+1
%>
<%
rs.movenext
if i>=16 then
exit do
end if
loop
' end if
' rs2.close
' set rs2=nothing
%>
<%
call PageControl(iCount,maxpage,page,"border=0 align=right","
")
end if
rs.close
set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp , p
p=1
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
do while p<=pageCount
if p=page then
Response.Write("" & p & " " & vbCrLf)
else
Response.Write("" & p & " " & vbCrLf)
end if
p=p+1
loop
if page>=pagecount then
Response.Write ("" & vbCrLf)
else
Response.Write("› " & vbCrLf)
Response.Write("» " & vbCrLf)
end if
End Sub
%>
