<%
'******************************
'函數：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
%>