UC知道ASP的数据库类文件修改
来源：百度知道 编辑：UC知道 时间：2024/06/06 13:11:08
已经做好的Asp程序，使用的是SQL SERVER 2005数据库，现在要转为用2000的，数据库已经更改好。需要再修改数据库类文件cls_db，在初始时要如何更改相关属性？原初始化代码如下：
Private Sub Class_Initialize()
m_Debug = False
'm_Debug = True
If m_Debug Then m_StartTime = Timer() End If
Set m_ActiveConnection = Server.CreateObject("ADODB.Connection")
m_ConnectionString = "Provider=SQLNCLI.1;Password=123456;Persist Security Info=True;User ID=789;Initial Catalog=info"
m_ActiveConnection.Open m_ConnectionString
m_dbOperateTime = 0
End Sub
Private Sub Class_Initialize()
m_Debug = False
'm_Debug = True
If m_Debug Then m_StartTime = Timer() End If
Set m_ActiveConnection = Server.CreateObject("ADODB.Connection")
m_ConnectionString = "Provider=SQLNCLI.1;Password=123456;Persist Security Info=True;User ID=789;Initial Catalog=info"
m_ActiveConnection.Open m_ConnectionString
m_dbOperateTime = 0
End Sub
Set m_ActiveConnection="provider=sqloledb;" & _
"driver={SQL SERVER};" & _
"server=(local);" & _
"uid=789;" & _
"pwd=123456;" & _
"database=info;"
SQL2000和SQL2005是一样的
<%
Const SqlDatabaseName = "test" ' 数据库名字'
Const SqlPassword = "123" '数据库密码'
Const SqlUsername = "sa" '数据库帐户'
Const SqlLocalName = "127.0.0.1" '数据库地址'
'数据库连接函数'
Sub ConnectionDatabase
Dim ConnStr
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Con