quetinfo.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 257 行
ASP
257 行
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>试题信息</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" id="AutoNumber2" width="100%" height="25">
<tr>
<td width="100%" bgcolor="#FFFFFF"> <div align="center"><strong>试题信息</strong></div></td>
</tr>
</table>
<%
v_QueID = Request.QueryString("QueID")
sql = "select * from question_database where QueID = "&v_QueID
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
v_SubID = rs("Sub_ID")
v_QueID = rs("Que_Type")
sql1 = "select * from question_type qt where qt.QueType = "&v_QueID
set rs1 = server.CreateObject("adodb.recordset")
rs1.open sql1,conn,3,2
v_QueType = rs1("QueTypeName")
rs1.close
set rs1 = nothing
if v_QueType="单选题" then
%>
<table border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber3">
<tr>
<td width="80" align="center" bgcolor="#E1E1E1"> 试题科目</td>
<td>
<%
sql1 = "select * from subject_info where SubID = "&v_SubID
SET rs1 = server.CreateObject("adodb.recordset")
rs1.open sql1,conn,3,2
v_SubName = rs1("SubName")
response.Write(v_SubName)
rs1.close
set rs1 = nothing
%>
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">试题类型</td>
<td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber4">
<tr>
<td>
<input type="radio" value="<%=v_QueType%>" name="typeadd" checked>
</td>
<td width="80">单选题</td>
<td><input type="radio" name="typeadd" disabled> </td>
<td width="80">多选题</td>
<td><input type="radio" name="typeadd" disabled> </td>
<td width="80">判断题</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">标 题</td>
<td>
<textarea rows="3" name="question" cols="60" onblur="this.className='inputnormal'" onfocus="this.className='inputedit';this.select()" class="inputnormal" ><%=rs("Question")%>
</textarea>
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">内 容</td>
<td>A.<input name="text1" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option1")%>" size="60">
<br>
B.<input name="text2" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option2")%>" size="60">
<br>
C.<input name="text3" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option3")%>" size="60">
<br>
D.<input name="text4" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option4")%>" size="60">
<br>
E.<input name="text5" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option5")%>" size="60">
<br>
F.<input name="text6" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option6")%>" size="60">
</td>
</tr>
<tr>
<td align="center" height="20" bgcolor="#E1E1E1">标准答案</td>
<td height="20"><%=rs("StandKey")%> </td>
</tr>
<tr>
<td align="center" height="20" colspan="2">
<div align="right">
<input type="button" onclick="self.close();" value="关闭窗口" name="B3" class="s02">
</div>
</td>
</tr>
</table>
</form>
<%
end if
if v_QueType="多选题" then
%>
<table border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber3">
<tr>
<td width="80" align="center" bgcolor="#E1E1E1"> 试题科目</td>
<td>
<%
sql1 = "select * from subject_info where SubID = "&v_SubID
SET rs1 = server.CreateObject("adodb.recordset")
rs1.open sql1,conn,3,2
v_SubName = rs1("SubName")
response.Write(v_SubName)
rs1.close
set rs1 = nothing
%>
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">试题类型</td>
<td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber4">
<tr>
<td><input type="radio" name="typeadd" disabled value="v1"> </td>
<td width="80">单选题</td>
<td>
<input type="radio" value="<%=v_QueType%>" name="typeadd" checked>
</td>
<td width="80">多选题</td>
<td><input type="radio" name="type" disabled value="v1"> </td>
<td width="80">判断题</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">标 题</td>
<td>
<textarea rows="3" name="question" cols="60" onblur="this.className='inputnormal'" onfocus="this.className='inputedit';this.select()" class="inputnormal"><%=rs("Question")%>
</textarea>
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">内 容</td>
<td>
A.<input name="text1" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option1")%>" size="60">
<br>
B.<input name="text2" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option2")%>" size="60">
<br>
C.<input name="text3" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option3")%>" size="60">
<br>
D.<input name="text4" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option4")%>" size="60">
<br>
E.<input name="text5" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option5")%>" size="60">
<br>
F.<input name="text6" type="text" class="inputnormal" onfocus="this.className='inputedit';this.select()" onblur="this.className='inputnormal'" value="<%=rs("Option6")%>" size="60">
</td>
</tr>
<tr>
<td align="center" height="20" bgcolor="#E1E1E1">标准答案</td>
<td height="20">
<%=rs("StandKey")%></td>
</tr>
<tr>
<td align="center" height="20" colspan="2">
<div align="right">
<input type="button" onclick="self.close();" value="关闭窗口" name="B3" class="s02">
</div>
</td>
</tr>
</table>
</form>
<%
end if
if v_QueType="判断题" then
%>
<form name="addform" method="get" action="admindatabasesave.asp" onsubmit="return submitit();">
<table border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber3">
<tr>
<td width="80" align="center" bgcolor="#E1E1E1">试题科目</td>
<td>
<%
sql1 = "select * from subject_info where SubID = "&v_SubID
SET rs1 = server.CreateObject("adodb.recordset")
rs1.open sql1,conn,3,2
v_SubName = rs1("SubName")
response.Write( v_SubName)
rs1.close
set rs1 = nothing
%>
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">试题类型</td>
<td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber4">
<tr>
<td><input type="radio" name="type" disabled> </td>
<td width="80">单选题</td>
<td><input type="radio" name="type" disabled> </td>
<td width="80">多选题</td>
<td>
<input type="radio" value="<%=v_QueType%>" name="typeadd" checked>
</td>
<td width="80">判断题</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">标 题</td>
<td>
<textarea rows="3" name="question" cols="60" onblur="this.className='inputnormal'" onfocus="this.className='inputedit';this.select()" class="inputnormal"><%=rs("Question")%>
</textarea>
</td>
</tr>
<tr>
<td align="center" height="20" bgcolor="#E1E1E1">标准答案</td>
<td height="20">
<%
if rs("StandKey") = 0 or rs("StandKey") = "0" then
response.Write("错误")
else
response.Write("正确")
end if
%>
</td>
</tr>
<tr>
<td align="center" height="20" colspan="2">
<div align="right">
<input type="button" onclick="self.close();" value="关闭窗口" name="B3" class="s02">
</div>
</td>
</tr>
</table>
</form>
<%
end if
conn.close
set conn = nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?