学了一月ASP了,做了一个小网站,可就是不会做分页,那个高手给个分页代码http://huangjiwei.zpgo.net/

<%
开始分页
Const MaxPerPage=15
dim totalPut   
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
    currentPage=Cint(request("page"))
else
    currentPage=1
end if
%>

<table  width="90%"  border="0" cellpadding="0" cellspacing="0">
                <%
set conn=server.CreateObject("adodb.connection")
DBPath=server.mappath("date/db1.mdb")
conn.open "driver={microsoft access driver (*.mdb)}; dbq="&DBPath
set rs=server.CreateObject("adodb.recordset")
      sql="select * from gsdongtai"
   rs.open sql,conn,1,1
   
   if err.number<>0 then
    call MsgBox("数据库中无数据","Back","None")
    response.End
end if
if rs.eof And rs.bof then
    call MsgBox("对不起，目前没有更新商品！","Back","None")
    response.End
else
    totalPut=rs.recordcount
   if currentpage<1 then
    urrentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
    if (totalPut mod MaxPerPage)=0 then
        currentpage= totalPut \ MaxPerPage
    else
        currentpage= totalPut \ MaxPerPage + 1
    end if
end if

if currentPage=1 then
else
    if (currentPage-1)*MaxPerPage<totalPut then
        rs.move  (currentPage-1)*MaxPerPage
        dim bookmark
        bookmark=rs.bookmark
        
    else
        currentPage=1
    end if
    end if

end if

dim i
i=0
 do while not rs.eof
%>
                <tr align="left">
                  <td height=25><font color="#FF6600">·</font> <a href="gsdt.asp?id=<%=rs("id")%>"><%=rs("name")%></a> <font color="#999999">[2006-7-18]</font></td>
                  <td width="60" height=25>点击<%=rs("num")%>次</td>
                </tr>
                 <tr>
                 <td height="1" background="images/lineleft.gif" colspan="2"></td>
                 </tr>
<%i=i+1
            if i>=MaxPerPage then Exit Do
            rs.movenext
            loop
            rs.close
            set rs=nothing%>
                                                      <%  
  
                Function showpage(totalnumber,maxperpage,filename)  
                  Dim n
                  
                If totalnumber Mod maxperpage=0 Then  
                    n= totalnumber \ maxperpage  
                Else
                    n= totalnumber \ maxperpage+1  
                End If
               
                Response.Write "<form method=Post action="&filename&">"  
                Response.Write "<p align='center' class='contents'> "  
                If CurrentPage<2 Then  
                    Response.Write "<font class='contents'>首页 上一页</font> "  
                Else  
                    Response.Write "<a href="&filename&"?page=1 class='contents'>首页</a> "  
                    Response.Write "<a href="&filename&"?page="&CurrentPage-1&" class='contents'>上一页</a> "  
                End If
               
                If n-currentpage<1 Then  
                    Response.Write "<font class='contents'>下一页 尾页</font>"  
                Else  
                    Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&" class='contents'>"  
                    Response.Write "下一页</a> <a href="&filename&"?page="&n&" class='contents'>尾页</a>"  
                End If  
                    Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
                    Response.Write "<font class='contents'> 共有<b> "&totalnumber&" </b>条 "&maxperpage&"条/页</font> "
                    Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"  
                    Response.Write " <input type='submit'  class='contents' value='GO' name='cndok'></form>"  
                End Function
%>   
            
                 <tr><td colspan="2" align="center"><form name="form1" method="post" action="">
                    <%
showpage totalput,MaxPerPage,"moregsdt.asp"
%>
                  </form></td></tr>
              </table>