仿百度分页代码

<%
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 ifelse       
if cint(pagesum)>11 then        
ks=1        
js=10        
else       
ks=1        
js=pagesum        
end ifend if if page>1  then
response.Write("<a href=""?CurPage=1"&actcs&""">首页</a> <a href=""?CurPage="& page-1 & actcs&  """>上一页</a> ") else
response.Write("首页 上一页 ") end iffor 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
%>