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

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