当前位置:七道奇文章资讯网站建设网站编程
日期:2010-11-09 09:41:00  来源:本站整理

二款简单asp分页实例[网站编程]

赞助商链接



  本文“二款简单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"" "
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"" "
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分页实例
  • 本文地址: 与您的QQ/BBS好友分享!
    • 好的评价 如果您觉得此文章好,就请您
        0%(0)
    • 差的评价 如果您觉得此文章差,就请您
        0%(0)

    文章评论评论内容只代表网友观点,与本站立场无关!

       评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .