上述代码中函数名称为：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装进来就可以了。

评论 (0) All

登陆 还没注册？