求大神给修改一下分页显示代码 - asp吧

level 1

<%
Ipage=request.querystring("ipage")
if Ipage="" then
Ipage=1
end if
%>
<%
Dim NoClass5,Fileclass5
NoClass5=2
Xwzx0="xwzx"
Set rs = Server.Createobject("ADODB.recordset")
asql="select top 300 * from Article where NoClass='"&NoClass5&"' order by id desc"
rs.cursortype = 3
rs.pagesize=20
rs.open asql,Cn
rs.absolutepage=cint(ipage)
rowcount=0
if not rs.eof and not rs.bof then
while not rs.eof and rowcount<rs.pagesize
datetime=rs("date")
title_5=rs("title")
IDD_5=rs("id")
LeftTitle_5=left(title_5,50)
Datetm_5=rs("Datetime")
Datetme_5="["&year(Datetm_5)&"-"&month(Datetm_5)&"-"&day(Datetm_5)&"]"
BigClass_5=rs("BigClass")
Pathfilename=rs("Pathfilename")
PageCount=rs.pagecount
%>
<li style='padding-left:0px;width:600px;padding-top:3px;padding-bottom:3px;'>⊙ <a href=<%=Web_WebUrl%><%=IDD_5%>.html><%=title_5%><%=Datetme_5%></a></li>
<%
rowcount=rowcount+1
rs.movenext
wend
rs.close
set rs=nothing
end if
%>
</ul>
<p align=center style='width:600px;margin:0 auto;padding-top:5px;'>共 <%=PageCount%> 页当前页次<%=ipage%>/<%=pagecount%>分页
<%
for i=1 to pagecount
if i=cint(ipage) then %>
[<font color=red ><%= i%></font>]
<% else %>
[<a href=xwzx<%=i%>.html ><%=i%></a>]
<% end if
next
%></p>
</DIV>
<div id=NBodyLeftEnd> </div>
</div>
</div>
结果显示