2024年6月21日发(作者：)

维普资讯

《计算机与农业》２００２年第７期　数据管理　

在ＡＳＰ中实现用ＳＱＬ语言对数据库的访问　

李丈炬　

（中国农业科学院文献中心信息技术室，北京１０００８１）　

在ＡＳＰ（Ａｃｔｉｖｅ　Ｓｅｒｖｅｒ　Ｐａｇｅｓ）中实现对数据库　

记录的访问是一个直观的、易于实现的动态网页编　

程技术。　

一

首先，应建立ＡＳＰ的运行平台。不同的操作系　

统，所要求的ＡＳＰ平台有所不同。下面是不同的操　

作系统与安装的Ｗｅｂ　Ｓｅｒｖｅｒ及安装方法：　

、

建立ＡＳＰ的运行平台　

注：ＮＴ　４．０　Ｏｐｔｉｏｎ　Ｐａｃｋ是微软公司为了修补和增强　

写字板等编　

辑软件编写，　

但一定要存　

成．ａｓｐ或．ｈｔｍ　

’＊０●０　ｌ●■■０　ｎ∞●■　

Ｗｉｎｄｏｗｓ　ＮＴ　４．０版所发行的软件。可从软件专卖店购买，　

也可以从Ｖｉｓｕａｌ　Ｓｔｕｄｉｏ　６．０系列的专业版或企业版的第二　

张光盘中找到。　

在安装ＰＷＳ（或ＩＩＳ）之前，要先安装ＴＣＰ／ＩＰ　

文件。本例中　

使　用　了　

ＶＢＳｃｒｉｐｔ　语　

通信协议，也就是说，如果你的机器可以上网（局　

域网或拨号上网），就可以安装ＰＷＳ了。　

以Ｗｉｎｄｏｗｓ９８为例，根据上表中所列的安装方　

法，找到Ｗｉｎｄｏｗｓ９８光盘上的ａｄｄ．ｏｎｓ＼ｐｗｓ＼ｓｅｍｐ．ｅｘｅ　

文件运行即可。安装时选择典型安装，其它选项都　

言口　ｏ。　关　／、．　Ｊ于　　

ＶＢＳｃｒｉｐｔ及ＨＴＭＬ，请参考相关书籍。　

用打开文件的方式打开ＡＳＰ文件，并不能让　

不要修改，尤其是“ｗｗｗ服务”的默认目录：　

ｃ：ｋｌｎｅｔｐｕｂ＼ｗｗｗｒｏｏｔ，建议不要更改。　

按照提示安装完ＰＷＳ后，可以ＩＥ地址栏输入：　

Ｈｕｐ：／／１２７．０．０．１来检验ＰＷＳ是否已正确安装。　

１２７．０．０．１是代表本机的ＩＰ地址。如果屏幕出现如下　

信息，表明ＰＷＳ已正确安装。　

ＡＳＰ程序执行，只有以浏览的方式才能看到ＡＳ这Ｐ　

程序的执行结果。如本例中ＡＳＰ程序的执行是在ＩＥ　

浏　览器　的　地址栏　中　输

。　

入　：　

ｈｔｔｐ：／／１　２７．０．０．１／ｍｙｗｅｂ／ｑｕｅｒｙ．ｈｔｍ

三、存取数据库的准备工作　

在ＡＳＰ中，用来存取数据库的对象称为ＡＤＯ　

二、初步认识ＡＳＰ及在ｌ　Ｅ中运行ＡＳＰ程序　

ＡＳＰ中可以使用ＶＢＳｃｒｉｐｔ、Ｊａｖａ　Ｓｃｒｉｐ和ＨＴＭＬ　

（Ａｃｔｉｖｅ　Ｘ　Ｄａｍ　Ｏｂｊｅｃｔｓ），主要含有Ｃｏｎｎｅｃｔｉｏｎ、　

Ｒｅｃｏｒｄｓｅｔ及Ｃｏｍｍａｎｄ三种对象，相应的功能如下　

表所示：　

语言，但ＡＳＰ中的ＶＢＳｃｒｉｐｔ或Ｊａｖａ　Ｓｃｒｉｐ一定要放　

在＜％与％＞之间。编写ＡＳＰ程序可以用ＦｒｏｎｔＰａｇｅ、　

对象名称　

ｃｏｎｎｅｃｔｉｏｎ　

Ｒｅｃｏｒ（１ｓｅｔ　

功　

打开或连接数据库文件　

能　

Ｃｏｍｍａｎｄ　

存取数据库的内容　

对数据库下达查询指令、以及执行ＳＱＬ　Ｓｅ￣ｅｒ的Ｓｔｏｒｅｄ　Ｐｒｏｃｅｄｕｒｅ　

在确认系统中安装有ＡＤＯ对象后，还需要有　

相应的ＯＬＥ　ＤＢ驱动程序或ＯＤＢＣ驱动程序，　

ＤＯ对象才能对数据库进行存取。Ａｃｃｅｓｓ的．Ａｍｄｂ　

数据库要使用的驱动程序是　

．

３５．　

维普资讯

数据管理　

Ｍｉｃｒｏｓｏｆ１．Ｊｅｔ．ＯＬＥＤＢ．４．０。　

如：连接Ａｃｃｅｓｓ数据库。　

＜％　

’建立Ｃｏｎｎｅｃｔ　ｉｏｎ对象　

Ｓｅｔ　ｃｏｎｎ＝　

Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（　ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ　）　

Ｐｒｏｖｉｄｅｒ＝　

Ｐｒｏｖｉｄｅｒ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．ＯＬＥＤＢ．４．０：　

ＤＢＰａｔｈ＝　Ｄａｔａ　Ｓｏｕｒｃｅ＝　＆Ｓｅｒｖｅｒ．ＭａｐＰａｔｈ（　

数据库．ｍｄｂ　）　

’连接数据库　

ｃｏｎｎ．Ｏｐｅｎ　Ｐｒｏｖｉｄｅｒ＆ＤＢＰａｔｈ　

Ｓｅｔ　ＦＳ＝　

Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ　）　

’打开信息源，参数二为Ｃｏｎｎｅｃｔ　ｉｏｎ对象　

ＦＳ．Ｏｐｅｎ　数据表或ＳＱＬ　ｓｅｌｅｃｔ语句　，ｃｏｎｎ，２，２　

％＞　

下面以Ｗｉｎｄｏｗｓ９８操作系统、ＩＥ５．０、ＰＷＳ４．０　

及Ａｃｃｅｓｓ为例，说明如何在ＡＳＰ中实现用ＳＱＬ语　

言对数据库的访问。　

程序功能说明：ｑｕｅｒｙ．ｈｔｍ是查询界面，用于输　

入用户的查询内容；ｒｅｓｕｌｔ．ａｓｐ根据ｑｕｅｒｙ．ａｓｐ中的关　

键字，用ＳＱＬ语言查询Ａｃｃｅｓｓ数据库ｍｙｄｂ１．ｍｄｂ　

中的数据表ｍｙｂｌ，并以表格的形式输出查询结果。　

源程序代码如下：　

＜！一一文件名：ｑｕｅｒｙ．ｈｔｍ　＞　

＜ｈｔｍｌ＞　

＜ｈｅａｄ）　

（ｔｉｔｌｅ＞数据查询界面（／ｔｉｔｌｅ＞　

＜／ｈｅａｄ）　

＜ＢＯＤＹ　ｂｇｃｏｌｏｒ＝　＃ＦＦＦＦＦＦ　＞　

＜ｆｏｒｍ　ｍｅｔｈｏｄ＝　ＰＯＳＴ　ａｃｔｉｏｎ＝　ｒｅｓｕｌｔ．ａｓｐ　、＞　

＜ｄｉｖ　ａｌｉｇｎ＝　ｃｅｎｔｅｒ　＞　

＜ｔａｂｌｅ　ｂｏｒｄｅｒ＝　０　ｗｉｄｔｈＴＭ　１００％　ｃｅｌｌｓｐａｃｉｎｇ＝…０。　

ｃｅｌ　ｌｐａｄｄｉ　ｎｇＴＭ　０　＞　

＜ｔｒ＞　

＜ｔｄ　ｗｉ　ｄｔｈ＝　４０％　＞　

＜ｐ　ａｌｉｇｎ＝　ｌｅｆｔ　＞输入查询关键字：＜ｉｎｐｕｔ　

ｔｙｐｅ＝　ｔｅｘｔ　ｎａｍｅ＝　ｋｅｙｗｏｒｄｓ　ｓｉｚｅ＝　２Ｏ　

ｖａｌｕｅ＝　＜％＝ｋｅｙｗｏｒｄｓ％＞　＞＜／ｐ＞　

＜／ｔｄ＞　

＜ｃｅｎｔｅｒ＞　

＜／ｔｒ＞　

＜／ｔａｂｌｅ＞　

．

３６．　

《计算机与农业》２００２年第７期　

＜／ｃｅｎｔｅｒ＞　

＜／ｄｉｖ＞　

＜ｐ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝　ｓｕｂｍｉｔ　ｖａｌｕｅ＝　开始查询　

ｎａｍｅ＝　Ｂ１　＞＜ｉ　ｎｐｕｔ　ｔｙｐｅ＝　ｒｅｓｅｔ　ｖａｌｕｅ￣　。　。《　马　。　

ｎａｍｅ＝　Ｂ２　＞＜／Ｄ＞　

＜／ｆｏｒｍ＞　

＜／ｂｏｄｙ）　

＜／ｈｔｍｌ＞　

＜！一一文件名：ｒｅｓｕｌｔ．ａｓｐ一一＞　

＜ＨＴＭＬ＞　

＜ｈｅａｄ）　

＜ｔｉｔｌｅ＞查询结果＜／ｔｉｔｌｅ＞　

＜／ｈｅａｄ）　

＜ＢＯＤＹ　ｂｇｃｏｌｏｒＴＭ　＃ＦＦＦＦＦＦ　＞　

建立Ｃｏｎｎｅｃｔｉｏｎ对象　

Ｓｅｔ　ｃｏｎｎ＝　

Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（　ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ　）　

Ｐｒｏｖｉｄｅｒ＝　Ｐｒｏｖｉｄｅｒ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．ＯＬＥＤＢ．４．０：　

ＤＢＰａｔｈ＝　Ｄａｔａ　Ｓｏｕｒｃｅ＝　＆　

Ｓｅｒｖｅｒ．ＭａｐＰａｔｈ（　ｍｙｄｂ１．ｍｄｂ　）　

％＞　

＜％　

获得查询关键字　

ｋｅｙｗｏｒｄｓ＝ｒｅｑｕｅｓｔ（　ｋｅｙｗｏｒｄｓ　）　

ＳＯＬ—ｓｅｌｅｃｔ模糊查询语句　

Ｓｅ１ｅｃｔＳｔｒｉｎｇｓ＝　ｓｅｌｅｃｔ爿ｃ　ｆｒｏｍ　ｍｙｂ１　ｗｈｅｒｅ关键字　

ｌ　ｉｋｅ’％，＆ｋｅｙｗｏｒｄｓ＆　％～　

根据关键字和ＳＯＬ语句连接数据库　

ｃｏｎｎ．Ｏｐｅｎ　Ｐｒｏｖ　ｉ　ｄｅｒ＆ＤＢＰａｔｈ　

Ｓｅｔ　ＦＳ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ　）　

ＦＳ．Ｏｐｅｎ　Ｓｅ１ｅｃｔＳｔｒｉｎｇｓ，ｃｏｎｎ，Ｃｕｒｓｏｒ，２　

Ｉｆ　ＦＳ　ＩＳ　Ｎｏｔｈｉｎｇ　Ｔｈｅｎ　

Ｒｅｓｐｏｎｓｅ．Ｗｒｉ　ｔｅ　ＭｄｂＲｅｃｏｒｄｓｅｔ调用失败！　

Ｒｅｓｐｏｎｓｅ．Ｅｎｄ　

Ｅｎｄ　Ｉｆ　

％＞　

＜ＣＥＮＴＥＲ＞＜ＴＡＢＬＥ　ＢＯＲＤＥＲ＝Ｉ＞　

＜ＴＲ　ＢＧＣＯＬＯＲ＝＃ＯＯＦＦＦＦ＞　

＜％　

’

一一…一

输出表头　

Ｆｏｒ　ｉ＝Ｏ　ｔｏ　ｒｓ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ－Ｉ　

Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ　＜ＴＤ＞　＆ＦＳ（ｉ）．Ｎａｍｅ＆　＜／ＴＤ＞　

Ｎｅｘｔ　

％＞　

＜／ＴＲ＞　

＜％　

，＿一一一输出数据表的内容　

ｒｓ．ＭｏｖｅＦｉｒｓｔ　’将第一条记录设置为当前　

数据记录　

Ｗｈｉ１ｅ　Ｎｏｔ　ＦＳ．ＥＯＦ’判断是否过了最后一条记录　

Ｒｏｗ＝　＜ＴＲ＞　

Ｆｏｒ　ｉ＝Ｏ　ｔｏ　ｒｓ．Ｆｉｅ１ｄｓ．Ｃｏｕｎｔ－Ｉ　

Ｒｏｗ＝Ｒｏｗ＆　＜ＴＤ＞　＆ＦＳ（ｉ）＆　＜／ＴＤ＞　

Ｎｅｘｔ　

Ｒｅｓｐｏｎｓｅ．Ｗｒｉ　ｔｅ　Ｒｏｗ＆　＜／ＴＲ＞　

ＦＳ．ＭｏｖｅＮｅｘｔ　’移到下一条记录　

Ｗｅｎｄ　

％＞　

＜／ＴＡＢＬＥ＞＜／ＣＥＮＴＥＲ＞　

＜／ＢＯＤＹ＞　

＜／ＨＴＭＬ＞