《打怪兽打怪兽》歌曲:求ASP分页代码

哦晕，
Rs1=conn.execute(sql)
Rs1.PageSize = 16'一页的条数
RsCount = Rs1.RecordCount
PageCount = Rs1.PageCount
If Page = "" Then
Page = 1
End If
If IsNumeric(Page) Then
Page = int(Page)
End If
If Page < 1 Then
Page = 1
End If
If Page > Rs1.PageCount Then
Page = Rs1.PageCount
End If
If Page <= Rs1.PageCount AND Rs1.PageCount > 0 Then
Rs1.AbsolutePage = Page
End If
If Rs1.RecordCount > 0 Then
For i = 1 To 16
If Rs1.EOF Then
Exit For
End If

%>
数据输出部分
<form action="页面.asp?Page=<%=Page%>">
共<%=RsCount%>个记录,第<%=Page%>页/共<%=PageCount%>页
<%If PageCount>1 Then%>
<% If Page > 1 Then %>
<a href="页面.asp?Page=1">首页</a> <a href="页面.asp?Page=<%=Page-1%>">上一页</a>
<% Else %>
首页 上一页
<% End If %>
<% If Page < PageCount Then %>
<a href="页面.asp?Page=<%=Page%+1>>下一页</a> <a href="页面.asp?Page=<%=PageCount%>">尾页</a>
<% Else %>
下一页 尾页
<% End If %>
<%End If%>
转到：
<input name="page" type="text" id="page" size="4">页
<input type="submit" name="Submit22" value="go">
<input type="hidden" name="Site_ID2" value="<%=Site_ID%>">
<input type="hidden" name="SearchText2" value="<%=Server.URLEncode(SearchText)%>">
<input type="hidden" name="msgtype" value="<%=msgtype%>">

</div>
</form>

<%
ClassID=cint(request.querystring("ClassID"))
Set ClsPage = New classPage
curPage = Trim(Request.QueryString("page"))
If curPage = "" Then
curPage = 0
Else
curPage = Clng(curPage)
End If
sqlTmp = "Select * From [Article] Where [ClassId]="&ClassID&" and [Passed] = True And [Deleted] = False"
sqlTmp = sqlTmp & " Order By [OnTop] Asc,[Elite] Asc,[ArticleID] Desc"
ClsMain.SqlString = sqlTmp
Set rst = Server.CreateObject("ADODB.RecordSet")
rst.Open ClsMain.SqlString,ClsMain.Conn,1,1
rst.PageSize = 15
p_pageSize = rst.pageSize
p_pageCount = rst.pageCount
p_recordCount = rst.recordCount
If IsNumeric(curPage) = False Then curPage = 1
If curPage = "" Or curpage < 1 Then curPage = 1
if curPage > p_recordCount Then curPage = p_recordCount
If p_recordCount > 0 Then rst.absolutePage = curPage
path="newslist.asp?id="
%>