<html>
<head>
<title>Recordset对象中的Delete方法应用示例</title>
</head>
<body>
<%set cnn=server.createobject("adodb.connection")
cnn.open "dbq="&server.mappath("jxgl.mdb")& _
";driver={microsoft access driver (*.mdb)}"
set rs=server.CreateObject("adodb.recordset")
rs.open "kc",cnn,1,3,2
%>
课程表中全部信息<p>
<form name="form1" method="post" action="9-15.asp">
<table border="1" width="80%">
<tr>
<td>删除标记</td>
<td>序号</td>
<td>课程代号</td>
<td>课程名称</td>
<td>教师</td>
</tr>
<%
i=1
do while not rs.eof
%>
<tr>
<td><input type="radio" name="del" value=<%=rs("ID")%>></td>
<td><%=I%></td>
<td><%=RS("课程代号")%></td>
<td><%=RS("课程名称")%></td>
<td><%=RS("教师")%></td>
</tr>
<%
rs.movenext
i=i+1
loop
%>
</table>
<br>
<input type="submit" value="提交">
<input type="reset" value="重置">
</form>
</body>
</html>
