最简化分页程序，附源代码

yanhu

pagetest.asp 表现页面



object.asp 页对象
1) then
minpage = currentpage-5
if (currentpage+4)>pagesum then
maxpage = pagesum
else
maxpage = currentpage+4
end if
else
minpage = 1
if pagesum>10 then
maxpage = 10
else
maxpage = pagesum
end if
end if
if(cint(currentpage-1)>0) then
if(cint(currentpage-1)>cint(pagesum)) then
response.write ""
else
response.write ""
end if
end if
for i=minpage to maxpage
if(cint(i)=cint(currentpage)) then
response.write "["&i&"]"
else
response.write "["&i&"]"
end if
next
if(cint(pagesum-currentpage)>0) then
response.write "下一页>>"
end if
response.write "
"
''以下是另一种分页显示界面
if currentpage=1 then
Response.Write " [最前页]"
Response.Write "[上一页]"
else
Response.Write "[最前页]"
Response.Write "[上一页]"
End If
''如果是最后一页
If cint(currentpage)下一页]"
Response.Write "[最末页]"
else
Response.Write "[下一页]"
Response.Write "[最末页]"
End If
end sub
end class
%>
conn.asp 数据库链结
0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
end if
end if
%>
大家看看，有什么看不懂的问我


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/17578/showart_105752.html