帮我看下这个想添加ASP分页显示的代码。 要求有注释。谢谢

<%@LANGUAGE="VBScript" codepage="936"%>


<%
dim selss
set selss=server.createobject("adodb.recordset")
sql="select user,qq,email,content,data from main order by id desc"
selss.open sql,conn,1,1
if selss.eof or selss.bof then
response.write "米信息!"
else
selss.pagesize=10
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>selss.pagecount then epage=selss.pagecount
else
epage=1
end if
selss.absolutepage=epage

%>







<%

for i=0 to selss.pagesize-1
if selss.bof or selss.eof then exit for
%>

bgColor=#c6d7c6 border=0> border=0> <%=selss("user")%> 留言于 <%=selss("data")%> " target="_blank">QQ ">邮件 内容: <%=selss("content")%>

<%
selss.movenext()
next
end if
%>

<%
dim i,intPage,page,pre,last,filepath
set rs = server.CreateObject("adodb.recordset")
sql="select * from wqyw order by id desc"
rs.PageSize = 1 '//（Yoko:这里设定每页显示的记录数
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1 ' //（Yoko:'这里执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(Request.QueryString("page"))

if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>

<%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>

..................
//（Yoko:要循环显示的内容 ）..................
...................
<%
rs.movenext
next
%>



<%if rs.pagecount > 0 then%>

<%else%>
<%end if%>

当前页<%=intpage%>/<%=rs.PageCount%>

当前页0/0

首页| <%if pre=true then%> 上页| <%end if%> <%if last then%> 下页 |<%end if%> 尾页|转到第 <% for i = 1 to rs.PageCount if i = intpage then%> <%=i%> <%else%> <%=i%> <% end if next %> 页

网上找的一般不能用 这是我自己改的