数据库链接类

<%
   Rem=============================
   Rem=  文件名:clsconn.asp
   Rem=  功  能:数据库链接类
   Rem=  参  数:
   Rem=  函  数:
   Rem=  作  者: shenzhe (QQ:31477177 mail:shenzhe__@hotmail.com)
   Rem=  最后更新:2005-2-3
   Rem=============================

   Class ClsConn

       Private flag       'flag = 1： AC数据库 flag = 0 ：sql数据库
    Private connStr    '连接字符串
    
    '___________sql数据库相关参数_____________
    Private sqlDataBaseName ' sqlserver数据库名
    Private sqlUser ' sqlserver数据库用户名
    Private sqlPassword ' sqlserver数据库密码
    Private sqlLocalName '链接名，本地用local 外地用IP

   '—————————————access数据库相关参数————————————
    Private dataPath 'access数据库存放在址
    
          
       '_________初始化类_____________
       Private Sub ClassInitialize()
           sqlDataBasename=""
     sqlUser=""
     sqlPassword=""
     sqlLocalName=""
     dataPath=""
     flag=""
     connStr=""
       End Sub

    '__________类结束_____________
    Private Sub ClassTerminate()
       End Sub

    Public Property Let flag_(iflag)
           flag=iflag
       End Property

    Public Property Let dataPath_(idataPath)
           dataPath=idataPath
       End Property

    Public Property Let sqlDataBaseName_(isqlDataBaseName)
           sqlDataBaseName=isqlDataBaseName
       End Property

    Public Property Let sqlUser_(isqlUser)
           sqlUser=isqlUser
       End Property

    Public Property Let sqlPassword_(isqlPassword)
           sqlPassword=isqlPassword
       End Property

    Public Property Let sqlLocalName_(isqlLocalName)
           sqlLocalName=isqlLocalName
       End Property

    Public Property Get iConnStr()
            iConnStr = ConnStr
       End Property

    '__________获得链接参数_________
    Public Sub ConnStr_()
        If flag=1 Then
         connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dataPath)
     Else
         connStr="Provider = sqloledb; User ID = " & sqlUser & "; Password = " & sqlPassword & "; Initial Catalog = " & sqlDatabaseName & "; Data Source = " & sqlLocalName & ";"
     End If
    End Sub

    '__________建立链接____________
    Public Function OpenConnect()
         Dim tempConn
   On Error Resume Next
            Set tempConn = Server.CreateObject("ADODB.Connection")
   tempConn.Open connStr
   Set OpenConnect = tempConn
   Set tempConn = nothing

   If Err.Number <> 0 Then
       Err.Clear
    set OpenConnect=nothing
    'Response.Redirect("")  '转向自定义错误页面
    Response.Write ("出错了。。")
    Response.End()
   End If
    End Function

   End Class
%>