文档介绍:: .
课程删除源代码: "0" align="center">
<tr>
<td colspan="2"><div align="center">
&nbsp;
</div></td>
</tr>
<% ' 将当前的数据记录移到第一项%>
<% While Not ' 判断是否已经过了最后一项 %>
<tr>
<td><div align="right">
<input type="checkbox" name="subject" value=<%= rs(0) %>>
&nbsp;&nbsp;&nbsp;&nbsp;</div></td>
<td width="49%" colspan="-4"><%= rs(0) %></td>
</tr>
<% ' 移到下一项 %>
<%
Wend
%>
<tr>
<td colspan="2"><div align="center">
&nbsp;
</div></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="ok" value="确定删除">
</div></td>
</tr>
</table></td>
</tr>
</table>
<input name="send" type="hidden" value="send">
</form>
<% else %>
<%
subject_array=split(request("subject"),",")
for i=0 to ubound(subject_array)
dim subject
dim sql2
subject=trim(subject_array(i))
sql2="delete from student_subject where 学生学号='"&student_no&"' and 所学课程
='"&subject&"'"
=sql2
next
%>
<%= "<p>&nbsp;</p><div align=""center""> 您 删 除 了 下 面 这 些 的 课 程</div><br><br>" %>
<table width="29%" border="0" align="center">
<tr>
<td>
<%
subjects=replace(request("subject"),",","<li>")
"<ul><li>" & subjects & "</ul>"
%>
<p>&nbsp;</p><p>&nbsp;</p><p>&nbsp;</p><p>&nbsp;</p>
<%= "<p align=""center""><a href="""">返回</a> </p>" %>
<