网络编程
位置:首页>> 网络编程>> Asp编程>> 自己用的ASP分页函数

自己用的ASP分页函数

作者:Rock 来源:asp之家 发布时间:2009-10-18 11:30:00 

标签:分页,函数

函数名:FenYe(url,pageCount,recordCount,curPage,cssstyle)        

功能:分页

参数:url当前页的网址;pageCount总页数; 

recordCount;总记录数;curPage当前页数; cssstyle连接的样式表 

示例:Call FenYe

("wangzhi.asp",rs.PageCount,rs.RecordCount,page,"class=''memu2''")  

Sub FenYe(url,pageCount,recordCount,curPage,cssstyle)
if url="" then Exit Sub
if inStr(url,"?")<>0 then
   if right(url,1)<>"?" then
    url=url&"&"
   end if 
else
   url=url&"?"
end if
if pagecount<=1 then exit sub
Response.Write "共"&recordCount &"条记录&nbsp;&nbsp;" & curPage & "/" & pageCount   & "页"
if curpage=1 then
   Response.Write "&nbsp;&nbsp;[首 页]&nbsp;&nbsp;[上 页]"
else
   Response.Write "&nbsp;&nbsp;<a "&cssstyle&" href=''"&url&"page=1''>[首 页]</a>&nbsp;&nbsp;<a "&cssstyle&" href=''"&url&"page="& curPage-1 &"''>[上 页]</a>"
end if
/>if Cint(curPage)=Cint(PageCount) then
   Response.Write "&nbsp;&nbsp;[下 页]&nbsp;&nbsp;[尾 页]"
else
   Response.Write "&nbsp;&nbsp;<a "&cssstyle&" href=''"&url&"page="& curPage+1 &"''>[下 页]</a>&nbsp;&nbsp;<a "&cssstyle&" href=''"&url&"page="& pageCount &"''>[尾 页]</a>"
end if
Response.Write "&nbsp;&nbsp;跳转到&nbsp;<select name=''select1'' size=''1'' onChange=''javascript:window.location.replace(this.options[this.selectedIndex].value)''>"
for i=1 to pageCount   
      Response.Write "<option" 
      If Cint(curPage) = i Then
         Response.Write " selected "
      End If
      Response.Write " value=''"&url&"page="&i&"''>第" & i & "页</option>"   
     next
Response.Write "</select>" 
End Sub

0
投稿

猜你喜欢

  • 测试代码:输出简单的ul li1.asp代码如下:<% response.write "<ul>" r
  • Photoshop Express,也就是传说中的web版photoshop,来了。和想象中的web photoshop相比,这个Photo
  • 看一个网站其实就好比品评一个美女。一看长相,我们很多时候关注的是视觉,比如老板经常会说,你做几个页面让我看看!二看身材,也有很多关注标准和s
  • 只要不是HTTP_REFERER来源于(google.com google.cn *.google.com *.google.cn baid
  • 发现一个非常强的CSS在线排版:CSS Text Wrapper只要你拖拽线条,你就可以得到你想要的文字版式CSS代码。可以让想让文本块呈现
  • 网站域名一般都会选简短易记的,因为这对于网站宣传来说也可以省不少力。而被很多网站忽视的站内Url结构则在一定程度上反映出网站的整体架构。当设
  • 如何检测某个对象是否有某个属性?第一想到的——没错,in:"prop" in obj这很完美,不过,还有不少人热衷下面的
  • 样式表是一种为超文本标签语言提供增强补充服务的技术,可对每一个html的标签做精雕细刻的修饰。只用html制作的网页,对页面内各部分的修饰能
  • #BEGIN CONFIG INFO#DESCR: 4GB RAM, 只使用InnoDB, ACID, 少量的连接, 队列负载大#TYPE:
  • 许多游戏玩家一定会对游戏中的动态鼠标指针有很深的印象,其实只要一句简单的CSS(层叠样式表),你也能在网页上实现这种效果。首先,你需要一个鼠
  • 我们的规范到底做到哪一步算是发挥良好的价值?其实一件事物我们理解错根本目的会导致出大不一样的结果,直接反应在设计师到底要体现什么的价值。想想
  • 简介如果你经常网上冲浪,这样参差不齐的多栏布局,是不是很眼熟啊?类似的布局,似乎一夜之间出现在国内外大大小小的网站上,比如 Pinteres
  •   组件:"Adodb.Stream"   有下列方法:   Canc
  • 开发过程中,错误免不了。为了纠正错误与规范化。可以使用MS SQL Server的系统存储过程sp_rename与OBJECTPROPERT
  • MySQL安装文件已被广泛应用但是也在不断的更新,这里介绍MySQL安装文件设置使用,帮助大家安装更新MySQL安装文件系统。Fedora5
  • 本文介绍了ORACLE客户端连服务器的注意事项:1. 通过SQL*NET协议,ORACLE客户端连服务器时一般需要配置sqlnet.ora和
  • 让长字符自动换行 (比如 URL 和 Email地址) 目的:让很长的字符串,能自动换行,但是不要把短的单词从中间断开。方法如下:<s
  • 近段时间由于修改一个ASP程序(有SQL注入漏洞),在网上找了很多相关的一些防范办法,都不近人意,所以我将现在网上的一些方法综合改良了一下,
  • 传统来说,大家在CSS中使用的颜色要么是16进制格式,要么是rgb格式,就像rgb(171,205,239)。CSS3带来了一些新的处理颜色
手机版 网络编程 asp之家 www.aspxhome.com