婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 我用ASP寫的m行n列的函數,動態輸出創建TABLE行列

我用ASP寫的m行n列的函數,動態輸出創建TABLE行列

熱門標簽:虛擬電話外呼系統 長春公司外呼系統中心 鄭州智能外呼電銷機器人廠家 廣東語音外呼系統公司 鄢陵學校如何做地圖標注 云南便宜外呼系統平臺 沈陽三五防封電銷卡 成都ai外呼系統線路 沈陽電話機器人公司
沒有用正常的循環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 pagenomaxpageno 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=strrpageno"/"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 imaxpagesize 
    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行列》,本文關鍵詞  我用,ASP,寫的,行,列,的,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《我用ASP寫的m行n列的函數,動態輸出創建TABLE行列》相關的同類信息!
  • 本頁收集關于我用ASP寫的m行n列的函數,動態輸出創建TABLE行列的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 姜堰市| 永顺县| 乌拉特中旗| 双桥区| 华宁县| 新余市| 融水| 奉节县| 绥棱县| 南充市| 莆田市| 嘉峪关市| 冀州市| 两当县| 保靖县| 环江| 洛宁县| 扎囊县| 伊金霍洛旗| 英吉沙县| 东城区| 长汀县| 高清| 姜堰市| 新野县| 永春县| 晋宁县| 克拉玛依市| 九龙县| 治多县| 蓬溪县| 柳河县| 孙吴县| 铜山县| 安塞县| 安化县| 登封市| 阿拉善左旗| 资溪县| 兴文县| 正定县|