Sub topage(page,PageCounts)
'模仿百度/google分页(参数[表单/地址栏]自动获取)
'==================================================
'作者:飞飞
'网址:www.ffasp.com
'QQ:276230416
'邮箱:rabbit25132008@gmail.com
'==================================================
'分页页码变量请使用 page
'参数说明:
'page 当前页码
'PageCounts 所有页码
Dim a,i
Dim urlparameters,Eurlparameters,Nurlparameters
Dim SpanStyle,ArrowStyle,MouseOver,MouseOut
SpanStyle="border:1px solid #63BCFE;text-align:center;padding:0 5px"
ArrowStyle="font-family:webdings;width:25px;line-height:16px;font-size:12px;text-decoration:none;cursor:pointer;"
MouseOver=" this.style.border='1px solid #0182DD'"" "
MouseOut = " this.style.border='1px solid #63BCFE'"" "

urlparameters=Request.Form
If Request.Form="" or isempty(Request.Form) or isnull(Request.Form) Then urlparameters=Request.Querystring
urlparameters=trim(urlparameters)
If left(urlparameters,1)="&" Then urlparameters=mid(urlparameters,2)
Eurlparameters=split(urlparameters,"&")
Nurlparameters=""
for i =0 to ubound(Eurlparameters)
If split(split(Eurlparameters(i),"=")(0),"_")(0)<>"treeCode" and instr(Lcase(Eurlparameters(i)),"page=")<=0 Then Nurlparameters=Nurlparameters&"&"&Eurlparameters(i)
next



If page="" or isnull(page) or isempty(page) or not isnumeric(page) Then page=1 Else page=cint(page)
If PageCounts="" or isnull(PageCounts) or isnull(PageCounts) or not isnumeric(PageCounts) Then PageCounts=1 Else PageCounts=cint(PageCounts)

Response.Write("<a href=""?page=1"&Nurlparameters&""" title=""第一页"" >")
Response.Write("<span style="" "&ArrowStyle&SpanStyle&" "" "&MouseOver&MouseOut&">9</span>")
Response.Write("</a>")

if page=1 or page<1 then Response.Write("<span style="" "&ArrowStyle&SpanStyle&""" "&MouseOver&MouseOut&">7</span>")
if page>1 then
Response.Write("<a href=""?Page="&page-1&Nurlparameters&""" title=""上一页"">")
Response.Write("<span style="" "&ArrowStyle&SpanStyle&""" "&MouseOver&MouseOut&">7</span>")
Response.Write("</a> ")
end if

if page>1 then a=1
if page>2 then a=2
if page>3 then a=3
if page>4 then a=4

for i=page-a to page-1
Response.Write("<span style="""&SpanStyle&""" "&MouseOver&MouseOut&">")
Response.Write("<a href=""?Page="&i&Nurlparameters&""">")
Response.Write(i)
Response.Write("</a>")
Response.Write("</span>")
next

Response.Write("<span style=""color:#fff;width:20px;background-color:#0182DD;"&SpanStyle&""" "&MouseOver&MouseOut&">")
Response.Write(page)
Response.Write("</span>")

for i=page+1 to page+4
if i>PageCounts then exit for
Response.Write("<span style=""width:20px;"&SpanStyle&""" "&MouseOver&MouseOut&">")
Response.Write("<a href=""?Page="&i&Nurlparameters&""">")
Response.Write(i)
Response.Write("</a>")
Response.Write("</span>")
next

If page=pagecounts or page>pagecounts then
Response.Write("<span style="" "&ArrowStyle&SpanStyle&" "" "&MouseOver&MouseOut&">8</span>")
Else
Response.Write("<a href=""?Page="&page+1&""&Nurlparameters&""" title=""下一页"">")
Response.Write("<span style="" "&ArrowStyle&SpanStyle&" "" "&MouseOver&MouseOut&">8</span>")
Response.Write("</a>")
end if

Response.Write("<a href=""?page="&PageCounts&Nurlparameters&""" title=""尾页"">")
Response.Write("<span style="" "&ArrowStyle&SpanStyle&""" "&MouseOver&MouseOut&">:</span>")
Response.Write("</a>")
End Sub