服务器之家：专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - ASP数据岛操作类

ASP数据岛操作类

2019-10-18 11:20asp代码网 ASP教程

ASP数据岛操作类,需要的朋友可以参考一下.

  1. <%  
  2. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
  3. '            Programming By Smartpig                              '  
  4. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
  5. Class TBGrid  
  6.     public DataSource                '数据源  
  7.     public style                     '表格总风格  
  8.     public HeadStyle                 '表头风格  
  9.     public HeadItemStyle             '表头单独风格  
  10.     public itemStyle                 '单元格独立网络  
  11.     public HeadSort      '表头是否显示排序功能  
  12.     public Columns                   '需要显示的列元素  
  13.     public Alternate                 '是否交替风格  
  14.     public AlternateStyle            '偶数行风格  
  15.     public NormalStyle               '正常风格  
  16.     public DefaultStyle              '默认风格簇  
  17.     public PageSize                  '页大小  
  18.     public AllowPageing              '是否分页  
  19.     public PageingStyle              '页数风格  
  20.  
  21.     Private Templates                '自定义单元项  
  22.     private CurPage                   '当前页  
  23.     private PageStart     '页面开始运行时间  
  24.  
  25.     '内容之间的关系  
  26.     'Columns.add "Field","HeadText"  
  27.     'AddTemplate("HeadText",Template)  
  28.     'itemStyle.add "Field","style:adsasd"  
  29.     'HeadSort.add "Field",True  
  30.     'DataSource(Columns.Keys(i))  
  31.  
  32.     Private Sub Class_Initialize   ' 设置 Initialize 事件。  
  33.         Set itemStyle  = CreateObject("Scripting.Dictionary")  
  34.         Set HeadSort  = CreateObject("Scripting.Dictionary")  
  35.         Set HeadItemStyle = CreateObject("Scripting.Dictionary")  
  36.         Set Columns   = CreateObject("Scripting.Dictionary")  
  37.         Set Templates  = CreateObject("Scripting.Dictionary")  
  38.         Set DataSource  = CreateObject("ADODB.Recordset")  
  39.         Alternate   = 0  
  40.         PageStart = Timer  
  41.     End Sub  
  42.  
  43.     Private Sub Class_Terminate   ' 设置 Terminate 事件。  
  44.         Set itemStyle  = Nothing  
  45.         Set HeadSort  = Nothing  
  46.         Set HeadItemStyle = Nothing  
  47.         Set Columns   = Nothing  
  48.         Set DataSource  = Nothing  
  49.     End Sub  
  50.  
  51.     Private Sub InitTable()  
  52.         'Set FieldsNum    = DataSource.Fields.Count  
  53.         'Set RowsNum     = DataSource.RecordCount  
  54.         if Columns.Count = 0 then  
  55.             For i = 0 to DataSource.Fields.Count -1  
  56.                 Columns.add DataSource.Fields(i).Name,DataSource.Fields(i).Name  
  57.                 response.Write(DataSource.Fields(i).Name)  
  58.             Next  
  59.         end if  
  60.  
  61.         if IsEmpty(Style) and IsEmpty(NormalStyle) then  
  62.             DefaultStyle = 1  
  63.         Else  
  64.             DefaultStyle = Style  
  65.         end if  
  66.  
  67.         CurPage = CInt(Request.QueryString("page"))  
  68.         if CurPage = "" then  
  69.             CurPage = 1  
  70.         End If  
  71.  
  72.         if PageSize = Empty then  
  73.             PageSize = 10  
  74.         end if  
  75.  
  76.         select Case DefaultStyle  
  77.         Case 1  
  78.             Style     ="align=center border=0 cellpadding=4 cellspacing=1 bgcolor='#cccccc'"  
  79.             Alternate    = 1  
  80.             HeadStyle    = "Height=25 style=""background-color:#006699;color:#ffffff"""  
  81.             AlternateStyle   = "bgColor=#ffffff height=25"  
  82.             NormalStyle    = "height=25 bgcolor=#f5f5f5"  
  83.             AllowPageing   = true  
  84.             tbGrid1.PageingStyle = "bgcolor='#f5f5f5' align='right'"  
  85.         Case 2  
  86.             Style     ="align=center border=0 cellpadding=4 cellspacing=1 bgcolor='#cccccc'"  
  87.             Alternate    = 0  
  88.             HeadStyle    = "Height=25 style=""background-color:#ffffff"""  
  89.             AlternateStyle   = "bgColor=#ffffff height=25"  
  90.             NormalStyle    = "height=25 bgcolor=#ffffff"  
  91.         Case Else  
  92.         End Select  
  93.     End sub  
  94.  
  95.     public Sub AddTemplate(ByVal ColumnName,ByVal Template)  
  96.         Columns.add ColumnName,ColumnName  
  97.         Templates.add ColumnName,Template  
  98.     End Sub  
  99.  
  100.     public Sub Show()  
  101.         InitTable()  
  102.         Dim tableStr  
  103.         Dim tdStart,tdEnd,tbStyle,tbContent  
  104.         Dim curRow  
  105.         Dim clm  
  106.         Dim regEx,Match,Matches  
  107.         tableStr = "<table "&style&">" & vbCrLF  
  108.         'Draw Table Head  
  109.         Response.Write(tableStr)  
  110.         Response.Write("<tr>")  
  111.         for Each clm in Columns.Keys()  
  112.             tbStyle = HeadStyle & " " & HeadItemStyle(clm)  
  113.             tdStart = "<th "&tbStyle&">"  
  114.             tdEnd = "</th>" & vbCrLf  
  115.  
  116.             Response.Write(tdStart)  
  117.             '加入表头排序功能  
  118.             'Code by Redsun  
  119.             'Date:2005-1-17  
  120.             If HeadSort(clm) Then  
  121.                 Response.Write Sort(clm,Columns(clm))  
  122.             Else  
  123.                 Response.Write(Columns(clm))  
  124.             End If  
  125.             Response.Write(tdEnd)  
  126.         Next  
  127.         Response.Write("</tr>" & vbCrLF)  
  128.  
  129.         'Draw Table items  
  130.         curRow = 1  
  131.         if AllowPageing <> Empty then  
  132.             DataSource.PageSize = PageSize  
  133.         else  
  134.             DataSource.PageSize = DataSource.RecordCount  
  135.         end if  
  136.  
  137.         if CurPage < 1 then  
  138.             DataSource.AbsolutePage = 1  
  139.         end if  
  140.  
  141.         if CurPage >= DataSource.PageCount then  
  142.             DataSource.AbsolutePage = DataSource.PageCount  
  143.         end if  
  144.  
  145.         if CurPage >= 1 and CurPage <= DataSource.PageCount then  
  146.             DataSource.AbsolutePage = CurPage  
  147.         end if  
  148.  
  149.         for curRow = 1 to DataSource.PageSize  
  150.             if DataSource.EOF then  
  151.                 Exit For  
  152.             end if  
  153.  
  154.             Response.Write("<tr>")  
  155.             for Each clm in Columns.Keys()  
  156.                 if Alternate = 0 then  
  157.                     tbStyle = NormalStyle & " " & ItemStyle(clm)  
  158.                 else  
  159.                     if curRow mod 2 = 0 then  
  160.                         tbStyle = AlternateStyle & " " & ItemStyle(clm)  
  161.                     else  
  162.                         tbStyle = NormalStyle & " " & ItemStyle(clm)  
  163.                     end if  
  164.                 end if  
  165.  
  166.                 tdStart = "<td "&tbStyle&">"  
  167.                 tdEnd = "</td>" & vbCrLf  
  168.  
  169.                 if Templates(clm) = Empty then  
  170.                     tbContent = DataSource(clm)  
  171.                 else  
  172.                     tbContent = Templates(clm)  
  173.                     Set regEx = New RegExp  
  174.                     regEx.Pattern= "{[A-Za-z0-9_-]+}"  
  175.                     regEx.IgnoreCase = True  
  176.                     regEx.Global = True  
  177.                     Set Matches=regEx.Execute(Templates(clm))  
  178.                     For each match in matches  
  179.                         On Error Resume Next  
  180.                         tbContent = Replace(tbContent,Match.Value,DataSource(Mid(Match.Value,2,Len(Match.Value)-2)),1)   
  181.                     Next  
  182.  
  183.                 end if  
  184.  
  185.                 Response.Write(tdStart)  
  186.                 Response.Write(tbContent)  
  187.                 Response.Write(tdEnd)  
  188.             Next  
  189.             Response.Write("</tr>" & vbCrLF)  
  190.  
  191.             DataSource.MoveNext  
  192.         Next  
  193.  
  194.         'Draw Pageing Row  
  195.         if DataSource.PageCount > 1 and LCase(pageingStyle) <> "none" then  
  196.             Dim i,EndPage,StartPage  
  197.             response.write("<tr>")  
  198.             response.write("<td colspan=" & Columns.Count & " " & PageingStyle & ">")  
  199.             '改进分页功能  
  200.             'Code by Redsun  
  201.             'Date:2005-1-17  
  202.             If CurPage>4 Then  
  203.                 If CurPage+2<DataSource.PageCount Then  
  204.                     StartPage = CurPage-2  
  205.                     EndPage = CurPage+2  
  206.                 Else  
  207.                     StartPage = DataSource.PageCount-4  
  208.                     EndPage = DataSource.PageCount  
  209.                 End If  
  210.             Else  
  211.                 StartPage = 1  
  212.                 If DataSource.PageCount>5 Then  
  213.                     EndPage = 5  
  214.                 Else  
  215.                     EndPage = DataSource.PageCount  
  216.                 End If  
  217.             End If  
  218.             If CurPage>1 Then  
  219.                 Response.Write "<a title='首页' href='"&GetUrl("page")&"page=1'><font face=webdings>9</font></a> "  
  220.                 Response.Write "<a title='上页' href='"&GetUrl("page")&"page="&CurPage-1&"'><font face=webdings>3</font></a> "  
  221.             Else  
  222.                 Response.Write "<font face=webdings>9</font> "  
  223.                 Response.Write "<font face=webdings>3</font> "  
  224.             End If   
  225.             For i=StartPage to EndPage  
  226.                 if i <> CurPage then  
  227.                     response.write("<a title='第"&i&"页' href='"&GetUrl("page")&"page="&i&"'>"&i&"</a> ")  
  228.                 Else  
  229.                     response.write("<b>"&i&"</b> ")  
  230.                 End if  
  231.             next  
  232.             If CurPage<DataSource.PageCount Then  
  233.                 Response.Write "<a title='下页' href='"&GetUrl("&page&")&"page="&CurPage+1&"'><font face=webdings>4</font></a> "  
  234.                 Response.Write "<a title='尾页' href='"&GetUrl("&page&")&"page="&DataSource.PageCount&"'><font face=webdings>:</font></a> "  
  235.             Else  
  236.                 Response.Write "<font face=webdings>4</font> "  
  237.                 Response.Write "<font face=webdings>:</font> "  
  238.             End If  
  239.             Response.Write "   [共"&DataSource.RecordCount&"条]　["&PageSize&"条/页]　[共"&DataSource.PageCount&"页]"  
  240.             Response.Write " PageExecute："&Round((Timer-PageStart)*1000,2)&" MS"  
  241.             response.write("</td></tr>" & vbCrLf)  
  242.         End if  
  243.         'Draw Table end  
  244.         Response.Write("</table>")  
  245.     End sub  
  246.  
  247.     '====================================================================  
  248.     '获取当前Url参数的函数  
  249.     'Codeing by Redsun  
  250.     '====================================================================  
  251.     Private Function GetUrl(RemoveList)  
  252.         Dim ScriptAddress, M_ItemUrl, M_item  
  253.         ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))&"?"'取得当前地址  
  254.         M_ItemUrl = ""  
  255.         For Each M_item In Request.QueryString  
  256.             If InStr(RemoveList,M_Item)=0 Then  
  257.                 M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"  
  258.             End If  
  259.         Next  
  260.         GetUrl = ScriptAddress & M_ItemUrl  
  261.     End Function  
  262.  
  263.       
  264.     '=============================  
  265.     '实现列表排序  
  266.     '返回Url参数并动态改变排序方式  
  267.     '参数：需要进行排序的字段名,显示的名称  
  268.     '=============================  
  269.     Private Function Sort(SortStr,DispName)  
  270.         If SortStr = "" Or DispName="" Then Exit Function  
  271.         Sort = GetUrl("SOrder,SSort")  
  272.         SSort = UCase(Request.QueryString("SSort"))  
  273.         If SSort = "DESC" Then  
  274.             SSort = "ASC"   
  275.         Else  
  276.             SSort = "DESC"  
  277.         End If  
  278.         Sort = "<a class='headhref' href='"&Sort&"SOrder="&SortStr&"&SSort="&SSort&"'>"&DispName&SortType(SortStr)&"</a>"  
  279.     End Function  
  280.  
  281.     '-----------------------------------------------  
  282.     '标识排序列为升序还是降序方式  
  283.     '参数：排序列字段名称  
  284.     '-----------------------------------------------  
  285.     Private Function SortType(FieldName)  
  286.         Dim SOrderName  
  287.         SOrderName = Request.QueryString("SOrder")  
  288.         If SOrderName<>FieldName Then Exit Function  
  289.         Dim SSortImg  
  290.         SSortImg = Request.QueryString("SSort")  
  291.         SortType = "<img src='/OrderFormSystem/images/"&SSortImg&".gif' border='0'>"  
  292.     End Function  
  293.  
  294. End Class  
  295.  
  296.  
  297. 'users Like { UserID,LoginName,Password,RealName,Age,Gender,}  
  298. 'initDB  
  299. Rs.Open "Select * from users",Cn  
  300. Dim tbGrid1  
  301. Set tbGrid1 = New TBGrid  
  302. Set tbGrid1.DataSource = Rs  
  303. tbGrid1.Columns.add "LoginName","用户名"  
  304. tbGrid1.HeadSort.add "LoginName",True  
  305. tbGrid1.Columns.add "Password","密码"  
  306. tbGrid1.AddTemplate "修改","<a href='aaa.asp?id={UserID}'><font color=red>{RealName}</font></a>"  
  307. tbGrid1.ItemStyle.add "Password","align=right"  
  308. tbGrid1.ItemStyle.add "修改","width=100"  
  309. tbGrid1.PageSize = 5  
  310. tbGrid1.AllowPageing = true  
  311. tbGrid1.PageingStyle = "align=right"  
  312. tbGrid1.Show()  
  313. 'CloseDB  
  314. %>  
  • asp
  • 数据岛

    • 延伸 · 阅读

    精彩推荐
    最近更新
    编辑推荐
    阅读排行
    热门标签
    SQL命令 　 dll文件 　 QueryString 　 对象错误 　 msxml3.dll 　 80072ee7 　 innerHTML 　 回车符 　 ExecuteGlobal 　 CutStrX 　 ScriptTimeOut 　 远程 　 空值 　 批处理 　 XHTML 　 Scripting 　 FileSystemObject 　 目录读写 　 权限检测 　 ASP注入 　 CC攻击 　 Err.Number 　 错误描述 　 禁止 　 源码分享 　 相对路径 　 页面执行效率 　 源程序 　 function 　 like 　
    © 2019-2025 服务器之家 版权所有 www.zzvips.com 关于我们联系我们版权申明网站地图