数据库

   Sub DeleteObject(ByRef obj)
        Set obj = nothing
        obj = null
    End Sub
    
    Class CDB
        private m_oConn, m_oRS
        private m_pageIndex, m_pageSize, m_pageCount, m_recordCount
                                
        private strError
        private m_QueryString
        
        private Sub Class_Initialize()
            m_oConn = null
            m_oRS = null
    
            m_pageIndex = 1
            m_pageSize = 10
            m_pageCount = 1
            m_recordCount = 0
            Call connect()
         End Sub
        
        private property Get GetConnectionString()
              if InStr(LCase(Request.ServerVariables("SCRIPT_NAME")), "/admin/") > 0 then
                 GetConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("DataBase\data.mdb")
             else
                 GetConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("Admin\DataBase\data.mdb")
             end if
         end property
        
         public property Let SetPageSize(num)
              if Not isNumeric(num) then Exit property          
              num = CInt(num)
              if num > 0 Then m_pageSize = num
         End property

         'object.AppendSearch(paraName) = paraValue
         public property Let AppendQueryString(paraName, paraValue)
            m_QueryString = m_QueryString & "&"    & paraName & "=" & Server.URLEncode(paraValue)    
         end property
        
         public property Let SetPageIndex(num)    
              if Not isNumeric(num) then Exit property                
              num = CInt(num)  
              if num > 0 then m_pageIndex = num
         End property
        
         public default function toString()
             toString = strError
         end function
        
         private sub Connect()                 
            Set m_oConn = Server.CreateObject("ADODB.Connection")
            m_oConn.ConnectionString  = GetConnectionString
            m_oConn.Open()
            if err then
                strError = err.Description
                Response.write("Sorry, failed to connect Database!")
                err.Clear()
                DeleteObject(m_oConn)
                Response.End()
            end if
         end sub
        
         private sub Close(ByRef DBObject)
             if 1 = DBObject.state then Call DBObject.Close()
         end sub
        
         public function ExecuteScalar(strSql)
              ExecuteScalar = m_oConn.Execute(strSql)(0)
         end function
        
         public sub Execute(ByVal strSql)
              if (Not isObject(m_oConn)) then Exit Sub
              m_oConn.Execute(strSql)
         end sub
        
         private function OpenRS()
             OpenRS = false
            if ((Not isObject(m_oConn)) Or m_oConn.State = 0) then  exit function
            
            if (isObject(m_oRS)) then
                   if 1 = m_oRS.State then Call m_oRS.Close()
            else
                Set m_oRS = Server.CreateObject("ADODB.RecordSet")
            end if
            OpenRS = true             
         end function
        
         public function GetData(ByVal strSql)
            if not OpenRS() then
                GetData = null
                exit function
            end if        
            call m_oRS.Open(strSql, m_oConn, 1, 1)
            
            if m_oRS.EOF then
                GetData = null
            else
                GetData = m_oRS.GetRows()                            
            end if
            m_oRS.Close()    
         end function
        
         public function GetMultPageData(ByVal strSQL)
           if Not OpenRS() then
               GetMultPageData = null
               exit function
           end If
           
           Call m_oRS.Open(strSQL, m_oConn, 1, 1)
                         
           if m_oRS.EOF then
            GetMultPageData = null
           else
            m_oRS.PageSize = m_pageSize
            m_recordCount = m_oRS.RecordCount
            m_pageCount = m_oRS.PageCount        
            if (m_pageIndex > m_pageCount) then m_pageIndex = m_pageCount
            m_oRS.AbsolutePage = m_pageIndex
            GetMultPageData = m_oRS.GetRows(m_pageSize)
           end if
              
           Call m_oRS.Close()
         end function
        
         public function PageInfo(style)
             Dim sHtml : set sHtml = new StringBuild
             sHtml.SetValue = "<div id=""divPageNav"">"
             call sHtml.AppendFormat("<label>共:{0}记录,当前:{1}/{2}:</label>", Array(m_recordCount, m_pageIndex, m_pageCount))
             Select Case style
                 Case 1 :     if 1 = m_pageIndex then
                                call sHtml.Append("<span>首页</span><span>上页</span>")
                            else
                                call sHtml.AppendFormat("<a href=""?page=1{0}"">首页</a><a href=""?page={1}{0}"">上页</a>", Array(m_QueryString,m_pageIndex - 1))
                            end if
                            if m_pageCount = m_pageIndex then
                                call sHtml.Append("<span>下页</span><span>尾页</span>")
                            else
                                call sHtml.AppendFormat("<a href=""?page={1}{0}"">下页</a><a href=""?page={2}{0}"">尾页</a>", Array(m_QueryString, m_pageIndex + 1, m_pageCount))
                            end if
                Case 2 :     dim interval, startPage, endPage, i
                            interval = 5
                            startPage = m_pageIndex - interval
                            if  startPage < 1 then startPage = 1
                            endPage = startPage + 2 * interval
                            if  endPage > m_pageCount then endPage = m_pageCount
                            startPage = endPage - 2 * interval
                            if  startPage < 1 then startPage = 1
                            
                            if 1 = m_pageIndex then
                                call sHtml.Append("<span Webdings;"">9</span><span Webdings;"">7</span>")
                            else
                                call sHtml.AppendFormat("<a href=""?page=1{0}"" Webdings;"">9</a><a href=""?page={1}{0}"" Webdings;"">7</a>", Array(m_queryString, CStr(m_pageIndex - 1)))
                            end if
                            for i = startPage to m_pageIndex-1
                                call sHtml.AppendFormat("<a href=""?page={1}{0}"">{1}</a>", Array( m_queryString, CStr(i)))
                            next
                            call sHtml.Append("<span>" & m_pageIndex & "</span>")
                            for i = m_pageIndex+1 to endPage
                                call sHtml.AppendFormat("<a href=""?page={1}{0}"">{1}</a>", Array( m_queryString, CStr(i)))
                            next
                            
                            if m_pageCount = m_pageIndex then
                                sHtml.Append("<span sHtml.AppendFormat("<a href=""?page={1}{0}"" Webdings;"">8</a><a href=""?page={2}{0}"" Webdings;"">:</a>", Array(m_queryString,m_pageIndex+1,m_pageCount))
                            end if
             end Select
             call sHtml.Append("</div>")
             PageInfo = sHtml
             DeleteObject(sHtml)
         end function
        
         private Sub Class_Terminate()
              Close(m_oRS)
            Close(m_oConn)
            DeleteObject(m_oRS)
            DeleteObject(m_oConn)
         End Sub
    end Class
    
    dim i, oDB, arrData : set oDB = new CDB
oDB.SetPageSize = 2
oDB.SetPageIndex = Request.QueryString("page")
arrData = oDB.GetMultPageData("SELECT [TITLE] FROM [CLASS]")
for i = 0 to ubound(arrData, 2)
    echo(arrData(0, i) & "<br/>")
next
echo(oDB.PageInfo(1))
DeleteObject(oDB)