仿百度分页代码

关键词:仿百度分页,仿百度分页代码,asp仿百度分页,asp仿百度分页代码

<%

function listpage(pagesum,page,actcs)

'pagesum 总页数

'page 当前页码

'actcs为连接参数 比如:&a=1&b=2

if cint(page)>=10 then

ks=page-4

js=page+5



if ks<1 then

ks=1

js=ks+9

end if



if js>cint(pagesum) then

js=pagesum

ks=js-9

end if



else



if cint(pagesum)>11 then

ks=1

js=10

else

ks=1

js=pagesum

end if



end if

if page>1 then

response.Write("<a href='?CurPage=1"&actcs&"'>首页</a> <a href='?CurPage="& page-1 & actcs& "'>上一页</a> ")

else

response.Write("首页 上一页 ")

end if



for i= ks to js



if cint(i)=cint(page) then

response.write "<font color=#6593BF>"&i&"</font> "

else

response.write "<a href=?id="&id&"&CurPage="&i&"><font color=#ffffff>"&i&"</font></a>"

end if



next

if cint(page)<cint(pagesum) then

response.Write("<a href='?CurPage="& page+1 & actcs & "'>下一页</a> <a href='?CurPage="& pagesum & actcs & "'>尾页</a> ")

else

response.Write("下一页 尾页 ")

end if

end function

%>