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 快速开发定时服务的插件化项目 由于在实际项目开发中需要做定时服务的操作,大体上可以理解为:需要动态化监控定时任务的调度系统. 为了实现快速开 ...
随机推荐
- Serach
1.二分查找 public class BubbleSort { public static int binarySerach(int[] a,int value){ int low=0; int h ...
- Eclipse hangs on loading workbench, eclipse停在启动界面的处理办法
http://stackoverflow.com/questions/8972034/eclipse-hangs-on-loading-workbench 解答一: In most cases, rm ...
- 如何使用 SPICE client (virt-viewer) 来连接远程虚拟机桌面?
如何使用 SPICE client (virt-viewer) 来连接远程虚拟机桌面? 什么是SPICE? SPICE (Simple Protocol for Independent Computi ...
- openstack iptables
- Linux shell 常用
使用Linux shell是我每天的基本工作,但我经常会忘记一些有用的shell命令和l技巧.当然,命令我能记住,但我不敢说能记得如何用它执行某个特定任务.于是,我开始在一个文本文件里记录这些用法,并 ...
- 第二十章、启动流程、模块管理与 Loader
核心与核心模块 在整个启动的过程当中,是否能够成功地驱动我们主机的硬件配备, 是核心 (kernel) 的工作!而核心一般都是压缩档,因此在使用核心之前,就得要将它解压缩后, 才能加载主内存当中. 另 ...
- hdoj 2084 数塔
数塔 Time Limit: 1000/1000 MS (Java/Others) Memory Limit: 32768/32768 K (Java/Others)Total Submissi ...
- 转载ASP.NET 状态管理Application,Session,Cookie和ViewState用法
转载原地址 http://www.cnblogs.com/cuishao1985/archive/2009/09/24/1573403.html ASP.NET状态管理 APPlication,Ses ...
- VB二进制文件读写
数组存取 存数组 Private Sub Command2_Click() Dim fileNumber As Integer Dim S9 As String Dim k As Integer Di ...
- java.io.File中的pathSeparator与separator的区别
先总的说一下区别:File.pathSeparator指的是分隔连续多个路径字符串的分隔符,例如:java -cp test.jar;abc.jar HelloWorld就是指“;” Fi ...