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

　　推荐阅读

　　asp下实现对HTML代码进行转换的函数

<% '****************************** '函数：HTMLEncode(reString) '参数：reString,待编码转换处理的字符串 '作者：阿里西西 '日期：2007/7/15 '描述：对HTML代码进行转换 '示例：HTMLEncode("<p>欢迎访问<br>阿里>>>详细阅读

本文标题：asp 通用数据库连接过程函数

地址：http://www.17bianji.com/kaifa2/ASP/32478.html

 1/2    1