page.asp

网络书生留言本单用户 v1.0 正式版源码,大家下了就知道怎么用了!

<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="tdg2">
  <tr>
    <td height="20"><table width="100%" border="0">
        <tr> 
          <td width="120" align="center" class="s_in"> 
            <%response.Write("第<b>"&cstr(pageno)&"</b>页&nbsp;<b>[</b>每页<b>"&cstr(pagenum)&"</b>个<b>]</b>")%>
          </td>
          <td width="480" align="right" class="s_in"> 
<%
dim m
m=10
if mpage < m then

for pp=1 to mpage
  if pp=Cint(pageno) then
  response.Write("<b><u>"&cstr(pp)&"</u></b>&nbsp;")
  else
  response.Write("<a href='?pageno="&cstr(pp)&"' class='i'><b>"&cstr(pp)&"</b></a>&nbsp;")
  end if
next

else

    dim pe,p,pb
    p=((pageno-1)\m)*m
    pe=p+1
    pb=p+m
    if pb>mpage then
    pb=mpage
    end if
	
  if pe>m then
    response.Write("<a href='guestbook.asp' class='i'>首页</a>&nbsp;")
    response.Write("<a href='?pageno="&cstr(pe-m)&"' class='i' title='上"&m&"页'><<<</a>&nbsp;")
  end if
for pp=pe to pb
  if pp=Cint(pageno) then
  response.Write("<b><u>"&cstr(pp)&"</u></b>&nbsp;")
  else
  response.Write("<a href='?pageno="&cstr(pp)&"' class='i'><b>"&cstr(pp)&"</b></a>&nbsp;")
  end if
next
  if pb<mpage then
    response.Write("<a href='?pageno="&cstr(pb+1)&"' class='i' title='下"&m&"页'>>>></a>&nbsp;")
	response.Write("<a href='?pageno="&cstr(mpage)&"' class='i'>尾页</a>")
  end if

end if
%>
             <%response.Write("&nbsp;<b>[</b>共<b>"&cstr(mpage)&"</b>页&nbsp;共<b>"&cstr(countnum)&"</b>个<b>]</b>")%>
          </td>
        </tr>
      </table> </td>
  </tr>
</table>