28,391
社区成员
发帖
与我相关
我的任务
分享
<%
'通用文件,所有页面都会包含这个文件
'On Error Resume Next
Const syDllName = "syDll"
Const SystemDatabaseType = "ACCESS" '系统数据库类型,"SQL"为MS SQL2000数据库,"ACCESS"为MS ACCESS 2000数据库
..........
..........
Dim CreatConnection,dbName
dbName = "#DataBase.mdb" '数据库文件名
Set CreatConnection = Server.CreateObject("ADODB.Connection")
If SystemDatabaseType = "SQL" Then
Sqlstr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
Else
Sqlstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/database/"&dbName)
End If
CreatConnection.open Sqlstr
'On Error Resume Next
set Common_Class_new = server.CreateObject(syDllName & ".Common_Class") '''''''''出错的是这行
If not IsObject(Common_Class_new) Then
Response.Write "请先注册系统组件!"
Response.End
End If
Common_Class_new.CreatConnection = CreatConnection
'取得系统参数并进行缓存
.........
........