南强小屋 Design By 杰米
没有用正常的循环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
标签:
我用ASP写的m行n列的函数,动态输出创建TABLE行列

南强小屋 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
南强小屋 Design By 杰米

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

暂无我用ASP写的m行n列的函数,动态输出创建TABLE行列的评论...

稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!

昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?