<%@ Language=VBScript %>
<!--#include file="cn.asp"-->
<%



'Response.Write "<h3>分页例子（通用分页方法）</h3>"


'************************************************************************************
' 
' 分页函数的例子
'
'************************************************************************************

 ' 定义当前页
Dim CurrentPage
 ' 文件名
Dim FileName
 '每页显示的记录个数
Dim PageItems
PageItems = 5


FileName = "_page.asp"



'定义变量
Dim cn,rs,Sql

Sql = "select CustomerID from Orders"

 '记录总数
 '记录总数
Dim TotalNumbe
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;" 

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, cn, 3, 1
TotalNumber = rs.RecordCount
If TotalNumber = 0 Then
 Response.Write "没有记录输出。"
Else
 Dim jj,nLeft,cCol
 jj = 0
 nCol = 18
 nLeft = nCol- (TotalNumber Mod nCol)
 If nLeft = nCol Then nLeft = 0
 Response.Write "<table border><tr>" & vbCrLf
 While not rs.EOF
  Response.Write "<td>" &  rs("CustomerID") & "</td>" & vbCrLf
  'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Then Response.Write "</tr><tr>" & vbCrLf
  'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1  Then Response.Write "</tr>" & vbCrLf
  
  If (jj Mod nCol) = (nCol - 1) Then
   If jj <> TotalNumber - 1 Then
    Response.Write "</tr><tr>" & vbCrLf
   Else
    Response.Write "</tr>" & vbCrLf
   End If
  End If
  jj = jj + 1
  rs.MoveNext
 Wend
 If nLeft <> 0 And nLeft <> nCol Then
  If nCol < TotalNumber Then
   For i = 1 to nLeft
    Response.Write "<td>&nbsp;</td>" & vbCrLf
   Next
  End If
  Response.Write "</tr>" & vbCrLf
 End If
 Response.Write "</table>"
End If
'rs.Close
'Set rs = Nothing
'cn.Close
'Set cn = Nothing
'Response.End 

'


rs.MoveFirst

CurrentPage = Request.QueryString("page")
If CurrentPage = "" Then CurrentPage = Request.Form("page")
CurrentPage = Trim(CurrentPage)
If IsNumeric(CurrentPage) = False Then CurrentPage = 1
CurrentPage = CLng(CurrentPage)
Dim n
If TotalNumber Mod PageItems = 0 Then
n = TotalNumber \ PageItems
Else
n = TotalNumber \ PageItems + 1
End If
If CurrentPage < 1 Or CurrentPage > 1000 Then CurrentPage = 1
If CurrentPage > n Then CurrentPage = n

Dim j,i
j = 1
Response.Write "<table border style='font-size:9pt'><tr><td>&nbsp;</td>"
For i = 0 To rs.Fields.Count - 1
Response.Write "<td>" & rs.Fields(i).Name & "</td>"
Next
Response.Write "</tr>"
If CurrentPage > 0 Then rs.Move (CurrentPage - 1) * PageItems
While (j <= PageItems) And Not rs.EOF
Response.Write "<tr>"
For i = 0 To rs.Fields.Count - 1
Response.Write "<td>" & ((CurrentPage - 1) * PageItems + j) & "</td><td>" & rs(i).Value & "</td>"
Next
j = j + 1
rs.MoveNext
Response.Write "</tr>"
Wend
rs.Clone
Set rs = Nothing
Response.Write "</table>"

ShowPages TotalNumber, PageItems, FileName, n



'定义分页的函数，以TotalNumber，PageItems，FileName，n作为函数的入口。
Function ShowPages(TotalNumber, PageItems, FileName,n)
Response.Write "<table width='100%' style='font-size:9pt'>" & vbCrLf
Response.Write "<form method=Post action=" & filename & ">" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td align=center>" & vbCrLf
Response.Write "共" & TotalNumber & "条 每页" & PageItems & "条 当前是第" & n & "页 "
If CurrentPage < 2 Then
Response.Write "<font color='#999966'>首页 上一页</font> "
Else
Response.Write "<a href=" & FileName & "?page=1>首页</a> "
Response.Write "<a href=" & FileName &"?page=" & CurrentPage-1 & ">上一页</a> "
End If
If n - CurrentPage < 1 Then
Response.Write "<font color=999966>下一页 尾页</font>"
Else
Response.Write "<a href=" & FileName & "?page=" & (CurrentPage + 1)
Response.Write ">下一页</a> <a href=" & FileName & "?page=" & n & ">尾页</a>"
End If
Response.Write " 页次：<b><font color=red>" & CurrentPage & "</font>/" & n &"</b>页 "
Response.Write " 转到：<input name='page' size=4 maxlength=10>"
Response.Write "<input class=buttonface type=submit value='转到'>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</form>"
Response.Write "</tr>"
Response.Write "</table>" & vbCrLf
End Function
%>

如果手动在上面currentpage=加个数字,也会跳转过去,就是不会自动添加上去?

能不用ASP解释一下啊

转到：第
<select name="page" onchange="javascript:window.location.href=this.options[this.selectedIndex].value" style="font-size: 9pt">
<%for i = 1 to totalpage%>   
<option value='?page=<%=i%>' <%if cint(Page)=cint(i) then%> selected <%end if%>><%=i%></option>   
<%next%>   
</select>
页

这个还是我大花狗的精简,我用了好长时间了。
好用。

大花狗啊，不行喂，那个下拉列表，不显示任何数字的

<%  
   Set rs=server.CreateObject("adodb.recordset") 
    page=request.querystring("page")
    if page="" then page=1
    if not(isnumeric(page)) then page=1
    if page<1 then page=1
    page=int(page)
  
    rs.open SQL,conn,1,1
    
    if not rs.eof then  
  
    '每页显示的记录数
    rs.pagesize = 20

    totalrec=rs.recordcount
    totalpage=rs.pagecount
    if page>totalpage then page=totalpage
    rs.absolutepage=page
%>
<% do while not rs.eof and (i<rs.pagesize) %>
<!--此处显示需要循环显示的字段-->
<%
rs.movenext
loop
%>

<table>
<tr colSpan=5 height="30" width="555">
<div align="left"> <font color="red" face="Verdana" style="font-size: 9pt"><%=page%></font><font face="Verdana" style="font-size: 9pt">/<%=totalpage%> 页</font></b>
<font color=666666> 
<span style="font-size: 9pt">
<%if page>1 then%>
<a href="?page=<%=page-1%>">
<span style="text-decoration: none" title="上一页">上页</span></a></span></font><span style="font-size: 9pt"> 
<%else%> 上页<%end if%>                  
<%if page+1<=totalpage then%>
<font color=666666> 
<a href="?page=<%=page+1%>" title="下一页">
<span style="text-decoration: none">下页</span></a></font> 
<%else%> 下页    
<%end if%> </span></tr>

<tr><span style="font-size: 9pt">转到：第</span>
<select name="page" onchange="javascript:window.location.href=this.options[this.selectedIndex].value" style="font-size: 9pt">
<%for i = 1 to totalpage%>   
<option value='?page=<%=i%>' <%if cint(Page)=cint(i) then%> selected <%end if%>><%=i%></option>   
<%next%>   
</select>页