xred520

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