上述代码中函数名称为: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 objR...[ 查看全文 ]