'******************************
'函数: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
%>