我用ASP写的m行n列的函数,动态输出创建TABLE行列_应用技巧

没有用正常的循环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
转自:http://jorkin.reallydo.com/article.asp?id=15

时间: 2025-01-01 14:22:56

我用ASP写的m行n列的函数,动态输出创建TABLE行列_应用技巧的相关文章

我用ASP写的m行n列的函数,动态输出创建TABLE行列

没有用正常的循环tr内循环td的方法,所以就没有计算最后一页的记录集数量. 但当记录集不足时也同样能够自动补空行空列,如有不足请指出,谢谢. 使用方法很简单: 复制代码 代码如下: <%  showData("查询语名")  Call pagehead(行数,列数)  '-------------------------------------------------------------------------------  '可以把下面的Response.Write()写到

asp.net 动态输出透明gif图片_实用技巧

查了国内几个中文资料都没解决,最后是在一个英文博客上找到一个可以用的办法.他的解决代码是: 代码 复制代码 代码如下: //存成gif.ashx <%@ WebHandler Language="C#" Class="Gif" %> using System.IO; using System.Web; using System.Drawing; public class Gif : IHttpHandler { /// <summary> /

C++编程五子棋。。对于棋盘的行列标号(20行20列)和“+”界面输出为什么会这样的?

问题描述 C++编程五子棋..对于棋盘的行列标号(20行20列)和"+"界面输出为什么会这样的? #include using namespace std; class five { int x,y,m,n,num_xy,num_mn; char qipan[20][20]; public: five(int X = 0,int Y =0,int M = 0,int N = 0,int Num_xy = 0,int Num_mn = 0) { x = X; y = Y; m = M;

对GridView的行加颜色并弹出Kindeditor的实现思路_实用技巧

前台代码: 复制代码 代码如下: <head runat="server"> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <title></title> <script type="text/javascript"> function tureDelete() { if (c

ASP.NET批量操作基于原生html标签的无序列表的三种方法_实用技巧

在网页开发中,经常要用到无序列表.事实上在符合W3C标准的div+css布局中,无序列表被大量使用,ASP.NET虽然内置了BulletedList控件,用于创建和操作无序列表,但感觉不太好用.本篇介绍服务器端ASP.NET批量操作基于原生html标签的无序列表的三种方法. 方法一,将li元素做成html控件,加上id,用FindControl方法. aspx代码: <form id="form1" runat="server"> <ul>

C# XML操作 代码大全(读XML,写XML,更新,删除节点,与dataset结合等)第1/2页_实用技巧

已知有一个XML文件(bookstore.xml)如下: Corets, Eva 5.95 1.插入节点 往节点中插入一个节点: 复制代码 代码如下: XmlDocument xmlDoc=new XmlDocument(); xmlDoc.Load("bookstore.xml"); XmlNode root=xmlDoc.SelectSingleNode("bookstore");//查找 XmlElement xe1=xmlDoc.CreateElement(

ASP 写的判断 Money 各个位值的函数

最近在公司做一个帐务报销系统.需要把一个MONEY值的个位十位百位千位还有角啊分啊的单独取出来生成表格.于是写了一个得到此值的 Function ,放到这里共享.如果你看到有写得不妥的地方,请给我来 killhand007@163.com 指正交流.Function Moneynm(n,m) checkPoint = InstrRev(n,".") If n>9999.99 Then Response.write"数据超过限制,请确定您的报销金额在9999.99元以内!

ASP.NET中的DataGridView绑定数据和选中行删除功能具体实例_实用技巧

首现我们拖入一个DataGridView控件到.aspx页面中,然后绑定你需要显示的列,具体代码如下. 复制代码 代码如下:  <asp:GridView ID="gvDepartList" runat="server" AutoGenerateColumns="False"          Height="108px" Width="600px"  OnRowDeleting="gvDe

详解在ASP.NET Core中使用Angular2以及与Angular2的Token base身份认证_实用技巧

Angular2是对Angular1的一次彻底的,破坏性的更新. 相对于Angular1.x,借用某果的广告语,唯一的不同,就是处处都不同. •首先,推荐的语言已经不再是Javascript,取而代之的TypeScript,(TypeScript = ES6 + 类型系统 + 类型注解), TypeScriipt的类型系统对于开发复杂的单页Web app大有帮助,同时编译成javascript后的执行效率也比大多数手写javascript要快.有兴趣的同学可以查阅官方文档:英文传送门 |中文传送