一聚教程网:一个值得你收藏的教程网站

热门教程

一个测试数据库连接的函数(原创)

时间:2022-06-30 10:25:20 编辑:袖梨 来源:一聚教程网

以前一直困扰我的一个问题,如何判断数据库连接是否成功(比如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

热门栏目