<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>