上述代码中函数名称为:getsqlrecordset,文件名为adosqlfunctions.asp。
现在,利用该文件就可以调用任何access数据库的连接,同时对表记录进行筛选的操作。以friend.mdb文件为例,列出表data中所有的记录,程序代码如下:
<html><body>
<!–#include file=”adovbs.inc”–>
<!–#include file=”adosqlfunctions.asp”–>
<%
dim objrs
set objrs=getsqlrecordset(“select 编号,姓名,性别from_ data”,”friend.mdb”,”data”)
do while not objrs.eof
response.write “编号:”&objrs(“编号”)&”<br>”
response.write “姓名:”&objrs(“姓名”)&”<br>”
response.write “性别:”&objrs(“性别”)&”<br>”
loop
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>
</body></html>
小结
在asp编程中,利用好函数往往可以对我们的程序代码简单明了化,读取条理也容易维护,同时也可避免大量的重复繁杂的代码。像上述的情况,若只是简单的与数据库连接,则用第一种情况,将文件adorecordset.asp 装(include)进来就可以了,若要对数据库中某个表的记录进行筛选或其他sql语句操作,则用第二种情况,将文件adosqlrecordset.asp装进来就可以了。
