📄 adm_updatequestion.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conndb/conn.asp"-->
<%
getid = replace(trim(request("id")),"'","")
getproid = replace(trim(request("proid")),"'","")
getlesid = replace(trim(request("lesid")),"'","")
rssql = "select * from Tab_questions where id = "&getid
set rs = conn.Execute(rssql)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改考题</title>
<link href="../../style.css" rel="stylesheet">
</head>
<script language="javascript" src="../js/js.js"></script>
<body topmargin=0 leftmargin=0>
<br>
<form name="update_ques" method="post" action="tre_/tre_adm_UpdateQuestion.asp">
<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td colspan=2 align=center height="27"><font color="red">修 改 选 择 题</font></td>
</tr>
<tr>
<td width="40%" height="27" align=right>考试题目：</td>
<td width="60%" height="27"><input name="subject" type="text" class="txt_grey" value="<%=server.htmlencode(rs("que_subject"))%>" size="36">
<font color="red">*</font></td>
</tr>
<tr>
<td height="27" align=right>考试类型：</td>
<td height="27">
<% getname = replace(trim(request("name")),"'","")%>
<select name="ques_type" class="wenbenkuang" style="width:100" onChange="upques_danorduo(update_ques.ques_type.value,<%=getid%>,<%=getproid%>,<%=getlesid%>)">
<%
if(getname = "")then
getname = rs("que_type")
end if
%>
<option value="单选题" <%if(instr(getname,"单选题") > 0)then%>selected<%end if%>>单选题</option>
<option value="多选题" <%if(instr(getname,"多选题") > 0)then%>selected<%end if%>>多选题</option>
</select>
</td>
</tr>
<tr>
<td height="27" align=right>选 项A：</td>
<td height="27"><input class="txt_grey" type="text" name="A" value="<%=server.htmlencode(rs("optionA"))%>">
<font color="red"> *</font></td>
</tr>
<tr>
<td height="27" align=right>选 项B：</td>
<td height="27"><input class="txt_grey" type="text" name="B" value="<%=server.htmlencode(rs("optionB"))%>">
<font color="red"> *</font></td>
</tr>
<tr>
<td height="27" align=right>选 项C：</td>
<td height="27"><input class="txt_grey" type="text" name="C" value="<%=server.htmlencode(rs("optionC"))%>">
<font color="red"> *</font></td>
</tr>
<tr>
<td height="27" align=right>选 项D：</td>
<td height="27"><input class="txt_grey" type="text" name="D" value="<%=server.htmlencode(rs("optionD"))%>">
<font color="red"> *</font></td>
</tr>
<tr>
<td height="27" align=right>正确答案：</td>
<td height="27">
<%
if(getname = "")then
getname = rs("que_type")
end if
if(instr(getname,"单选题") > 0)then
%>
<select name="ques_answer_dan" class="txt_grey" style="width:50">
<option value="A" <%if(instr(rs("que_answer"),"A") > 0)then%>selected<%end if%>>A</option>
<option value="B" <%if(instr(rs("que_answer"),"B") > 0)then%>selected<%end if%>>B</option>
<option value="C" <%if(instr(rs("que_answer"),"C") > 0)then%>selected<%end if%>>C</option>
<option value="D" <%if(instr(rs("que_answer"),"D") > 0)then%>selected<%end if%>>D</option>
</select>
<%
else
divtemp = split(rs("que_answer"),",")
%>
A:<input type="checkbox" value="A" name="ques_answer_duo" <%for i=0 to Ubound(divtemp)%><% if(instr(divtemp(i),"A") > 0)then%>checked<%end if%><% next%>>
B:<input type="checkbox" value="B" name="ques_answer_duo" <%for i=0 to Ubound(divtemp)%><% if(instr(divtemp(i),"B") > 0)then%>checked<%end if%><% next%>>
C:<input type="checkbox" value="C" name="ques_answer_duo" <%for i=0 to Ubound(divtemp)%><% if(instr(divtemp(i),"C") > 0)then%>checked<%end if%><% next%>>
D:<input type="checkbox" value="D" name="ques_answer_duo" <%for i=0 to Ubound(divtemp)%><% if(instr(divtemp(i),"D") > 0)then%>checked<%end if%><% next%>>
<%
end if
%>
</td>
</tr>
<tr>
<td height="27" align=right>注 释：</td>
<td height="27"><input class="txt_grey" type="text" name="note" value="<%=server.htmlencode(rs("note"))%>"></td>
</tr>
<tr>
<td height="27" colspan="2" align=center>
<input type="submit" name="submit" value="修改" style="height:17" class="btn_grey"> <input type="button" class="btn_grey" name="button" value="重置" onclick="rel_load(<%=getid%>,<%=getproid%>,<%=getlesid%>)" style="height:17">
<input type="hidden" name="hid_proid" value="<%=getproid%>"><input type="hidden" name="hid_lessid" value="<%=getlesid%>"><input type="hidden" name="hid_id" value="<%=getid%>">
</td>
</tr>
</table>
</form>
<%
rs.close
set rs = nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -