关键词:仿百度分页,仿百度分页代码,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
%>