代码如下：
<%
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装进来就可以了。