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

2018-09-06 12:01

阅读:331

  <%
******************************
函数:ConnectionMssql(ConnStr)
参数:ConnStr,数据库连接代码
作者:阿里西西
日期:2007/7/13
描述:通用数据库连接过程
示例:<%=ConnectionMssql(Provider=Microsoft.Jet.OLEDB.4.0;DataSource=test.mdb)%>
******************************
SubConnectionMssql(ConnStr)
OnErrorResumeNext
objConn.ConnectionTimeout=12
objConn.ConnectionString=Trim(ConnStr)
objConn.Open
IfobjConn.Errors.Count=0Then
Else
Response.WriteConnectionMssql,数据连接失败,请检查配置文件!
Response.End
EndIf
EndSub
%>


评论


亲,登录后才可以留言!