📄 exam_edit.asp
字号:
<!-- #include file="cookies.asp" -->
<!-- #include file="conn/conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>编辑试卷</title>
</head>
<body bgcolor="#0099FF">
<table width="70%" border="0" align="center">
<tr>
<td><font color="#0000FF">【编辑试卷】
<input type="button" name="Submit4" value="刷新" onclick="location.href='javascript:this.location.reload()'";>
</font></td>
</tr>
</table>
<%
'取出该试卷
set rs=server.createobject("adodb.recordset")
sql="select * from exam where ename='"&trim(request.querystring("ename"))&"' and eid='"&trim(request.querystring("eid"))&"'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<table width="70%" border="0" align="center">
<form name="form1" method="post" action="exam_saveedit.asp?ename=<%=trim(request.querystring("ename"))%>&eid=<%=trim(request.querystring("eid"))%>">
<tr>
<td>试卷名称：
<input name="text" type="text" value="<%=trim(rs("text"))%>" size="50">
</td>
</tr>
<tr>
<td>修改日期：
<%
a=split(trim(rs("addtime")),"-")
%> <input name="year" type="text" id="year" value="<%=trim(a(0))%>" size="5" maxlength="4">
年
<input name="month" type="text" id="month" value="<%=trim(a(1))%>" size="5" maxlength="2">
月
<input name="day" type="text" id="day" value="<%=trim(a(2))%>" size="5" maxlength="2">
日 </td>
</tr>
<tr>
<td> <input type="submit" name="Submit5" value="修改">
<input type="button" name="Submit2" value="返回" onClick="window.close();"></td>
</tr>
</form>
<tr>
<td><hr></td>
</tr>
<tr>
<td><font color="#FF0000">【已有题目】</font></td>
</tr>
<form name="form2" method="post" action="exam_quedel.asp?ename=<%=trim(request.querystring("ename"))%>&eid=<%=trim(request.querystring("eid"))%>">
<%'取试卷对应的题目
set rs1=server.createobject("adodb.recordset")
sql1="select * from question where qid in ( select qid from ex_que where ename='"&trim(request.querystring("ename"))&"' and eid='"&trim(request.querystring("eid"))&"' )"
rs1.open sql1,conn,1,1
do while not rs1.EOF
'以下显示题目
%>
<tr>
<td> <input name="qiddel" type="checkbox" id="qiddel" value="<%=trim(rs1("qid"))%>">
<a href="que_view.asp?qid=<%=trim(rs1("qid"))%>" target="_blank"><%=trim(rs1("qname"))%></a>
<%if trim(rs1("qtype"))=1 then
response.write "(单选题)"
else
response.write "(多选题)"
end if%>
</td>
</tr>
<%
rs1.MoveNext
loop
rs1.close
set rs1=nothing
%>
<tr>
<td> <input type="submit" name="del" value="删除试题">
(删除题目,请在复选框中打勾)</td>
</tr>
</form>
<tr>
<td><hr></td>
</tr>
<tr>
<td><font color="#FF0000">【可选题目】</font></td>
</tr>
<form name="form3" method="post" action="exam_queadd.asp?ename=<%=trim(request.querystring("ename"))%>&eid=<%=trim(request.querystring("eid"))%>">
<% '取该课题下的所有备选题目
set rs1=server.createobject("adodb.recordset")
sql1="select * from question where ename ='"&trim(request.querystring("ename"))&"' and qid not in ( select qid from ex_que where ename='"&trim(request.querystring("ename"))&"' and eid='"&trim(request.querystring("eid"))&"' )"
rs1.open sql1,conn,1,1
do while not rs1.EOF
'以下显示题目
%>
<tr>
<td> <input name="qidadd" type="checkbox" id="qidadd" value="<%=trim(rs1("qid"))%>">
<a href="que_view.asp?qid=<%=trim(rs1("qid"))%>" target="_blank"><%=trim(rs1("qname"))%></a>
<% '判断题型
if trim(rs1("qtype"))=1 then
response.write "(单选题)"
else
response.write "(多选题)"
end if%>
</td>
</tr>
<%
rs1.MoveNext
loop
rs1.close
set rs1=nothing
%>
<tr>
<td><input type="submit" name="added" value="增加试题">
(增加题目,请在复选框中打勾) </td>
</tr>
</form>
<tr>
<td><hr></td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
%>
</body>
</html>
<%
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -