【www.gdgbn.com--链接特效】

 "==============================
 "函 数 名：ShowPageCode
 "作    用：显示页码
 "参    数：链接PageUrl，当前页Nows，记录数AllCount，每页数量Sizes，总页数AllPage
 "==============================
 Public Function ShowPageCode(PageUrl,Nows,AllCount,Sizes,AllPage)
  If Nows>1 Then
   Response.Write("第一页")
   Response.Write(" ")
   Response.Write("上一页")
  Else
   Response.Write("第一页")
   Response.Write(" ")
   Response.Write("上一页")
  End If
  Response.Write(" ")
  If AllPage>Nows Then
   Response.Write("下一页")
   Response.Write(" ")
   Response.Write("尾页")
  Else
   Response.Write("下一页")
   Response.Write(" ")
   Response.Write("尾页")
  End If
  Response.Write(" "&Sizes&"条/页 共"&AllPage&"页/"&AllCount&"条 当前第"&Nows&"页 ")
  Response.Write("")
  For i=1 To AllPage
   If i=Nows Then
    Response.Write("第"&i&"页")
   Else
    Response.Write("第"&i&"页")
   End If
  Next
       Response.Write("")
 End Function

本文来源：http://www.gdgbn.com/wangyetexiao/20767/