Option Explicit
Response.Buffer=True
Server.ScriptTimeOut=90 '腳本超時時間(單位:秒)
Session.Timeout=60 'Session過期時間(單位:分鐘)
Response.Expires=-1
?
Sub DataConn()
On Error Resume Next
Dim strConn
If isSQL=0 Then 'ACCESS數據庫
If EnableDataBaseCache = 1 Then 'ACCESS數據庫使用數據庫緩沖
If IsObject(Application(Article_Sn & "Conn"))=False Then
Set Conn = Server.Createobject("Adodb.Connection")
strConn="Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.Mappath(DataBaseName)
Conn.Open strConn
Application.Lock
Set Application(Article_Sn & "Conn") = Conn
Application.UnLock
Else
Set Conn = Application(Article_Sn & "Conn")
?End If?
Else 'ACCESS數據庫不使用數據庫緩沖
Set Conn = Server.Createobject("Adodb.Connection")
strConn="Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.Mappath(DataBaseName)
Conn.Open strConn
End If
Else 'SQL數據庫
Set Conn = Server.Createobject("Adodb.Connection")
?strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;Server="&Server&";User ID="&LoginUser&" ;Password="&LoginPass&";Database="&DBName&";"
Conn.Open strConn
End If
If Err Then
Err.Clear
Set Conn=Nothing
Response.Write "數據庫連接錯誤!"
Response.End
End If
End Sub?
?
?
Dim DataBaseName,SettingFile
If isSQL=0 Then
?DataBaseName="xred.mdb" '數據庫路徑
Else
Dim SQLServer,SqlLoginUser,SqlLoginPass
?DBName="web201007" '數據庫名稱
?SqlServer="abc" '你的SQLServer地址
?SqlLoginUser="07xred" '你的SQL登陸用戶名
?SqlLoginPass="07red" '你的SQL登陸密碼
End If?
