asp快速开发方法之分页函数
log_Content
"自己常用的ASP分页代码,将以下代码放入你的函数文件内,在使用的文件内写上<!--#include file="调用文件.asp" />,可以直接拿来用的!
在需要调用的位置放上以下语句 程序代码
<%call pageList(总页数,每页行数,当前页,当前页URL,是否显示分页信息)%> 程序代码
function pageList(allNum,pagesize,page,pageUrl,showall)
dim temppage,tempvalue if Isnumeric(allNum) then
if int(allNum)<1 then allNum=1 end if
else
allNum=1
end if
if Isnumeric(pagesize) then
if int(pagesize)<1 then pagesize=10 end if
else
pagesize=10
end if
if Isnumeric(page) then
if int(page)<1 then page=1 end if
else
page=1
end if
allNum = int(allNum)
pagesize = int(pagesize)
page = int(page) temppage=fix(allNum/pagesize)
if allNum mod pagesize > 0 then temppage = temppage + 1 end if
if page>temppage then page=temppage end if
if pageUrl="" then pageUrl=Request.ServerVariables("SCRIPT_Name") end if
if instr(pageUrl,"?") = 0 then pageUrl = pageUrl & "?" end if
if Right(pageUrl,1) = "?" then pageUrl = pageUrl else pageUrl = pageUrl&"&" end if
if page > 10 then
tempvalue = tempvalue & "<a href="""&pageUrl&"page=1"" title=""第一页""><span style=""font-family:webdings"">9</span></a> "
end if
if page > 1 then
tempvalue = tempvalue & "<a href="""&pageUrl&"page="&(page-1)&""" title=""上一页""><span style=""font-family:webdings"">3</span></a> "
end if for i=1 to 10
if page-5+i>=1 and page-5+i<=temppage then
if page = page-5+i then
tempvalue = tempvalue & page-5+i
else
tempvalue = tempvalue & "[<a href="""&pageUrl&"page="&page-5+i&""">"
tempvalue = tempvalue & page-5+i
tempvalue = tempvalue & "</a>]"
end if
tempvalue = tempvalue & " "
end if
next if page < temppage then
tempvalue = tempvalue & "<a href="""&pageUrl&"page="&(page+1)&""" title=""下一页""><span style=""font-family:webdings"">4</span></a> "
end if
if page < temppage-10 then
tempvalue = tempvalue & "<a href="""&pageUrl&"page="&temppage&"""><span style=""font-family:webdings"" title=""最后页"">:</span></a> "
end if if showall = "all" or showall = true then
tempvalue = tempvalue & "页次:"&page&"/"&temppage&"页共"&allNum&"条记录 "&pagesize&"条/页"
end if
pageList = tempvalue
end function
asp快速开发方法之分页函数的更多相关文章
- PHPCMS快速建站系列之自定义分页函数
内容分页的实现方法:{pc:content action="lists" catid="$catid" order="id DESC" nu ...
- 快速开发之代码生成器(asp.net mvc4 + easyui + knockoutjs)
一.前言 作为一个码农这么多年,一直在想怎么提高我们的编码效率,关于如何提高编码效率,我自己的几点体会 1.清晰的项目结构,要编写代码的地方集中 2.实现相同功能的代码量少并且清晰易懂 3.重复或有规 ...
- 在ASP.NET Core中使用Apworks快速开发数据服务
不少关注我博客的朋友都知道我在2009年左右开发过一个名为Apworks的企业级应用程序开发框架,旨在为分布式企业系统软件开发提供面向领域驱动(DDD)的框架级别的解决方案,并对多种系统架构风格提供支 ...
- SNF快速开发平台MVC-瀑布式分页组件
1. 瀑布式分页 目前已经比较流行了,以往的这种点击分页已经不能满足广大网民的需求了.像百度图片等等,网站都有滚动滚轮直接分页的功能,这样体验也确实好了不少,所以我们也决定在我们的框架内进行集成此 ...
- SNF快速开发平台MVC-EasyUI3.9之-WebApi和MVC-controller层接收的json字符串的取值方法和调用后台服务方法
最近项目组很多人问我,从前台页面传到后台controller控制层或者WebApi 时如何取值和运算操作. 今天就都大家一个在框架内一个取值技巧 前台JS调用代码: 1.下面是选中一行数据后右键点击时 ...
- SNF快速开发平台MVC-EasyUI3.9之-ueditor富文本编辑在 asp.net MVC下使用步骤
mvc项目中用到了这个富文本编辑就试着把遇到的问题个使用步骤在这里记录一下,希望大家少走弯路. 1.首先我们先下载net版本的uediot 2.然后把整个文档拷贝到我们的项目中,记得是整个 把下载的文 ...
- ASP.NET开发常用简单实用的方法
ASP.NET开发简单实用的方法 一.打印和导出 打印和导出EXCEL在目前ASP.NET开发中可以说是必要的,有时候针对不同数据难易程度下,用有效快速的方法是解决办法的有效途径之一. 1.打印 后台 ...
- winform快速开发平台 -> 基础组件之分页控件
一个项目控件主要由及部分的常用组件,当然本次介绍的是通用分页控件. 处理思想:我们在处理分页过程中主要是针对数据库操作. 一般情况主要是传递一些开始位置,当前页数,和数据总页数以及相关关联的业务逻辑. ...
- LBPL--基于Asp.net、 quartz.net 快速开发定时服务的插件化项目
LBPL 这一个基于Asp.net. quartz.net 快速开发定时服务的插件化项目 由于在实际项目开发中需要做定时服务的操作,大体上可以理解为:需要动态化监控定时任务的调度系统. 为了实现快速开 ...
随机推荐
- EasyUI + Spring MVC + hibernate实现增删改查导入导出
(这是一个故事--) 前言 作为一个JAVA开发工程师,我觉得最基本是需要懂前端.后台以及数据库. 练习的内容很基础,包括:基本增删改查.模糊查询.分页查询.树菜单.上传下载.tab页 主管发我一个已 ...
- hbase0.96与hive0.12整合高可靠文档及问题总结
本文链接:http://www.aboutyun.com/thread-7881-1-1.html 问题导读:1.hive安装是否需要安装mysql?2.hive是否分为客户端和服务器端?3.hive ...
- The usage method of reference with bibtex in Latex【latex中参考文献的使用方法】
如何在latex中以Bibtex文件方式引用参考文献? 以IEEEtran模板为例: 1.制作bibtex参考文献库.方法如下: ①建立myreference.bib文件: ②在Google scho ...
- A Tour of Go Mutating Maps
Insert or update an element in map m: m[key] = elem Retrieve an element: elem = m[key] Delete an ele ...
- 转载C#函数式程序设计初探——基础理论篇
转载网址:http://www.cnblogs.com/Hlia/archive/2013/04/20/3029701.html 个人认为,C#语言的某些设计并不非常适合函数式开发,比如它的类型推断并 ...
- xml--通过SAX解析XML
SAX的全称是Simple APIs for XML,也即XML简单应用程序接口.与DOM不同,SAX提供的访问模式是一种顺序模式,这是一种快速读写XML数据的方式.当使用SAX分析器对XML文档进行 ...
- [struts2]jstl标签用法技巧
1.<c:if test="${var} != null"></c:if> 2. <c:foreach var="singleVar&quo ...
- 【美妙的Python之中的一个】Python简单介绍及环境搭建
美妙的Python之Python简单介绍及安装 简而言之: Python 是能你无限惊喜的语言,与众不同. 1.Python: ...
- KeyTweak 键盘按键功能修改
最近一致再用ThinkPad S3,悲剧的是上翻页和下翻页竟然和方向键在一起,经常按错光标不知道去哪里了. 实在忍受不了,竟然有这样的软件,哈哈. KeyTweak,用起来太方便了
- CDOJ 1157 数列(seq) 分块+线段树
数列(seq) Time Limit: 1 Sec Memory Limit: 256 MB 题目连接 http://acm.uestc.edu.cn/#/problem/show/1157 Desc ...