- 浏览: 220073 次
- 性别:
- 来自: 重庆
文章分类
最新评论
-
husw:
不错,感谢分享!
fixed仿淘宝工具栏效果(两种) -
08tankuai:
试了一下!还不错,谢谢。
利用CSS让容器的溢出部分内容隐藏起来,smarty就可以不用截取字符串了 -
m2maomao:
yxyysu 写道明 白 了。恩,非常easy的。
让框架Frameset居中,并且固定宽度的巧妙办法 -
yxyysu:
明 白 了。
让框架Frameset居中,并且固定宽度的巧妙办法 -
yxyysu:
楼主,这段代码是什么意思呢?
为什么能出现这样的效果呢?
让框架Frameset居中,并且固定宽度的巧妙办法
没有用正常的循环tr内循环td的方法,所以就没有计算最后一页的记录集数量。
但当记录集不足时也同样能够自动补空行空列,如有不足请指出,谢谢。
使用方法很简单:
<%
showData("查询语名")
Call pagehead(行数,列数)
'-------------------------------------------------------------------------------
'可以把下面的Response.Write()写到函数里面,看个人的爱好了。
Response.Write(FormatCRtable(表格宽度,表格高度))
Response.Write(PageFoot())
Call closeData()
%>
函数如下:
<%
'-------------------------------------------------------------------------------
'Copyright 2005 by Jorkin.All Rights Reserved
'-------------------------------------------------------------------------------
Public rs
Public pageno,Cols,Rows,maxpageno,maxredcount,maxpagesize
'-------------------------------------------------------------------------------
Public Function showData(sqlstrings)
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open sqlstrings,oconn,1,3
End Function
Public Function closeData()
rs.close
Set rs=Nothing
End Function
'初始化分页
'MaxRows =最大行数
'MaxCols =最大列数
'-------------------------------------------------------------------------------
Public Function PageHead(MaxRows,MaxCols)
'-------------------------------------------------------------------------------
Rows=MaxRows
Cols=MaxCols
maxpagesize=1
maxredcount=0
maxpageno=0
pageno=0
'-------------------------------------------------------------------------------
maxredcount = rs.recordcount
If maxredcount>0 then
maxpagesize = Rows*Cols
maxpageno = Cint((maxredcount+maxpagesize-1)/maxpagesize)
rs.pagesize = maxpagesize
pageno=Request("pageno")
If IsEmpty(pageno) Or Not IsNumeric(pageno) Or CInt(pageno)<1 Or CInt(pageno)>Rs.Pagecount Then
Pageno=1
End If
rs.absolutePage=pageno
End If
On Error Resume Next
End Function
'分页函数尾
'无参数
'-------------------------------------------------------------------------------
Public Function PageFoot()
strr="<table width=""500"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & VbCrLf
strr=strr&" <tr>" & VbCrLf
strr=strr&" <td valign=""top""><div align=""Right"">"
'大于1页才会显示首页和上一页(可选)
' If pageno>1 Then
strr=strr&"<a href=""?pageno=1"" title=""首页""><font face = Webdings>9</font></a>"
strr=strr&" "
strr=strr&"<a href=""?pageno="&pageno-1&""" title=""上一页""><font face = Webdings>7</font></a>"
' End If
strr=strr&" "&pageno&" "
'小于最大页数才会显示下一页和尾页(可选)
' If pageno<maxpageno Then
strr=strr&"<a href=""?pageno="&pageno+1&""" title=""下一页""><font face = Webdings>8</font></a>"
strr=strr&" "
strr=strr&"<a href=""?pageno="&maxpageno&""" title=""""><font face = Webdings>:</font></a>"
' End If
strr=strr&" "
strr=strr&(pageno-1)*maxpagesize+1&"/"&maxredcount&"条记录"
strr=strr&" "
strr=strr&pageno&"/"&maxpageno&"页"
strr=strr&"</div></td>" & VbCrLf
strr=strr&" </tr>" & vbCrLf
strr=strr&"</table>"
PageFoot=strr
End Function
'进行行列格式化函数
'TableWidth =表格宽度
'TableHeight =表格高度(因浏览器不同可能无效)
'-------------------------------------------------------------------------------
Public Function FormatCRtable(TableWidth,TableHeight)
Dim i,strr
i=0
strr=""
strr=strr&"<table width="""&TableWidth&""" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
strr=strr&" <tr>" & VbCrLf
If maxredcount>0 Then
Do While i<maxpagesize
i=i+1
If Not Rs.eof Then
strr=strr&" <td width="""&TableWidth/Cols&""" height="""&Tableheight/Rows&""">有记录则进行输出</td>" & vbCrLf
Rs.movenext
Else
strr=strr&" <td width="""&TableWidth/Cols&""" height="""&Tableheight/Rows&""">记录集不足时补余</td>" & VbCrLf
End If
If i Mod Cols = 0 Then
strr=strr&" </tr>" & VbCrLf
strr=strr&" <tr>" & vbCrLf
End If
Loop
Else
strr=strr&"<td height="""&TableWidth&""" valign=""top"">目前没有记录集</td>"
End if
strr=strr&" </tr>" & VbCrLf
strr=strr&"</table>" & VbCrLf
FormatCRtable=strr
End Function
%>
代码还有很多不足,而且写的也不是很严谨,见笑了。
以后可以会改为Class
发表评论
-
IIS出现An error occurred on the server when processing the URL. Please contact the
2012-02-21 10:38 1093今天把ASP程序部署到iis7,出现An error occ ... -
asp返回上一页,刷新,不刷新
2010-07-17 05:05 25741、返回上一页并刷新方法一:Response.Write(&q ... -
asp防注入代码
2009-07-09 14:22 1208<%StrTemp=request.servervari ... -
如何最准确地统计在线用户数?
2009-07-09 14:18 1097我们推荐的这个程序据说是目前最好的在线用户数量统计程序。代码如 ... -
ASP中FSO相关的一些函数
2009-07-09 14:17 671<%'//============文件操作======= ... -
ASP的URL重写技术(IIS的ISAPI)
2009-07-09 13:49 4307这两天捣鼓个程序,想 ... -
ASP中常用的函数
2009-07-09 13:43 692Array() FUNCTION: 返回一个数组 SYNT ... -
ASP+FSO应用实例篇
2009-07-09 13:42 684我们结合学过的东西,制做一个简单的生成HTML文文章系统,包含 ... -
asp学习入门经验谈
2009-07-09 13:40 601一.VBScript语法简介VBScript语句是一种基于VB ... -
一小时ASP入门
2009-07-09 13:38 616<%语句……%><2> ... -
ASP实用函数库3
2009-07-08 14:33 685Len() FUNCTION: 返回字符串的长度. SYNT ... -
ASP实用函数库2
2009-07-08 14:28 568Instr() FUNCTION: 返回字符或字符串在另 ... -
ASP实用函数库1
2009-07-08 14:20 654<%'判断文件名是否合法Function isFilen ... -
ASP生成静态页面的方法
2009-07-08 14:01 736ASP2HTML WITH TEMP ... -
平时看过的一些企业网站网址
2009-04-03 18:10 883http://www.qy5.com/http://ww ... -
ASP编程技巧大全--ASP编程有用的例子
2009-03-24 14:32 6111.如何用ASP判断你的网站的虚拟物理路径 答:使用Mapp ... -
ASP连接SQL2005的语句
2009-03-16 13:49 3390ASP连接SQL2005的语句 文:1T0F 图:无 hi.b ... -
asp实现返回上一页和转到另一页的功能函数
2008-12-11 17:42 1433asp实现返回上一页和转到另一页的功能函数 '函数名称: Al ... -
弹出窗口,转向下一页
2008-12-10 09:29 638Response.Write("<script ... -
ASP内置函数速查表
2008-11-27 16:04 811ASP内置函数速查表 作者:zhangtao 日期:20 ...
相关推荐
没有用正常的循环tr内循环td的方法,所以就没有计算最后一页的记录集数量。 但当记录集不足时也同样能够自动补空行空列,如有不足请指出,谢谢。 使用方法很简单: 代码如下:<% showData(“查询语名”) ...
2.3.6 创建和使用常量 2.3.7 创建并使用枚举 2.3.8 类型转换 2.4 编写表达式 2.4.1 表达式和运算符 2.4.2 运算符的优先级 2.5 使用条件语句 2.5.1 if语句的使用方法 2.5.2 switch选择语句的使用 2.6 使用循环语句 ...
2.3.6 创建和使用常量 2.3.7 创建并使用枚举 2.3.8 类型转换 2.4 编写表达式 2.4.1 表达式和运算符 2.4.2 运算符的优先级 2.5 使用条件语句 2.5.1 if语句的使用方法 2.5.2 switch选择语句的使用 2.6 使用循环语句 ...
2.3.6 创建和使用常量 2.3.7 创建并使用枚举 2.3.8 类型转换 2.4 编写表达式 2.4.1 表达式和运算符 2.4.2 运算符的优先级 2.5 使用条件语句 2.5.1 if语句的使用方法 2.5.2 switch选择语句的使用 2.6 使用循环语句 ...
虽然说学习ASP.NET不需要任何ASP基础,但是我觉得如果大家ASP不会,还是先看一下【十天学会ASP教程】,大家所需要了解的不是ASP的程序怎么写,而是怎么构建服务器,怎么使用HTML表单,同时对SQL语句有一个基础和理解...
2.3.6 创建和使用常量 2.3.7 创建并使用枚举 2.3.8 类型转换 2.4 编写表达式 2.4.1 表达式和运算符 2.4.2 运算符的优先级 2.5 使用条件语句 2.5.1 if 语句的使用方法 2.5.2 switch 选择语句的使用 2.6 使用循环语句 ...
2.3.6 创建和使用常量 2.3.7 创建并使用枚举 2.3.8 类型转换 2.4 编写表达式 2.4.1 表达式和运算符 2.4.2 运算符的优先级 2.5 使用条件语句 2.5.1 if语句的使用方法 2.5.2 switch选择语句的使用 2.6 使用循环语句 ...
INTERSECT 运算符通过只包括 TABLE1 和 TABLE2 中都有的行并消除所有重复行而派生出一个结果表。当 ALL 随 INTERSECT 一起使用时 (INTERSECT ALL),不消除重复行。 注:使用运算词的几个查询结果行必须是一致的...
2.3.6 创建和使用常量 2.3.7 创建并使用枚举 2.3.8 类型转换 2.4 编写表达式 2.4.1 表达式和运算符 2.4.2 运算符的优先级 2.5 使用条件语句 2.5.1 if语句的使用方法 2.5.2 switch选择语句的使用 2.6 使用循环语句 ...