del.asp

ASP写的在线考试系统

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("examination.mdb")
%>
<%
Subject=Request.QueryString("id")
questionNo=Request.QueryString("No")
'response.write"questionNo="&No
delsql="delete from "&Subject &" where 题目序号="&questionNo
'response.write delsql
conn.execute(delsql)
conn.close
 %>
<script language="vbscript">
 msgbox "你已经成功删除了该题！请刷新查看结果！"
 location.href="javascript:history.back()"
</script>