当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp 数据库连接函数代码

ASP
用ASP实现自动建站.实现虚拟二级目录
ASP关于动态数据显示页面得锚点
adodb.stream对象的方法/属性
在ASP/ASP.NET 中处理客户端数字证书
用ASP实现汉字转拼音的功能
在PPC上实现编译ASP
简单快捷实现ASP在线发邮件功能
javascript在ASP中实现掩码文本框
ASP写的自动生成SELECT表单的函数
全面了解Cookie的传递流程、编程实现及安全问题
ASP生成XBM图可用作验证码
改进的ASP备份SQL Server数据库
关于SELECT的无限级联(省|市|县|乡|村|...)
XML技术上传文件
使用ASP实现文件上载(上传)的各种方法
输出带日期格式的随机数.asp
一个高效的数据分页的存储过程
用ASP实现长文章用分页符来分页显示
一个改进的ASP生成SQL 命令字符串的类
一点ASP问题、差错和个人心得

ASP 中的 asp 数据库连接函数代码


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 217 ::
收藏到网摘: 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()