Jquery中文网 www.jquerycn.cn
Jquery中文网 >  脚本编程  >  Asp.net  >  正文 二款简单实用asp分页实例

二款简单实用asp分页实例

发布时间:2016-09-25   编辑:www.jquerycn.cn
jquery中文网为您提供二款简单实用asp分页实例等资源,欢迎您收藏本站,我们将为您提供最新的二款简单实用asp分页实例资源

分页一
*/

<blockquote>

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 "  首页 &nbsp;&nbsp;上页&nbsp;&nbsp;&nbsp;"
   else
      response.write " <a href=?page=1&"&url&" class=""showpage"">首页</a>&nbsp;&nbsp;"
      response.write "<a href=?page="&currentpage-1&"&"&url&" class=""showpage"">上页</a>&nbsp;&nbsp;&nbsp;"
   end if

   if n-currentpage<1 then
      response.write "下页&nbsp;&nbsp;尾页 "& vbcrlf
   else
      response.write "<a href=?page="&(currentpage 1)&"&"&url&" class=""showpage"">下页</a>"
      response.write "&nbsp;&nbsp;<a href=?page="&n&"&"&url&" class=""showpage"">尾页</a>"& vbcrlf
   end if
    response.write "&nbsp;<strong><font color=red>"&currentpage&"</font>/"&n&"</strong> 页 "
     response.write "&nbsp;"& vbcrlf
     response.write "&nbsp;转到: "
     response.write "&nbsp;<select name='page' size='1' style=""font-size: 9pt"" onchange='网页特效:submit()'>"& vbcrlf
    for ii = 1 to n
         response.write "&nbsp;<option value='"&ii&"' "
          if currentpage=cint(ii) then
               response.write "selected "
          end if
          response.write ">第 "&ii&" 页</option>"
    next
     response.write "&nbsp;</select> " & vbcrlf
 response.write "</td></tr></form></table>"& vbcrlf
end function

</blockquote>


//分页函数二

<blockquote>

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 &nbsp;previous&nbsp;"
   else
      response.write " <a href=?page=1&"&url&" class=""showpage"">first</a>&nbsp;"
      response.write "<a href=?page="&currentpage-1&"&"&url&" class=""showpage"">previous</a>&nbsp;"
   end if

   if n-currentpage<1 then
      response.write "next&nbsp;final page"& vbcrlf
   else
      response.write "<a href=?page="&(currentpage 1)&"&"&url&" class=""showpage"">next</a>"
      response.write "&nbsp;<a href=?page="&n&"&"&url&" class=""showpage"">final page</a>"& vbcrlf
   end if
    response.write "&nbsp;<strong><font color=red>"&currentpage&"</font>/"&n&"</strong> page"
     response.write ""& vbcrlf
     response.write "&nbsp;goto:"
     response.write "<select name='page' size='1' style=""font-size: 9pt"" onchange='javascript:submit()'>"& vbcrlf
    for ii = 1 to n
         response.write "&nbsp;<option value='"&ii&"' "
          if currentpage=cint(ii) then
               response.write "selected "
          end if
          response.write ">no."&ii&"</option>"
    next
     response.write "&nbsp;</select> " & vbcrlf
 response.write "</td></tr></form></table>"& vbcrlf
end function

</blockquote>

您可能感兴趣的文章:
asp入门教程:ASP Request 简单介绍
ASP 教程
有关微软新一代开发技术ASP 的介绍
即刻完成你的ASP.NET程序
ASP.NET Web 页面
asp 与asp的区别(1)
ASP与JSP的比较(一)
ASP Request 对象
ASP 3.0高级编程(十一)
ASP+与ASP有哪些区别

[关闭]