求写asp分页代码

<%

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>

结果显示
想修改为
求大神帮忙

智通 发表于 2015-4-29 14:51

没看到图片

有大神么？

回复 3# 智通


   在啊

智通 发表于 2015-4-29 14:51

   需求很专业，建议联系客户直接处理