获取编号的分页效果

<div class="zj_content">
    <ul>
  <%
  URL= Request.ServerVariables("URL")
  sql="SELECT * FROM Special order by specialid"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
  response.write "<tr><td colspan=9 height=40><center>暂无内容</center></td></tr>"
  PageScript="ML"
  else
  '分页的实现 
  listnum=20
  Rs.pagesize=listnum
  pageMax=rs.pagecount
  listCount=rs.recordcount
  
  page=Request("page")
  if (page-pageMax) > 0 then
  page=pageMax
  elseif page = "" or page < 1 then
  page = 1
  end if
  rs.absolutepage=page
  '编号的实现
  j=listCount
  j=j-(page-1)*listnum
  i=0
  nn=request("page")
  if nn="" then
  n=0
  else
  nn=nn-1
  n=listnum*nn
  end if
  do while not rs.eof and i<listnum
  n=n+1
  %>
      <li>
   <img src="<%=rs("pic")%>" class="fl" />
   <div class="txt fl">
    <div class="title"><span><%= abs(j-(listcount+1)) %>、</span><%=rs("name")%> - <%=rs("Nclass")%> </div>
    <div class="cp">唱片公司：<%=rs("pubcompany")%> 发行时间：<%=rs("pubtime")%> </div>
    <div class="des"><%=left(rs("intro"),88)%>... </div>
    <div class="fx">分享</div>
   </div><!--txt over-->
   </li>
  <%
  rs.movenext
  i=i+1
  j=j-1
  loop
  end if
  rs.close
  set rs=nothing
  %>
    </ul>
  </div><!--zj_content over-->
  <div class="page">
    <%filename=URL%>
<tr class="pages" valign="middle">
<td align=right id="bottomPage">共 <%=listCount%> 条&nbsp;&nbsp;<%=listnum%> 条/页&nbsp;&nbsp;共 <%=pageMax%> 页 
  <% if page>1 then %>
  <a href=<%=filename%>>首页</a>
  <a href=<%=filename%>?page=<%=page-1%>>上一页</a>
  <%else%>
  <a href=<%=filename%>>首页</a>
   
  <%end if%>
<% 
pageArea=(page\10)*10
for i=pageArea-5 to pageArea+10
if i>0 and i<=pageMax then
if i=cint(page) then
response.write("<strong><font class=bg>"&i&"</font></strong>")
else
response.write("<a href="&filename&"?page="&i&">"&i&"</a>")
end if
end if
next
%>
<% if pageMax-page <> 0 then %>
  <a href=<%=filename%>?page=<%=page+1%>>下一页</a>
  <a href=<%=filename%>?page=<%=pageMax%>>末页</a>
  <%else%>
   
  <a href=<%=filename%>?page=<%=pageMax%>>末页</a>
<%end if%>
<select name='sldd' style='width:45px; height:20px;' οnchange='location.href=this.options[this.selectedIndex].value;'>
<% 
pageArea=(page\10)*10
for i=pageArea-5 to pageArea+10
if i>0 and i<=pageMax then
if i=cint(page) then %>
<option value='' selected="selected"><%=i%>页</option> 
<%else%>
<option value='<%=filename%>?page=<%=i%>'><%=i%>页</option>
<%end if
end if
next
%>
</select>
</td>
</tr>

  </div><!--page over-->