如果A数据库连接失败 则自动连接B数据库代码

石忠

今日偶然有个A数据库连接失败 则自动连接B数据库的想法，百度搜了一遍没找到合适的。自已就试着写了个，也许不怎么完美但也不错用。。
db=""&db
Dim ConnStr
ConnStr = "rovider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
''''''''''''''''''''''''''''''''''''''''''''''''''
If Err <> 0 Then
db=""&dbk
ConnStr = "rovider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接超时，管理员正在检修中。"
Response.End
End If
来自：http://www.txwm.org/html/Article.asp?/49.html