1200字范文 > ASP中通过ADO访问ACCESS和SQL SERVER

ASP中通过ADO访问ACCESS和SQL SERVER

时间：2023-05-24 05:39:10

数据库|mysql教程

ASP,ADO,访问,ACCESS,SQL,SERVE

数据库-mysql教程

国外c 源码网站源码,安装Ubuntu设置语言,tomcat线程池生命周期,自制仿生爬虫,php程序员北京薪资,自建站seolzw

最近参与了一个ASP项目，而且这也是自己第一次进行web方面的编程;作为3P之一的ASP应该是很老的技术了，但这并妨碍自己的积累和学习，尤其是web编程方面。在这里我想跟大家分享下在ASP服务端如何通过 ADO 访问 ACCESS和SQL SERVER： ADO是一个访问数据库中

kf5 源码,vscode代码跳转设置,ubuntu安装bouml,jsp要用tomcat吗,爬虫强,php内存函数,标准的seo文章入口,.net源代码网站,h5模板网站代码下载lzw

销客多3.4源码,vscode不受支持,ubuntu 花屏,修改tomcat图标,sqlite 效率,营业范围为网页设计需要资质,sqlserver数据库报价,北京网通服务器,js文本框验证插件,前端框架国内,爬虫社区,在php中,首页seo优化,springboot分库连接,dedecms5.7标签手册,资讯门户类网站模板,个人简历网页制作代码,超市库存管理系统 ppt模板,asp html5后台源码,ecshop后台添加新页面,免费的idc管理系统,c程序游戏实例源代码lzw

最近参与了一个ASP项目，而且这也是自己第一次进行web方面的编程;作为3P之一的ASP应该是很老的技术了，但这并妨碍自己的积累和学习，尤其是web编程方面。在这里我想跟大家分享下在ASP服务端如何通过ADO访问ACCESS和SQL SERVER：

ADO是一个访问数据库中数据的编程接口，是微软的一个Active-x组件，会随IIS被自动安装；在做ASP编程的时候，安装IIS（即Internet informations service）是必不可少的；

首先确保OS上已正确安装了ACCESS和SQL SERVER，由于家里电脑上没有装SQL SERVER，下面以在xp平台上访问ACCESS数据库为例来测试下自己写的几个数据库访问函数

1.通过.udl文件获取数据库连接字符串

1）新建一个txt文件，并修改后缀名为.udl；直接双击打开该udl文件后我们就可以根据需要获取特定数据库的连接字符串了；打开udl后的界面如图-1所示：

图-1

2）在这里我们选择Microsoft.Jet.OLEDB.4.0数据库提供程序来访问access，点击下一步后界面如图-2所示：

图-2

3）输入或选择数据库所在路径后，其它选项保持默认，点击测试连接后，没有问题的情况下会弹出提示【测试连接成功】的消息框；

这时，我们点击确定后用UE或者其它文本编辑工具打开该udl文件后，即可获取连接该access数据库的连接字符串；

如图-3所示：这里的连接字符串即为：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\IIS\webapps\My_Test\GXY_DB1.mdb;Persist Security Info=False

图-3

2.通过连接字符串创建相关数据库操作函数

1.）新建ProDatBase.asp文件，并插入空的ASP代码段；在该代码段中声明三个全局变量;分别用来存储ADO记录集对象、ADO连接对象、以及连接字符串;

将上面获取的连接字符串赋值给g_ConStr

Dim g_Rs,g_Con,g_ConStr

g_ConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\IIS\webapps\My_Test\GXY_DB1.mdb;Persist Security Info=False"

2.)创建数据连接和断开连接函数

连接数据库function ConnectDataBase()set g_Con=server.CreateObject("ADODB.connection")on error resume nextg_Con.mode=3 将连接模式设为可读取写g_Con.open g_ConStrif err0 thenConnectDataBase=falseresponse.Write(err.Description)else ConnectDataBase=trueend ifend function断开数据库连接function DisconnectDataBase()on error resume nextg_Con.closeset g_Con=nothingif err0 thenDisconnectDataBase=falseresponse.Write(err.Description)else DisconnectDataBase=trueend ifend function

3.）创建插入记录函数

插入记录function InsertRecord(table,sqlFields,sqlValues)if ConnectDataBase() thensql="insert into ["+table+"] ("+sqlFields+") values ("+sqlValues+") "on error resume nextg_Con.Execute sqlif err 0 thenresponse.Write(err.Description)end ifDisconnectDataBase()end ifend function

4.）创建更新记录函数

更新记录function UpdateRecord(table,sqlFields,sqlValues,strCondition)if ConnectDataBase() thensql="update ["+table+"] set "sql_fd=split(sqlFields,",")sql_fv=split(sqlValues,",")for i=0 to ubound(sql_fd)if iubound(sql_fd) thensql=sql & ""&sql_fd(i)&"="&sql_fv(i)&","elsesql=sql & ""&sql_fd(i)&"="&sql_fv(i)&""end ifnextsql=sql&" where "&strCondition&""on error resume nextg_Con.Execute sqlif err 0 thenresponse.Write(err.Description)end ifDisconnectDataBase()end ifend function

5.）创建删除记录函数

根据条件删除记录function DeleteRecord(table,strCondition)if ConnectDataBase() thensql="delete from "+table+" where "&strCondition&" "on error resume nextg_Con.Execute sqlif err 0 thenresponse.Write(err.description)end ifDisconnectDataBase()end ifend function

6.）创建记录获取函数

根据条件获取记录function GetRecords(table,strCondition)if ConnectDataBase() thensql="select * from ["+table+"]"if strCondition "" thensql=sql&" where "&strCondition&""end ifon error resume nextset g_Rs=Server.CreateObject("ADODB.recordset")g_Rs.Open sql,g_Conif err 0 thenresponse.Write(err.description)end ifend ifend function

7.）创建资源释放函数

function ReleaseResource()on error resume nextg_Rs.closeset g_Rs=nothingDisconnectDataBase()if err0 thenresponse.Write(err.description)end ifend function

3、对创建的数据库函数进行测试，这里以GXY_DB1数据库下的表Test_table为例，该表的各字段及全部记录如图-4和图-5所示：

图-4（id自动增长）图-5(没有记录)

准备：新建ProDataBase_Test.asp文件，添加包含ProDataBase.asp文件的语句，插入空的asp代码块

1.)插入记录函数测试：插入10条记录，name和age依次从name0和15岁到name9和24岁

测试代码：

测试结果如图-6所示：

图-6

2.）获取记录函数测试:获取age在18到23之间的记录并显示在网页上

测试代码：

Test_Table

测试结果如图-7所示：

图-7