<%
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
%>
转载于:https://www.cnblogs.com/jizhitao/archive/2010/01/19/1651444.html