asp 通用数据库连接过程函数 |
|
本文标签：asp,通用数据库连接过程函数 <% ****************************** 函数：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 %> |
