日期:2013-03-05  浏览次数:20758 次

<% 
’────────────────────────────────  
’功能说明:db类是实现数据库连接的类,里面留有数据库连接字符串接口 
’包括模块:无,一般都是被其他模块包括 
’调用方法:1、如果使用原有数据库连接,则不用更改数据库连接字符串ConnStr 
’             具体操作为:Set DBC=New DataBaseClass 
’                         DBC.ConnStr="其他连接字符串" 
’          2、方法使用:Set Conn=DBC.OpenConnection()得到一个连接对象 
’────────────────────────────────  
Class dbclass 
’────────────────────────────────  
’定义变量  
Private IConnStr  
’────────────────────────────────  
’ ConnStr属性 
Public Property Let ConnStr(Val) 
    IConnStr = Val 
End Property 
’────────────────────────────────  
’ ConnStr属性  
Public Property Get ConnStr() 
    ConnStr = IConnStr 
End Property 
’────────────────────────────────  
’ 类初始化  
Private Sub Class_initialize()  
End Sub  
’────────────────────────────────  
’ 类注销  
Private Sub Class_Terminate()  
    ConnStr = Null  
End Sub  
’────────────────────────────────  
’ 建立一个连接  
Public Function OpenConnection()  
    Dim TempConn 
    ’On Error Resume Next 
    Set TempConn = Server.CreateObject("ADODB.Connection") 
    TempConn.Open ConnStr  
    Set OpenConnection = TempConn  
    Set TempConn = Nothing  
    if Err.Number <> 0 then 
        Response.Write("<script>alert(’[系统错误]\n\n数据库连接错误!请检查系统参数设置>>站点常量设置,或者/inc/const.asp文件!’);</script>")   
        Response.End 
    end if 
End Function  
End Class 

%>