<%
Sub LastNextPage(pagecount,page,resultcount)
Dim query, a, x, temp
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
Response.Write("<table cellspacing=0 cellpadding=0 border=0>" & vbCrLf )
Response.Write("<form method=get document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
if page<=1 then
Response.Write ("【首页】" & vbCrLf)
Response.Write ("【上一页】" & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1><span class='STYLE5'>【首页】</span></A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & "><span class='STYLE5'>【上一页】</span></A> " & vbCrLf)
end if
if page>=pagecount then
Response.Write ("【下一页】" & vbCrLf)
Response.Write ("【尾页】" & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & "><span class='STYLE5'>【下一页】</span></A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & "><span class='STYLE5'>【尾页】</span></A>" & vbCrLf)
end if
Response.Write("第" & "<INPUT style=""HEIGHT: 15px;font-size: 12px""TYEP=TEXT NAME=page SIZE=2 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""HEIGHT: 15px;font-size: 12px"" value=GO>")
Response.Write(" 共" & pageCount & "页" & vbCrLf)
Response.Write(" " & resultcount & "条信息" & vbCrLf)
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%>
调用页面方法：
<!--#include file="tools.asp" -->
<%
sql="select * from biaoming order by id desc"
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,1
if not rs.eof then
rs.PageSize =12
result_num=rs.RecordCount
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
else
result_num=0
maxpage=0
page=0
end if
%>
<%
'开始循环
if not rs.eof then
for i=1 to rs.PageSize
%>
<!--开始输出内容-->
<%
'循环结束
rs.movenext
if rs.EOF then Exit For
next
end if
rs.close
set rs=nothing
%>
<!--输出分页-->
<%call LastNextPage (maxpage,page,result_num) %>
最新评论