联系站长 加入收藏 设为首页 繁體中文 RSS
  首页 | 生活百科 | 电脑网络 | 高手学堂 | 语录名言 | 读书文学 | 极品软件 | 奇趣图片 | 站长微博  
 您的位置: 精品百字节网 >> 电脑网络 >> 网络编程 >> 编程问题 >> 正文 当前没有通告!
   □  万能通用分页函数   4星级
万能通用分页函数
[ 作者:作者不详     来源:互连网     点击数:     更新时间:2007-11-09     文章录入:Admin
【字体:
[内容提要]
暂无简介

万能通用分页函数

<% 
’===========通用分页函数V1.0======================================================== 
’=作者:天雨寒版本V1.0 
’=适用语言:ASP 
’=联系方式:QQ:2052020 邮箱wind_zifeiyu@hotmail.com DT网站:http://xu-ni.net 
’=完成时间:2005.04.21 
’=实现功能:通用分页方便使用 
’=使用方法:本文件另存为DTPAGE.ASP然后需要分页的地方INCLUDE该文件然后 CALL DTpage(.......)调用就OK!格式<!--#INCLUDE FILE="DTPAGE.ASP"--><%CALL DTpage(DTpagesize,DTpartsize,DTboard,DTredirect,DTerr,DTtitle,DTlink,DTmessage,DTtime,DTpagesql,DTmore,DTwidth,DTbgcolore,DTtimetype)%> 
’=变量解释: DTpagesize每页显示文章数量 
’ DTpartsize每页显示页数超过采用">>"显示 
’ DTboard 传递过来的参数名 
’ DTredirect分页跳转的页面,默认空就可以,如果是包含页面则填写外面页面地址 
’ DTerr 不存在分页内容的时候报错文字 
’ DTtitle 调用的显示标题数据库中字段名 
’ DTlink标题链接地址 
’ DTmessage 调用的显示内容数据库中字段名 
’ DTtime调用的显示时间数据库中字段名 
’ DTpagesql SQL数据库SELECT语句 
’ DTmore分页中传递的其他字段或者字符例子 "&NAME=天雨寒" 
’ DTwidth 表格宽度 百分比或者象素 
’ DTbgcolore间隔背景颜色 
’ DTtimetype时间类型:"1"仅仅显示出月日;""显示出年月日时分秒 
’===========想实现更多的功能可以参照程序来实施=============================== 
sub DTpage(DTpagesize,DTpartsize,DTboard,DTredirect,DTerr,DTtitle,DTlink,DTmessage,DTtime,DTpagesql,DTmore,DTwidth,DTbgcolore,DTtimetype) 
DTPAGESIZE=cint(DTpagesize) 
DTPARTSIZE=cint(DTpartsize) 
Aboardid=trim(request(DTboard)) 
%> 
<TABLE width=<%=DTwidth%> border=0 align="center" cellPadding=0 cellSpacing=0 id=Table6> 
<TBODY> 
<TR> 
<TD> </TD> 
</TR> 
<TR vAlign=top> 
<TD align=middle> 
<table width="100%" border="0"cellspacing="5" cellpadding="0"> 
<tr> 
<td> 
<% 
dim DTpagecount,page,Spage,Epage,recordcount,i 
page = request.querystring("page") 
if page = "" or IsNull(page) then page = 1 
if not IsNumeric(page) then page = 1 
page = Cint(page) 
set DTpageRS = server.CreateObject ("Adodb.recordset") 
DTpageSQL=DTPAGESQL 
DTpageRS.open DTpageSQL,conn,1,1 
if not DTpageRS.eof then 
recordcount = DTpageRS.RecordCount 
DTpageRS.PageSize = DTPAGESIZE 
DTpagecount = DTpageRS.pagecount 
if page < 1 then 
page = 1 
elseif page > DTpagecount then 
page = DTpagecount 
end if 
if DTpageRS.EOFthen 
 Response.Write("<center><font color=red>目前还没有内容</font>") 
else 
if recordcount > 0 then DTpageRS.AbsolutePage = page 
%> 
 <table width="100%" border="0" cellspacing="3" cellpadding="0"> 
 <% 
for i = 1 to DTPAGESIZE 
if DTpageRS.EOF then exit for 
’判断日期的显示样式 
if DTtimetype="1" then 
if len(day(DTpageRS(DTtime)))=1 then 
day1="0"&day(DTpageRS(DTtime)) 
else 
day1=day(DTpageRS(DTtime)) 
end if 
if len(month(DTpageRS(DTtime)))=1 then 
mon1="0"&month(DTpageRS(DTtime)) 
else 
mon1=month(DTpageRS(DTtime)) 
end if 
temptime =mon1 & "月" & day1 & "日" 
else 
temptime=DTpageRS(DTtime) 
end if 
’判断日期显示时间结束 
if int(i/2)=i/2 then%> 
<tr bgcolor="<%=DTbgcolore%>"> 
<%end if%> 
<td width="60%" height="25" ><%=i%>. 
<% 
if DTlink="" then 
RESPONSE.WRITE DTpageRS(DTtitle) 
else 
’id是详细页面判断ID, DTpageRS("ID")是库里面这条的流水号 
response.write "<a href="&DTlink&"?ID="&DTpageRS("ID")&">"&DTpageRS(DTtitle)&"</A>" 
end if%> 
</td> 
<td height="25"><font color=#999999><%=temptime%></font><font color=#999999>&nbsp; </font></td> 
</tr> 
<% 
 
DTpageRS.MoveNext() 
next%></ul> 
</table> 
<% 
end if 
 if DTpagecount > 0 then 
 response.write("<table width=""95%"" align=center cellspacing=3 cellpadding=3><tr><td align=right>") 
 response.write("页次:<font color=red><b>" & page & "</font>/" & DTpagecount & "</b>&nbsp;&nbsp;每页<b>" & pagesize & "</b>&nbsp;&nbsp;共<b>" & recordcount & "</b>&nbsp;&nbsp;分页:") 
 Spage = page mod DTPARTSIZE 
 if page > DTPARTSIZE then 
 if Spage = 0 then Spage = DTPARTSIZE 
 Spage = page - Spage + 1 
 else 
 Spage = 1 
 end if 
 Epage = Spage + DTPARTSIZE - 1 
 if Epage > DTpagecount then Epage = DTpagecount 
 if page > DTPARTSIZE then 
 response.write("<a href="""&DTdirect&"?"&DTborad&"=" & Aboardid& DTmore& "&page=" & Spage - 1 & """>[<<]</a>") 
 end if 
 for i = Spage to Epage 
 if i = page then 
 response.write("[<font color=red><b>" & i & "</b></font>]") 
 else 
 response.write("[<a href="""&DTdirect&"?"&DTboard&"=" & Aboardid& DTmore& "&page=" & i & """>" & i & "</a>]") 
 end if 
 next 
 if Epage < DTpagecount then 
 response.write("<a href="""&DTdirect&"?"&DTboard&"=" & Aboardid & DTmore& "&page=" & Epage + 1 & """>[>>]</a>") 
 end if 
 if Spage <> 1 then response.write("[<a href="""&DTdirect&"?"&DTboard&"=" & Aboardid & DTmore& "&page=1"">首页</a>]") 
 if Epage <> DTpagecount then response.write("[<a href="""&DTdirect&"?"&DTboard&"=" & Aboardid& DTmore & "&page=" & DTpagecount & """>尾页</a>]") 
 response.write("</td></tr></table>") 
end if 
else 
response.write DTerr 
end if 

DTpageRS.close 
set DTpageRS=nothing 
%> 
</td> 
</tr> 
</table> 
</TD> 
</TR> 
</TBODY> 
</TABLE> 
<%end sub%> 

上一篇文章:ASP随机数的学习 下一篇文章:用Asp实现QQ在线查询功能
发表评论 □告诉好友 □打印此文 □收藏此页 □关闭窗口 □返回顶部
 最新热点文章
 精品医院类网站网址大收集
 如何删除windows 2003或xp系统隐藏的...
 DedeCms管理员后台登陆经常自动退出的...
 知道IP如何用dos命令查出电脑名称
 WORD出错老是要求以安全模式打开文件...
 如何设置首页不显示页眉页脚?
 如何利用inurl命令查询网站外链及栏目...
 
 最新推荐文章
 精品医院类网站网址大收集
 如何利用宽带路由器控制局域网内电脑上...
 CSS圆角代码的实现方法
 带停顿的单行文字滚动代码
 实用的新网站免费收录提交地址精选
 Left join , Right Join, Inner Join用...
 趣话淘宝网衍生的多种新型职业
 
 最新图文
  ◇  网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
关于本站 | 免责申明 | 网站地图 | 联系站长 | 友情链接 | 与我同在
冀ICP备06032589号【虚拟化精英群虚拟化精英群续
  Copyright© 2006-2009 100byte.Com All Rights Reserved
网站声明:本网站是公益性质网站,部分内容来源于网络,如有侵犯您权利的地方,请与精品百字节站长联系,尽快修正.
Powered By CreateLive CMS 本站法律顾问:(冀港)武镇海律师
点击这里给我发消息