<html>
<head>
	<title>数据库的基本操作之select</title>
</head>
<body>
	<%
	'下面将建立连接数据库jxgl.mdb，建立Connection对象
	Dim cnn,strConn
	strConn="Dbq=" & Server.Mappath("jxgl.mdb") & _
	";Driver={Microsoft Access Driver (*.mdb)}"
	Set cnn=Server.CreateObject("ADODB.Connection") 
	cnn.Open strConn
	Dim strSql,rs                                    '定义变量
	strsql= "select * from xsxx where 入学成绩>600" '查询记录
	Set rs=cnn.Execute(strSql)    '以下建立Recordset对象实例rs
	%>
	<center>
	<table border="1">
	<%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>
	<%
	cnn.close
	set cnn=nothing
	%>
</body>
</html>
