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

1. <%  
2. '******************************  
3. '函数：ConnectionMssql(ConnStr)  
4. '参数：ConnStr,数据库连接代码  
5. '作者：阿里西西  
6. '日期：2007/7/13  
7. '描述：通用数据库连接过程  
8. '示例：<%=ConnectionMssql("Provider = Microsoft.Jet.OLEDB.4.0;Data Source = test.mdb")%>  
9. '******************************  
10. Sub ConnectionMssql(ConnStr)  
11. On Error Resume Next  
12. Set objConn = Server.Createobject("ADODB.Connection")  
13. objConn.ConnectionTimeout = 12  
14. objConn.ConnectionString = Trim(ConnStr)  
15. objConn.Open  
16.     If objConn.Errors.Count = 0 Then  
17.  Else  
18.   Response.Write "ConnectionMssql","数据连接失败，请检查配置文件!"  
19.   Response.End  
20.  End If  
21. End Sub  
22. %>