请ASP高手帮我修改一下这个ASP分页模块

我看的头也花了，看不懂也改不对，请高手帮我修改一下
代码如下：
<%
'+++++++++++++++++++++++++++++++++++++
'◆模块名称： 公共翻页模块
'◆文 件 名： fenye.asp
'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
'◆输 出： 记录集翻页显示功能
'+++++++++++++++++++++++++++++++++++++
'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount'总记录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then
PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If
'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName

请ASP高手帮我修改一下这个ASP分页模块 请帮我修改一下这个程序 请高手帮我再修改一下这段ASP代码 帮我修改一下这个ASP分页代码 请高手帮我检查 修改一下！ 请JAVA高手帮我修改一下 请英语高手把这个中文摘要的英文翻译帮我修改一下,多谢! 请高手帮我看看这个asp代码怎么改 请高手来帮我看看这个ASP问题 请高手帮我看一这个ASP代码