asp 通用数据库连接过程函数

<%
'******************************
'函数：connectionmssql(connstr)
'参数：connstr,数据库连接代码
'作者：阿里西西
'日期：2007/7/13
'描述：通用数据库连接过程
'示例：<%=connectionmssql("provider = microsoft.jet.oledb.4.0;data source = test.mdb")%>
'******************************
sub connectionmssql(connstr)
on error resume next
set objconn = server.createobject("adodb.connection")
objconn.connectiontimeout = 12
objconn.connectionstring = trim(connstr)
objconn.open
    if objconn.errors.count = 0 then
 else
  response.write "connectionmssql","数据连接失败，请检查配置文件!"
  response.end
 end if
end sub
%>