二款简单实用asp分页实例
分页一
*/
function showpage(url)
dim ii,n
if totalnumber mod maxperpage=0 then
n= totalnumber maxperpage
else
n= totalnumber maxperpage 1
end if
response.write "<table cellspacing=1 width='100%' border=0><form method=post action=?"&url&"><tr><td align=center> "& vbcrlf
if currentpage<2 then
response.write " 首页 上页 "
else
response.write " <a href=?page=1&"&url&" class=""showpage"">首页</a> "
response.write "<a href=?page="¤tpage-1&"&"&url&" class=""showpage"">上页</a> "
end if
if n-currentpage<1 then
response.write "下页 尾页 "& vbcrlf
else
response.write "<a href=?page="&(currentpage 1)&"&"&url&" class=""showpage"">下页</a>"
response.write " <a href=?page="&n&"&"&url&" class=""showpage"">尾页</a>"& vbcrlf
end if
response.write " <strong><font color=red>"¤tpage&"</font>/"&n&"</strong> 页 "
response.write " "& vbcrlf
response.write " 转到: "
response.write " <select name='page' size='1' style=""font-size: 9pt"" onchange='网页特效:submit()'>"& vbcrlf
for ii = 1 to n
response.write " <option value='"&ii&"' "
if currentpage=cint(ii) then
response.write "selected "
end if
response.write ">第 "&ii&" 页</option>"
next
response.write " </select> " & vbcrlf
response.write "</td></tr></form></table>"& vbcrlf
end function
//分页函数二
function showpagee(url)
dim ii,n
if totalnumber mod maxperpage=0 then
n= totalnumber maxperpage
else
n= totalnumber maxperpage 1
end if
response.write "<table cellspacing=1 width='100%' border=0><form method=post action=?"&url&"><tr><td align=center> "& vbcrlf
if currentpage<2 then
response.write "first previous "
else
response.write " <a href=?page=1&"&url&" class=""showpage"">first</a> "
response.write "<a href=?page="¤tpage-1&"&"&url&" class=""showpage"">previous</a> "
end if
if n-currentpage<1 then
response.write "next final page"& vbcrlf
else
response.write "<a href=?page="&(currentpage 1)&"&"&url&" class=""showpage"">next</a>"
response.write " <a href=?page="&n&"&"&url&" class=""showpage"">final page</a>"& vbcrlf
end if
response.write " <strong><font color=red>"¤tpage&"</font>/"&n&"</strong> page"
response.write ""& vbcrlf
response.write " goto:"
response.write "<select name='page' size='1' style=""font-size: 9pt"" onchange='javascript:submit()'>"& vbcrlf
for ii = 1 to n
response.write " <option value='"&ii&"' "
if currentpage=cint(ii) then
response.write "selected "
end if
response.write ">no."&ii&"</option>"
next
response.write " </select> " & vbcrlf
response.write "</td></tr></form></table>"& vbcrlf
end function
您可能感兴趣的文章:
asp入门教程:ASP Request 简单介绍
ASP 教程
有关微软新一代开发技术ASP 的介绍
即刻完成你的ASP.NET程序
ASP.NET Web 页面
asp 与asp的区别(1)
ASP与JSP的比较(一)
ASP Request 对象
ASP 3.0高级编程(十一)
ASP+与ASP有哪些区别