<%
'******************************
'函数：ConnectionMssql(ConnStr)
'参数：ConnStr,数据库连接代码
'作者：阿里西西
'日期：2007/7/13
'描述：通用数据库连接过程
'示例：<%=ConnectionMssql("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=test.mdb")%>
'******************************
SubConnectionMssql(ConnStr)
OnErrorResumeNext
SetobjConn=Server.Createobject("ADODB.Connection")
objConn.ConnectionTimeout=12
objConn.ConnectionString=Trim(ConnStr)
objConn.Open
IfobjConn.Errors.Count=0Then
Else
Response.Write"ConnectionMssql","数据连接失败，请检查配置文件!"
Response.End
EndIf
EndSub
%>