一個測試數據庫連接的函數

以前一直困擾我的一個問題，如何判斷數據庫連接是否成功(比如sql沒有啓動，數據庫不存在等),實現友好的錯誤處理，但vbscript的錯誤處理機制實在太差，只有on error resume nex/go to，但往往使用ADO的錯誤陷阱後，等待你的將是腳本超時，這個函數將改變這一狀況（連接超時長短可以自己根據實際情況控制）

'入口參數：連接字符串strconn
'返回值：TestConnection=true,false

Function TestConnection(strconn)
On Error Resume Next
set conn=server.createobject("adodb.connection")
'這裏設定連接超時爲10秒
conn.ConnectionTimeout=10
conn.Open strconn
If conn.Errors.Count = 0 Then
TestConnection = True
conn.close
Else
TestConnection = False
End If
set conn=nothing
End Function