我要一个分页显示的代码。

来源：百度知道 编辑：UC知道 时间：2024/06/02 17:31:03
我想做一个网站了，动态新闻，希望把它们放在一页上，用下面的方式，去看下面的内容。

给你一个函数吧：
sub PageLink (cpage,maxpage)
'功能：获得分页连接 样式：[<<]-[<] [1] 2 [3] [>]-[>>]
'参数说明：
'cpage:当前页
'maxpage:页数
paramestr=request.Form
if parmaestr="" then
paramestr=request.QueryString
else
paramestr=paramestr&"&"&request.QueryString
end if
paramestr=killparameter(paramestr,"page")
CurrentPage=cpage
MaxPages=maxpage
ScriptName = Request.Servervariables("script_name")
if MaxPages > 1 then
if CurrentPage > 1 then
Prev_Page = CurrentPage - 1
Response.Write("<a href='" & ScriptName & "?page=1&"¶mestr&"' title='首页'>[<<]</a>-")
Response.write "<a href='" & Scriptname & "?page=" & Prev_Page &"&"¶mestr&"' title='上一页'>[<]</a