¼òµ¥µÄÊý×Ö·ÖÒ³

<form action="<%=pageurl%>" method="post" >
        <table width=100% border="0" align="right" cellpadding="2" cellspacing="0" bgcolor="efefef" style="border-collapse:collapse;WORD-BREAK: break-all">
          <tr>
            <td height="22"><div align="center">
   <% 
Dim pageurl
pageurl="?d="&d&"&h="&h&"&"
 Pcount=rs.PageCount
 response.write "¹²ÓУº<b>"&messagecount&"</b>Ìõ¼Ç¼ "
 response.write "<a href="""&pageurl&"page=1"">µÚ1Ò³</a>"
    if Page > 4 then
  response.write " <a href="""&pageurl&"page=1"">[1]</a> ... "
 end if
 if Pcount>Page+3 then
  endpage=Page+3
 else
  endpage=Pcount
 end if
 for i=Page-3 to endpage
 if not i<1 then
  if i = clng(Page) then
        response.write " <font color=red>"&i&"</font> "
  else
        response.write "<a href="""&pageurl&"page="&i&""">["&i&"]</a>"
  end if
 end if
 next
 if Page+3 < Pcount then
  response.write " ...<a href="""&pageurl&"page="&Pcount&""">["&Pcount&"]</a> "
 end if
 response.write "<a href="""&pageurl&"page="&Pcount&""">µÚ"&Pcount&"Ò³</a>"
 %>
      </div>
<table border=0 cellpadding=0 cellspacing=0 width=100% height=1><tr><td background=images_message/dot_line.gif> </td></tr> </table>
   </td>
          </tr>
        </table>
      </form>