ASP数据岛操作类

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'            Programming By Smartpig                              '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Class TBGrid
    public DataSource                '数据源
    public style                     '表格总风格
    public HeadStyle                 '表头风格
    public HeadItemStyle             '表头单独风格
    public itemStyle                 '单元格独立网络
    public HeadSort      '表头是否显示排序功能
    public Columns                   '需要显示的列元素
    public Alternate                 '是否交替风格
    public AlternateStyle            '偶数行风格
    public NormalStyle               '正常风格
    public DefaultStyle              '默认风格簇
    public PageSize                  '页大小
    public AllowPageing              '是否分页
    public PageingStyle              '页数风格

Private Templates                '自定义单元项
    private CurPage                   '当前页
    private PageStart     '页面开始运行时间

'内容之间的关系
    'Columns.add "Field","HeadText"
    'AddTemplate("HeadText",Template)
    'itemStyle.add "Field","style:adsasd"
    'HeadSort.add "Field",True
    'DataSource(Columns.Keys(i))

Private Sub Class_Initialize   ' 设置 Initialize 事件。
        Set itemStyle  = CreateObject("Scripting.Dictionary")
        Set HeadSort  = CreateObject("Scripting.Dictionary")
        Set HeadItemStyle = CreateObject("Scripting.Dictionary")
        Set Columns   = CreateObject("Scripting.Dictionary")
        Set Templates  = CreateObject("Scripting.Dictionary")
        Set DataSource  = CreateObject("ADODB.Recordset")
        Alternate   = 0
        PageStart = Timer
    End Sub

Private Sub Class_Terminate   ' 设置 Terminate 事件。
        Set itemStyle  = Nothing
        Set HeadSort  = Nothing
        Set HeadItemStyle = Nothing
        Set Columns   = Nothing
        Set DataSource  = Nothing
    End Sub

Private Sub InitTable()
        'Set FieldsNum    = DataSource.Fields.Count
        'Set RowsNum     = DataSource.RecordCount
        if Columns.Count = 0 then
            For i = 0 to DataSource.Fields.Count -1
                Columns.add DataSource.Fields(i).Name,DataSource.Fields(i).Name
                response.Write(DataSource.Fields(i).Name)
            Next
        end if

if IsEmpty(Style) and IsEmpty(NormalStyle) then
            DefaultStyle = 1
        Else
            DefaultStyle = Style
        end if

CurPage = CInt(Request.QueryString("page"))
        if CurPage = "" then
            CurPage = 1
        End If

if PageSize = Empty then
            PageSize = 10
        end if

select Case DefaultStyle
        Case 1
            Style     ="align=center border=0 cellpadding=4 cellspacing=1 bgcolor='#cccccc'"
            Alternate    = 1
            HeadStyle    = "Height=25 style=""background-color:#006699;color:#ffffff"""
            AlternateStyle   = "bgColor=#ffffff height=25"
            NormalStyle    = "height=25 bgcolor=#f5f5f5"
            AllowPageing   = true
            tbGrid1.PageingStyle = "bgcolor='#f5f5f5' align='right'"
        Case 2
            Style     ="align=center border=0 cellpadding=4 cellspacing=1 bgcolor='#cccccc'"
            Alternate    = 0
            HeadStyle    = "Height=25 style=""background-color:#ffffff"""
            AlternateStyle   = "bgColor=#ffffff height=25"
            NormalStyle    = "height=25 bgcolor=#ffffff"
        Case Else
        End Select
    End sub

public Sub AddTemplate(ByVal ColumnName,ByVal Template)
        Columns.add ColumnName,ColumnName
        Templates.add ColumnName,Template
    End Sub

public Sub Show()
        InitTable()
        Dim tableStr
        Dim tdStart,tdEnd,tbStyle,tbContent
        Dim curRow
        Dim clm
        Dim regEx,Match,Matches
        tableStr = "<table "&style&">" & vbCrLF
        'Draw Table Head
        Response.Write(tableStr)
        Response.Write("<tr>")
        for Each clm in Columns.Keys()
            tbStyle = HeadStyle & " " & HeadItemStyle(clm)
            tdStart = "<th "&tbStyle&">"
            tdEnd = "</th>" & vbCrLf

Response.Write(tdStart)
            '加入表头排序功能
            'Code by Redsun
            'Date:2005-1-17
            If HeadSort(clm) Then
                Response.Write Sort(clm,Columns(clm))
            Else
                Response.Write(Columns(clm))
            End If
            Response.Write(tdEnd)
        Next
        Response.Write("</tr>" & vbCrLF)

'Draw Table items
        curRow = 1
        if AllowPageing <> Empty then
            DataSource.PageSize = PageSize
        else
            DataSource.PageSize = DataSource.RecordCount
        end if

if CurPage < 1 then
            DataSource.AbsolutePage = 1
        end if

if CurPage >= DataSource.PageCount then
            DataSource.AbsolutePage = DataSource.PageCount
        end if

if CurPage >= 1 and CurPage <= DataSource.PageCount then
            DataSource.AbsolutePage = CurPage
        end if

for curRow = 1 to DataSource.PageSize
            if DataSource.EOF then
                Exit For
            end if

Response.Write("<tr>")
            for Each clm in Columns.Keys()
                if Alternate = 0 then
                    tbStyle = NormalStyle & " " & ItemStyle(clm)
                else
                    if curRow mod 2 = 0 then
                        tbStyle = AlternateStyle & " " & ItemStyle(clm)
                    else
                        tbStyle = NormalStyle & " " & ItemStyle(clm)
                    end if
                end if

tdStart = "<td "&tbStyle&">"
                tdEnd = "</td>" & vbCrLf

if Templates(clm) = Empty then
                    tbContent = DataSource(clm)
                else
                    tbContent = Templates(clm)
                    Set regEx = New RegExp
                    regEx.Pattern= "{[A-Za-z0-9_-]+}"
                    regEx.IgnoreCase = True
                    regEx.Global = True
                    Set Matches=regEx.Execute(Templates(clm))
                    For each match in matches
                        On Error Resume Next
                        tbContent = Replace(tbContent,Match.Value,DataSource(Mid(Match.Value,2,Len(Match.Value)-2)),1) 
                    Next

end if

Response.Write(tdStart)
                Response.Write(tbContent)
                Response.Write(tdEnd)
            Next
            Response.Write("</tr>" & vbCrLF)

DataSource.MoveNext
        Next

'Draw Pageing Row
        if DataSource.PageCount > 1 and LCase(pageingStyle) <> "none" then
            Dim i,EndPage,StartPage
            response.write("<tr>")
            response.write("<td colspan=" & Columns.Count & " " & PageingStyle & ">")
            '改进分页功能
            'Code by Redsun
            'Date:2005-1-17
            If CurPage>4 Then
                If CurPage+2<DataSource.PageCount Then
                    StartPage = CurPage-2
                    EndPage = CurPage+2
                Else
                    StartPage = DataSource.PageCount-4
                    EndPage = DataSource.PageCount
                End If
            Else
                StartPage = 1
                If DataSource.PageCount>5 Then
                    EndPage = 5
                Else
                    EndPage = DataSource.PageCount
                End If
            End If
            If CurPage>1 Then
                Response.Write "<a title='首页' href='"&GetUrl("page")&"page=1'><font face=webdings>9</font></a> "
                Response.Write "<a title='上页' href='"&GetUrl("page")&"page="&CurPage-1&"'><font face=webdings>3</font></a> "
            Else
                Response.Write "<font face=webdings>9</font> "
                Response.Write "<font face=webdings>3</font> "
            End If 
            For i=StartPage to EndPage
                if i <> CurPage then
                    response.write("<a title='第"&i&"页' href='"&GetUrl("page")&"page="&i&"'>"&i&"</a> ")
                Else
                    response.write("<b>"&i&"</b> ")
                End if
            next
            If CurPage<DataSource.PageCount Then
                Response.Write "<a title='下页' href='"&GetUrl("&page&")&"page="&CurPage+1&"'><font face=webdings>4</font></a> "
                Response.Write "<a title='尾页' href='"&GetUrl("&page&")&"page="&DataSource.PageCount&"'><font face=webdings>:</font></a> "
            Else
                Response.Write "<font face=webdings>4</font> "
                Response.Write "<font face=webdings>:</font> "
            End If
            Response.Write "   [共"&DataSource.RecordCount&"条] ["&PageSize&"条/页] [共"&DataSource.PageCount&"页]"
            Response.Write " PageExecute:"&Round((Timer-PageStart)*1000,2)&" MS"
            response.write("</td></tr>" & vbCrLf)
        End if
        'Draw Table end
        Response.Write("</table>")
    End sub

'====================================================================
    '获取当前Url参数的函数
    'Codeing by Redsun
    '====================================================================
    Private Function GetUrl(RemoveList)
        Dim ScriptAddress, M_ItemUrl, M_item
        ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))&"?"'取得当前地址
        M_ItemUrl = ""
        For Each M_item In Request.QueryString
            If InStr(RemoveList,M_Item)=0 Then
                M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
            End If
        Next
        GetUrl = ScriptAddress & M_ItemUrl
    End Function

'=============================
    '实现列表排序
    '返回Url参数并动态改变排序方式
    '参数:需要进行排序的字段名,显示的名称
    '=============================
    Private Function Sort(SortStr,DispName)
        If SortStr = "" Or DispName="" Then Exit Function
        Sort = GetUrl("SOrder,SSort")
        SSort = UCase(Request.QueryString("SSort"))
        If SSort = "DESC" Then
            SSort = "ASC" 
        Else
            SSort = "DESC"
        End If
        Sort = "<a class='headhref' href='"&Sort&"SOrder="&SortStr&"&SSort="&SSort&"'>"&DispName&SortType(SortStr)&"</a>"
    End Function

'-----------------------------------------------
    '标识排序列为升序还是降序方式
    '参数:排序列字段名称
    '-----------------------------------------------
    Private Function SortType(FieldName)
        Dim SOrderName
        SOrderName = Request.QueryString("SOrder")
        If SOrderName<>FieldName Then Exit Function
        Dim SSortImg
        SSortImg = Request.QueryString("SSort")
        SortType = "<img src='/OrderFormSystem/images/"&SSortImg&".gif' border='0'>"
    End Function

End Class

'users Like { UserID,LoginName,Password,RealName,Age,Gender,}
'initDB
Rs.Open "Select * from users",Cn
Dim tbGrid1
Set tbGrid1 = New TBGrid
Set tbGrid1.DataSource = Rs
tbGrid1.Columns.add "LoginName","用户名"
tbGrid1.HeadSort.add "LoginName",True
tbGrid1.Columns.add "Password","密码"
tbGrid1.AddTemplate "修改","<a href='aaa.asp?id={UserID}'><font color=red>{RealName}</font></a>"
tbGrid1.ItemStyle.add "Password","align=right"
tbGrid1.ItemStyle.add "修改","width=100"
tbGrid1.PageSize = 5
tbGrid1.AllowPageing = true
tbGrid1.PageingStyle = "align=right"
tbGrid1.Show()
'CloseDB
%>

(0)

相关推荐

  • ASP数据岛操作类

    <% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '            Programming By Smartpig                              ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Class TBGrid     public DataSource                '

  • ASP.NET数据库操作类实例

    本文实例讲述了ASP.NET数据库操作类.分享给大家供大家参考,具体如下: using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using Syst

  • ASP Crazy 模版操作类(最简单的模板类、仅提供交流)

    文件名:Awa_temp.Class.asp 复制代码 代码如下: <% 'Crazy蛙!模板操作类 '作者Crazy~蛙! QQ:379969387 欢迎交流 '版本V1.0; Class AwaTemp Public aa Private FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues '=========================================== '构造函数_初始化FS

  • mysql仿asp的数据库操作类

    CODE:[复制到剪切板]<?php class MySQLDB   {     //MYSQL数据库操作类     //作者:熊毅     //版本:2.0(发行版) //可以自由转载,修改请通知我scxy78@yeah.net     //转载请保留以上声明 //上进行操作,当然也可以每次指定特殊的表进行操作     //nErr指示是否操作出错,sErr记录最后一次出错的错误代码,记录了明确的有哪个函数引起的错误     //错误之处请指正     //欢迎来信与我交流编程经验:scxy7

  • asp.net Cookie操作类

    复制代码 代码如下: using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.HtmlControls; using System.Web.UI.WebControls; using System.Data; using System.Configu

  • 一个asp版XMLDOM操作类

    <script language="vbscript" runat="server"> '============================================================ '作者:做回自己 '时间:2005-3-15 ============================================================ Class XMLClass Private objXml Private x

  • Asp.Net 通用数据操作类 (附通用数据基类)第1/2页

    文章内容为本站编辑,创作.你可以任意转载.发布.使用但请务必以明文标注文章原始出处及本声明 http://www.opent.cn  作者:浪淘沙此贴的方法会持续更新, 此文件要引用与数据操作的基类 using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.Web

  • Asp.Net 数据操作类(附通用数据基类)

    using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls; namespace EC {

  • Asp.Net中Cache操作类实例详解

    本文以一个Asp.Net的Cache操作类实例代码来详细描述了cache缓存的结构及实现方法,完整代码如下所示: /// <head> /// <function> /// 存储类(存储UserInfo信息) /// </function> /// <description> /// 用Cache存储用户信息 /// 在指定间隔(TimeOut)内取,则可以从Cache中取, /// 如果超出存储时间,则从数据库取用户信息数据 /// 作為所有用户信息的存儲

  • EasyASP v1.5发布(包含数据库操作类,原clsDbCtrl.asp)第1/2页

    而Easp类中提供了大量实用的ASP通用过程及方法,可以简化大部分的ASP操作.目前只提供了VBScript版,JScript版将来可能会提供.EasyASP v1.5 (2008-10-22更新) 新增功能: 1.将数据库控制类(原clsDbCtrl.asp)封装入Easp类,均通过Easp.db调用,也可独立使用. 2.新增MSSQL存储过程调用方法,可灵活调用存储过程并返回返回值.记录集及出参. 3.新增db.CreatConn方法,可以根据自定义的连接字符串连接数据库. 4.新增db.J

随机推荐