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

来源： 作者： 出处：巧巧读书 2006-09-08 进入讨论组

• 关 键 词：
• vbscript
• server
• 数据库连接

　　以前一直困扰我的一个问题，如何判断数据库连接是否成功(比如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查看 http://www.qqread.com/asp/2006/10/c239215.html 更多内容请看数据库专栏、数据库处理专题、城域网专题专题，或进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：一个不太让人讨厌的自动弹出窗口：）

较新的文章：一个超强通用的分页显示函数