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. %>