动态网页中数据库的连接代码

anbinggao6661

于 2005-09-13 16:20:00 发布

阅读量168

点赞数

CC 4.0 BY-SA版权

文章标签：数据库

原文链接：http://www.cnblogs.com/MichaelLu/archive/2005/09/13/236061.html

本文详细介绍了使用ASP进行数据库连接的代码实现，包括Access和SQL Server两种数据库类型的连接参数设置及错误处理，适用于初学者理解数据库连接的基本原理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'这是参考oblog3的数据库连接代码

const is_sqldata=0

dim connstr,conn,db

Sub link_database()sub link_database()

if is_sqldata=0 Then

'access数据库连接参数：第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将oblog2.mdb修改为oblog2.asp

db = "data/oblog3.mdb"

connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)

else

'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）

dim sql_databasename,sql_password,sql_username,sql_localname

sql_databasename = "oblog3"

sql_password = "oblog3"

sql_username = "oblog3"

sql_localname = "(local)"

connstr = "Provider = Sqloledb; User ID = " & sql_username & "; Password = " & sql_password & "; Initial Catalog = " & sql_databasename & "; Data Source = " & sql_localname & ";"

dchr="'"

end if

on error resume next

set conn = Server.CreateObject("ADODB.Connection")

conn.open connstr

if err then

err.clear

set conn = nothing

response.write "数据库连接出错，请检查连接字串。"

response.end

end if

end sub

转载于:https://www.cnblogs.com/MichaelLu/archive/2005/09/13/236061.html

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。