<html>
<head>
	<title>RecordSet对象显式创建和打开记录集的示例</title>
</head>
<body>
<%
'下面将建立连接数据库jxgl.mdb，建立Connection对象
Dim cnn,strConn
Set cnn=Server.CreateObject("ADODB.Connection") 
strConn="Dbq=" & Server.Mappath("jxgl.mdb") & _
";Driver={Microsoft Access Driver (*.mdb)}"
cnn.Open strConn
dim rs,strsql
set rs=server.CreateObject("adodb.recordset")
strsql="select * from xsxx"
rs.open strsql,cnn'1表示键盘指针，可以向前向后移动
%>
<center>
<table border="1">
	<tr align="center">
	<td>学号</td>
	<td>专业</td>
	<td>姓名</td>
	<td>性别</td>
	<td>出生日期</td>
	<td>入学成绩</td>
	<td>是否团员</td>
	<td>籍贯</td>
	</tr>
<%Do While Not rs.Eof %>
	<tr>
	<td><%=rs("学号")%></td>
	<td><%=rs("专业")%></td>
	<td><%=rs("姓名")%></td>
	<td><%=rs("性别")%></td>
	<td><%=rs("出生日期")%></td>
	<td><%=rs("入学成绩")%></td>
	<td><%=rs("是否团员")%></td>
	<td><%=rs("籍贯")%></td>
	</tr>
<%
rs.MoveNext
Loop
%>
</table>
</center>
<%
rs.close '关闭RecorSet对象
set rs =nothing
cnn.close '关闭Connection对象
set cnn=nothing
%>
</body>
</html>
