代码如下：
＜%
Dim objConn
Dim GetSQLRecordset
Function GetSQLRecordset(strSQL,FileName,TableName)
’使用ASP的Connection 对象打开数据库
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & Server.MapPath("Filename")
objConn.Open
’从表读取符合SQL语句的记录并存放在Record set对象
Set GetSQLRecordset=Server.CreateObject("ADODB.Recordset")
GetSQLRecordset.Open_ strSQL,objConn,adOpenKeyset,adLockOptimistic,adCmdText
End Function
%＞
上述代码中函数名称为：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装进来就可以了。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
