繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp 数据库连接函数代码
- ASP
- 对ASP和ASP程序员的一些话
- 10行代码让你告别Arp作恶导致的掉线
- ASP开发10条经验总结
- 国内ASP应用，不容乐观
- ASP利用Google实现在线翻译功能
- 如何提高自己的编程水平
- 经典实用的基础asp程序整理
- ASP实现带进度条的测试网速的代码程序
- ASP程序实现网页伪静态页源代码
- 净化网络环境 ASP程序实现过滤脏话
- ASP技术与PHP，CGI，JSP等技术的比较
- 用ASP制作饼图、柱状图等
- 常用ASP脚本程序集锦
- 用ASP编写的俄罗斯方块游戏
- 几种优秀的开发ASP的工具
- 浅谈ASP编程的思路与纠错
- 一个测试数据库连接的函数
- ASP读写注册表
- 怎样用ASP程序判断一个盘上是否有文件
- 一个免费的简单聊天室源代码
ASP 中的 asp 数据库连接函数代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 62 ::
收藏到网摘: n/a
将数据库连接代码封装在函数里，在需要读取时调用这个函数。 以下是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()
评论 (0) All
