<%
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
%>