当前位置：主页 > 查看内容

asp 数据库连接函数代码

发布时间：2021-06-14 00:00| 有 位朋友查看

简介：以下是SQL连接代码： 复制代码 代码如下: Function Open_conn() dim Conn,Strconn set Conn=server.createobject("adodb.connection") Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称……
以下是SQL连接代码：
复制代码 代码如下:

Function Open_conn()
dim Conn,Strconn
set Conn=server.createobject("adodb.connection")
Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称; Data Source = (local);"
Conn.open Strconn
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "对不起，数据库连接出错。"
Response.End
End If
End Function

调用方法：
将原来的
复制代码 代码如下:

rs.open sql,conn

改成
复制代码 代码如下:

rs.open sql,Open_conn()

以下是ACCESS连接代码：
复制代码 代码如下:

Function Open_conn()
dim Dbpath,Conn
Dbpath=server.MapPath("数据库路径")
set Conn=server.createObject("ADODB.connection")
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "对不起，数据库连接出错。"
Response.End
End If
End Function

调用方法：
将原来的
复制代码 代码如下:

rs.open sql,conn

改成
复制代码 代码如下:

rs.open sql,Open_conn()


原文链接：https://m.jb51.net/article/17112.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：asp查询xml的代码 不刷新页面查询的方法 下一篇：没有了

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐