下面的代码是我以前实现的分页功能，一点问题也没有，
你分析分析吧。
//main.asp
<% Const adOpenStatic = 3 %>
<!--#include file="OnePage.asp"-->
<!--#include file="OpenObject.asp"-->
<!--#include file="ShowMenu.asp"-->
<%
Set conn=OpenOrGet_Database("stock_conn")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select * From Table1 Where type='manager'"
rs.Open sql,conn,adOpenStatic
%>
<center><font size=6 color="#0000ff"><b>行政管理文件信息</b></font></center><p>
<font size=4 color=#ff0000>注意:如果没有看到你刚输入的信息，则刷新此页面!</font><br>
<%
Page=CLng(Request("Page"))
if Page<1 then
Page=1
End If
if Page>rs.PageCount then
Page=rs.PageCount
End If
%>
<%
If rs.RecordCount=0 Then
Response.Write "<font size=4 color=#ff0000>此目录暂无记录</font>"
Else
ShowOnePage rs,Page
ShowMenu
End If
%>
<%
Response.Write "<body background='bkgnd.jpg'>"
Response.Write "</body>"
%>
//OnePage.asp
<%
Sub ShowOnePage(rs,Page)
Response.Write "<center><table border=1>"
Response.Write "<TR bgcolor='#00ffff'>"
Response.Write "<td align=center>序号</td>"
for i=1 to rs.Fields.Count-1
Response.write "<TD align=center>" & rs.Fields(i).Name & "</td>"
Next
Response.write "</tr>"
rs.AbsolutePage=Page
for iPage=1 to rs.PageSize
Response.Write "<TR>"
RecNo=(Page-1)*rs.PageSize+iPage
Response.Write "<td>" & RecNo & "</td>"
for i=1 to rs.Fields.Count-1
Response.Write "<td>" & rs.Fields(i).Value & "</td>"
Next
Response.Write "</tr>"
rs.MoveNext
if rs.EOF Then Exit for
Next
Response.Write "</table></center>"
End Sub
%>
//ShowMenu.asp
<!--#include file="DirectFile.asp" -->
<script language="JavaScript">
function Validate1()
{
if(document.form1.Page.value=="")
{
alert("你还没有输入页码呢!");
return false;
}
return true;
}
</script>
<%
Sub ShowMenu()
%>
<form action="main.asp" method=post name=form1 onSubmit="return Validate1();">
<font color="red">
<center>
<% if Page<>1 then %>
<a href="main.asp?Page=1">第一页</a>"
<a href="main.asp?Page=<% =(Page-1) %>">上一页</a>
<% End If %>
<% if Page<>rs.PageCount Then %>
<a href="main.asp?Page=<% =(Page+1) %>">下一页</a>
<a href="main.asp?Page=<% =rs.PageCount %>">最后一页</a>
<% End If %>
输入页码:<input type=text name=Page size=3><input type=submit value="GO">
页码:<% =Page %>/<% =rs.PageCount %>
</center>
</font>
</form>
<% End Sub %>
