版主还在吗？
能不能再问你个问题啊
就这论坛里面的分页问题
我是把页都显示出来了
可有100页他就显示到100
怎么能象这上面的一样每页显示10条啊

高手呢。。。
怎么都没有人回答啊。。
晕死

function pagenum(page,pagesum,actcs)
if cint(page)>10 then
ks=page-5
js=page+5
if ks<1 then
ks=1
js=ks+10
end if
if js>cint(pagesum) then
js=pagesum
ks=js-10
end if
else
if cint(pagesum)>11 then
ks=1
js=11
else
ks=1
js=pagesum
end if
end if
if page<>1 then
response.Write("<a href='" & actcs & "1'>首页</a> <a href='" & actcs & page-1 &"'>上一页</a> ")
else
response.Write("首页 上一页 ")
end if
for b= ks to js
if b<10 then
if cint(b)=cint(page) then
response.Write("<b>"&"["& b &"]"&"</b> ")
else
response.Write("<a href='" & actcs & b &"'>"&"["& b &"]"&"</a> ")
end if
else
if cint(b)=cint(page) then
response.Write("<b>"&"["& b &"]"&"</b> ")
else
response.Write("<a href='" & actcs & b &"'>"&"["& b &"]"&"</a> ")
end if
end if
next
if cint(page)<cint(pagesum) then
response.Write("<a href='" & actcs & page+1 & "'>下一页</a> <a href='" & actcs & pagesum & "'>尾页</a> ")
else
response.Write("下一页 尾页 ")
end if
end function

page=request("page") pagesum=rs.pagecount acts就是你所要分页的页面名称 如 bbs.asp.

呵呵...又学到一手了...感激ing

寻求网马开发工程师~!有的联系QQ282455851``月薪上万!!