[收藏]ASP数据库操作类（上）

 

  1<%
  2Class dbClass
  3'-------------------------------------------------------------------------
  4    '变量说明
  5    'conn-----------connection对象
  6    'strsql---------执行查询的语句
  7    'vTbName--------查询分页的表名
  8    'vPKey----------查询分页的表的主键
  9    'vPgFields------查询分页要显示的字段
 10    'vPgSize--------查询分页每页显示的记录数
 11    'vCurrPg--------查询分页显示的当前页
 12    'vConditions----查询分页的条件
 13    'vOrderBy-------查询分页的排序
 14'-------------------------------------------------------------------------
 15    private conn,strsql,vTbName,vPKey,vPgFields,vPgSize,vCurrPg,vConditions,vOrderBy
 16    '类的初始化
 17    private Sub Class_Initialize()
 18        '当是MS Sql数据库时设置以下两个变量 
 19        'dim dbServer            '数据库服务器的名称或ip地址
 20        'dim dbname              '数据库的名字
 21        dim dbPath              '若是Access数据库，此处设置其路径
 22        dim dbUser              '数据库的登录用户名
 23        dim dbPass              '数据库的登录密码
 24        dim connstr
 25        dbPath = "/testasp/data/data.mdb" '设置数据库路径
 26        dbUser = "admin" 
 27        dbPass = "123456"
 28        '若是access,并且有密码
 29        connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbPath) &_
 30         ";User ID=" & dbUser & ";Password=;Jet OLEDB:Database Password=" & dbPass
 31        '若是access，并且没有密码
 32        'connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(dbPath)
 33        '若是ms-sql数据库
 34        'connstr = "Provider = Sqloledb; User ID = " & dbUser & "; Password = " & dbPass &_
 35        ' "; Initial Catalog = " & dbname & "; Data Source = " & dbServer 
 36        on error resume next
 37        set conn=server.CreateObject("adodb.connection")
 38        conn.open connstr
 39        errMsg "连接数据库"
 40    End Sub
 41    '类结束
 42    Private Sub Class_terminate()
 43        conn.close
 44        set conn=nothing
 45    End Sub
 46'-------------------------------------------------------------------------
 47'给类的变量设置值
 48'-------------------------------------------------------------------------    
 49    '设置sql语句
 50    Public Property Let sqlStr(Byval Values)
 51    strsql=Values
 52    End Property
 53    '设置查询分页的表名
 54    public property let tbName(Byval Values) 
 55    vTbName=Values
 56    end property
 57    '--------------------------------------------------------
 58    '设置查询分页的表的主键
 59    public property let pKey(ByVal Values)
 60    vPKey=Values
 61    end property
 62    '--------------------------------------------------------
 63    '设置显示的字段
 64    public property let pgFields(ByVal Values)
 65    vPgFields=Values
 66    end property
 67    '--------------------------------------------------------
 68    '设置每页显示的记录数
 69    public property let pgSize(ByVal Values)
 70    vPgSize=Values
 71    end property
 72    '---------------------------------------------------------
 73    '设置当前显示的页数
 74    public property let currPg(ByVal Values) 
 75    vCurrPg=Values
 76    end property
 77    '--------------------------------------------------------
 78    '设置查询的条件
 79    public property let conditions(ByVal Values)
 80    if Len(Values)>0 then
 81    vConditions=" where "&Values
 82    else
 83    vConditions=" where 1=1 "
 84    end if
 85    end property
 86    '-------------------------------------------------------
 87    '设置查询的排序
 88    public property let orderBy(ByVal Values)
 89    if Len(Values)>0 then
 90    vOrderBy=" order by "&Values
 91    else
 92    vOrderBy=Values
 93    end if
 94    end property    
 95    '------------------------------------------------------------- 
 96    '得到记录总数
 97    public property get vRsCount()
 98    if vCurrPg=1 then
 99    sqlc="select count("&vPKey&") as Idcount from "&vTbName&" "&vConditions
    set rsc=server.CreateObject("adodb.recordset")
    rsc.open sqlc,conn,0,1
    RsNum=rsc("IdCount")
    rsc.close
    set rsc=nothing
    if RsNum>0 then
    response.Cookies("iRecord")=RsNum
    vRsCount=RsNum
    else
    vRsCount=0
    end if
    else
    vRsCount=request.Cookies("iRecord")
    end if
    end property
    '得到总页数
    public property get vPgCount() 
    iRsCount2=vRsCount()
    if iRsCount2 mod vPgSize =0 then
    vPgCount=int(iRsCount2/vPgSize)
    else
    vPgCount=int(iRsCount2/vPgSize)+1
    end if
    end property
'查询数据库
    Public Function rsDB()
    on error resume next
    '简单的查询出结果
'     set rsDB = Server.CreateObject("ADODB.RecordSet")
'     rsDB.Open strsql,conn,1,3 
    Set rsDB=conn.Execute(strsql)
    errMsg "查询数据库"
    End Function
'添加，更新，删除数据库记录
    public Function upDB()
    on error resume next
    conn.execute(strsql)
    errMsg "编辑数据库记录"
    end Function
'------------------------------------------------------------------------- 
'用来实现分页的记录集函数
    public function pageRs()
    on error resume next
    dim startRs
    startRs=(vCurrPg-1)*vPgSize
    '-------------------------------------------------------------------------------------------
    '使用此语句的话要根据参数修改代码，具体的是若排序为asc则<改为>,min改为max
'    if startRs=0 then
'    strsql="select top "&vPgSize&" "&vPgFields&" from "&vTbName&" "&vConditions&" "&vOrderBy
'    else
'    strsql="select top "&vPgSize&" "&vPgFields&" from "&vTbName&" "&vConditions&" and "&vPKey&" < "
'    strsql=strsql&"(select min("&vPKey&") from (select top "&startRs&" "&vPKey&" from " 
'    strsql=strsql&vTbName&" "&vConditions&" "&vOrderBy&") as idTable) "&vOrderBy
'    end if
    '---------------------------------------------------------------
    if startRs=0 then
    strsql="select top "&vPgSize&" "&vPgFields&" from "&vTbName&" "&vConditions&" "&vOrderBy
    else
    strsql="select top "&vPgSize&" "&vPgFields&" from "&vTbName&" "&vConditions&" and "&vPKey&" not "
    strsql=strsql&"in (select top "&startRs&" "&vPKey&" from "&vTbName&" "&vConditions&" "&vOrderBy
    strsql=strsql&") "&vOrderBy 
    end if
    '-------------------------------------------------------------------
    set pageRs=server.CreateObject("adodb.recordset")
    pageRs.open strsql,conn,0,1
    errMsg "记录分页"
    end function
'------sql用存储过程分页------------------------------------------------------
public function sqlPage()
on error resume next
Set sqlPage=server.CreateObject("Adodb.RecordSet")
Set Cm=Server.CreateObject("Adodb.Command")
Cm.CommandType = 4
Cm.ActiveConnection = conn
Cm.CommandText="sp_Util_Page"
Cm.parameters(1) = vPgFields
Cm.parameters(2) = vTbName
Cm.parameters(3) = vConditions
Cm.parameters(4) = vOrderBy
Cm.parameters(5) = vPKey
Cm.parameters(6) = vCurrPg
Cm.parameters(7) = vPgSize
Cm.parameters(8) = vRsCount()
Cm.parameters(9) = ""
sqlPage.CursorLocation = 3 
sqlPage.LockType = 1
sqlPage.Open Cm
errMsg "记录分页"
end function
'----------------------------------------------------------------------------
'关闭记录集objRs
'----------------------------------------------------------------------------
    Public Function cRs(ByVal ObjRs)
    ObjRs.close()
    Set ObjRs = Nothing
    End Function
'----------------------分页的页码导航---------------------------------------
public function pageNav()
iRsCount=vRsCount()'总记录数
mypage=vCurrPg'当前页数
PgCount=vPgCount()'总页数
prePage=mypage-1
if prePage<1 then
prePage=1
end if
nextPage=mypage+1
if nextPage>PgCount then
nextPage=PgCount
end if
pagestr="<div id=""fy""><span id=""rpc"">总共有"&iRsCount&"条记录 "&mypage&"/"&PgCount&"</span>" 
pagestr=pagestr&"<a href='?currpage=1' class='aW'>首页</a><a href='?currpage="&prePage&"' class='aW'>前一页</a>"
if (mypage-1) mod 4=0 then
firstPage=mypage
elseif int((mypage-1)/4)=0 then
firstPage=1
else
firstPage=int((mypage-1)/4)*4+1
end if
endPage=firstPage+4
astr=""
for i=firstPage to endPage
astr=astr&"<a href='?currpage="&i&"'"
if Cstr(mypage)=Cstr(i) then
astr=astr&" id='currP'"
end if
astr=astr&">"&i&"</a>"
if i>PgCount-1 then exit for
next
astr=astr&"<a href='?currpage="&nextPage&"' class='aW'>后一页</a><a href='?currpage="&PgCount&"' class='aW'>尾页</a></div>"
pagestr=pagestr&astr
pageNav=pagestr
end function
'输出带分页功能的table
Function showTb(ByVal TbTil) 
    set rsTb=pageRs()'若是存储过程就调用sqlPage()
    tbRs= rsTb.getrows()
    cRs(rsTb)
    iTblRow=Ubound(tbRs,2)
    iTblCol=Ubound(TbTil)
    tbStr="<table border='0' cellspacing='0' cellpadding='0'><tbody>"
    for r1=0 to iTblCol
      tr1=tr1&"<td width='"&split(TbTil(r1),"|")(1)&"'>"&split(TbTil(r1),"|")(0)&"</td>"
    next
    tr1="<tr>"&tr1&"</tr>"
    for ri=0 to iTblRow
      for ci=0 to iTblCol
        td=td&"<td width='"&split(TbTil(ci),"|")(1)&"'>"&tbRs(ci,ri)&"</td>"
      next 
      tr=tr&"<tr>"&td&"</tr>"
      td=null
    next
    TbTil=null
    tbRs=null
    response.Write(tbStr&tr1&tr&"<tr><td colspan='"&iTblCol+1&"'>"&pageNav()&"</td></tr></tbody></table>")
    tbStr=null
    tr1=null
    tr=null
End Function
'打印sql语句，以便语句有错误时检查
    Public Sub prnSql()
        response.Write(strsql)
    End Sub
'-------------------------------------------------------------------------    
'容错函数
'-------------------------------------------------------------------------
     Private Function errMsg(errMsg) 
     If Err.number<>0 Then
     '出现问题可利用此处代码打印出描述信息，方便调试。可注释掉
     response.Write(Cstr(Err.description)&"<br>")
     Err.Clear
     Response.Write "<font color='#FF0000'>"&errMsg&"出错</font>" '注释
     Response.End()
     End If
     End Function
'-------------------------------------------------------------------------
'容错函数结束
'-------------------------------------------------------------------------
End Class
%>

 

我的想法是既然是数据库操作类，所以类一实例化的时候就建立数据库连接，所以在使用的时候要先修改 Class_Initialize()中的代码，设置正确的数据库连接数据，设置好了就可以使用了。

1、一般的操作

   set myDb=new dbClass
   myDb.sqlStr="select * from ..."        '这里设置数据库操作语句
   set rs=myDb.rsDB()
'这里返回rs,接着就按平时的写法写表现数据的代码
'.......
   myDb.cRs(rs) '关闭释放rs
   set myDb=nothing

若myDb.sqlStr设置的是更新、删除或添加的sql语句，那么就要用myDb.upDB()来执行，即

set myDb=new dbClass
myDb.sqlStr="update ..."
myDb.upDB()
set myDb=nothing