📄 mod showpaperid.asp
字号:
<%
Set objConn = Server.CreateObject ("ADODB.Connection")
strConnection = "Data Source = ks;"
strConnection = strConnection & "User ID =lili;Password=;"
objConn.Open strConnection
Set objRS = Server.CreateObject ("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
sql="Select * from TestPaper where PaperID="&Request.QueryString("PaperID")
objRS.open sql
TotalMark=objRS("TotalMark")
TotalTime=objRS("TotalTime")
Header=objRS("PaperHeader")
csjtime= objRS("StartDate")
csjr=objRS("Author")
id=objRS("PaperType")
dx=objRS("selectvalue")
du=objRS("multivalue")
tk=objRS("tkvalue")
pd=objRS("pdvalue")
fx=objRS("fxvalue")
%>
<p align="center"><font size="4" color="red">试卷预览</font></p>
<p align="left"><font size="4" color="red">试卷标题：</font><font size="4" color="blue"><%=Header%></font></p>
<%objRS.Close%>
<% if id=2 then%>
<% Set objRS1= Server.CreateObject ("ADODB.Recordset")
Set objRS1.ActiveConnection = objConn
sql="Select * from RandomPara where PaperID="&Request.QueryString("PaperID")
objRS1.open sql %>
<div align="center"></div>
<table width="85%" border="0" height="389" bordercolorlight="#C0C0C0" align="center">
<tr bgcolor="#FFCCCC">
<td height="148" width="22%">
<div align="center">
<table width="100%" border="0" align="left">
<tr>
<td height="35">
<div align="center">试卷属性</div>
</td>
</tr>
</table>
</div>
</td>
<td height="148" width="78%">
<table width="100%" border="1" height="108" cellspacing="0">
<tr>
<td width="25%" bgcolor="#FFFFFF">
<div align="center">试卷标识</div>
</td>
<td width="75%" bgcolor="#FFFFFF">
<div align="left">
<%=Header%>
</div>
</td>
</tr>
<tr>
<td width="25%" height="70" bgcolor="#FFFFFF">
<div align="center">试卷难度分布</div>
</td>
<td width="75%" height="70" bgcolor="#FFFFFF">
<div align="left">
<table width="101%" border="1" height="70" align="center">
<tr>
<td width="20%">
<div align="center">难</div>
</td>
<td width="22%">
<div align="center">较难</div>
</td>
<td width="20%">
<div align="center">中</div>
</td>
<td width="19%">
<div align="center">较易</div>
</td>
<td width="19%">
<div align="center">易</div>
</td>
</tr>
<tr>
<td width="20%" nowrap>
<%=objRS1("nd1")%>
分 </td>
<td width="20%" nowrap>
<%=objRS1("nd2")%>
分 </td>
<td width="20%" nowrap>
<%=objRS1("nd3")%>
分 </td>
<td width="20%" nowrap>
<%=objRS1("nd4")%>
分 </td>
<td width="20%" nowrap>
<%=objRS1("nd5")%>
分 </td>
</tr>
</table>
</div>
<div align="center"></div>
</td>
</tr>
<tr>
<td width="25%" height="30" bgcolor="#FFFFFF">
<div align="center">试卷总分</div>
</td>
<td width="75%" height="30" bgcolor="#FFFFFF">
<%=TotalMark%>
分 </td>
</tr>
<tr>
<td width="25%" height="2" bgcolor="#FFFFFF">
<div align="center">试卷用时</div>
</td>
<td width="75%" height="2" bgcolor="#FFFFFF">
<%=TotalTime%>
分钟 </td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#CCCCFF">
<td width="22%" height="190">
<div align="center">试题分布</div>
</td>
<td width="78%" height="190">
<table width="100%" border="1" cellspacing="0">
<tr>
<td width="25%" height="30" bgcolor="#FFFFFF">
<div align="center">试题类型</div>
</td>
<td width="41%" height="30" bgcolor="#FFFFFF">
<div align="center">试题数量</div>
</td>
<td width="34%" height="30" bgcolor="#FFFFFF">
<div align="center">总分值</div>
</td>
</tr>
<tr>
<td width="25%" bgcolor="#FFFFFF">
<div align="center">单项选择题</div>
</td>
<td width="41%" bgcolor="#FFFFFF">
<div align="center">
<%=objRS1("dxCount")%>
个</div>
</td>
<td width="34%" bgcolor="#FFFFFF">
<div align="center">
<%=dx%>
分 </div>
</td>
</tr>
<tr>
<td width="25%" bgcolor="#FFFFFF">
<div align="center">多项选择题</div>
</td>
<td width="41%" bgcolor="#FFFFFF">
<div align="center">
<%=objRS1("duCount")%>
个</div>
</td>
<td width="34%" bgcolor="#FFFFFF">
<div align="center">
<%=du%>
分 </div>
</td>
</tr>
<tr>
<td width="25%" bgcolor="#FFFFFF">
<div align="center">填空题</div>
</td>
<td width="41%" bgcolor="#FFFFFF">
<div align="center">
<%=objRS1("pdCount")%>
个</div>
</td>
<td width="34%" bgcolor="#FFFFFF">
<div align="center">
<%=pd%>
分 </div>
</td>
</tr>
<tr>
<td width="25%" bgcolor="#FFFFFF">
<div align="center">判断题 </div>
</td>
<td width="41%" bgcolor="#FFFFFF">
<div align="center">
<%=objRS1("tkCount")%>
个</div>
</td>
<td width="34%" bgcolor="#FFFFFF">
<div align="center">
<%=tk%>
分 </div>
</td>
</tr>
<tr>
<td height="37" width="25%" bgcolor="#FFFFFF">
<div align="center">分析题</div>
</td>
<td height="37" width="41%" bgcolor="#FFFFFF">
<div align="center">
<%=objRS1("fxCount")%>
个</div>
</td>
<td height="37" width="34%" bgcolor="#FFFFFF">
<div align="center">
<%=fx%>
分 </div>
</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#FFFFCC">
<td width="22%" height="128">
<div align="center">认知分布 </div>
</td>
<td width="78%" height="128">
<table width="99%" border="1" height="114" cellspacing="0" bgcolor="#FFFFCC">
<tr>
<td width="32%" bgcolor="#FFFFFF">
<div align="center">知道</div>
</td>
<td width="32%" bgcolor="#FFFFFF">
<div align="center">领会</div>
</td>
<td width="36%" bgcolor="#FFFFFF">
<div align="center">运用</div>
</td>
</tr>
<tr>
<td width="32%" height="40" bgcolor="#FFFFFF">
<div align="center">占
<%=objRS1("Know")%>
%</div>
</td>
<td width="32%" height="40" bgcolor="#FFFFFF">
<div align="center">占
<%=objRS1("Grasp")%>
%</div>
</td>
<td width="36%" height="40" bgcolor="#FFFFFF">
<div align="center">占
<%=objRS1("Applicate")%>
%</div>
</td>
</tr>
<tr>
<td width="32%" bgcolor="#FFFFFF">
<div align="center">评价</div>
</td>
<td width="32%" bgcolor="#FFFFFF">
<div align="center">综合</div>
</td>
<td width="36%" bgcolor="#FFFFFF">
<div align="center">分析</div>
</td>
</tr>
<tr>
<td width="32%" bgcolor="#FFFFFF" height="38">
<div align="center">占
<%=objRS1("Evaluate")%>
%</div>
</td>
<td width="32%" bgcolor="#FFFFFF" height="38">
<div align="center">占
<%=objRS1("Synthetize")%>
%</div>
</td>
<td width="36%" bgcolor="#FFFFFF" height="38">
<div align="center">占
<%=objRS1("Analyse")%>
%</div>
</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#CCFFCC">
<td width="22%" height="128">
<div align="center">试卷情况</div>
</td>
<td width="78%" height="128">
<table width="100%" border="1" height="121" cellspacing="0">
<tr>
<td width="23%">
<div align="center">出卷人</div>
</td>
<td width="77%">
<div align="left">
<%=csjr%>
</div>
</td>
</tr>
<tr>
<td width="23%">
<div align="center">出卷时间</div>
</td>
<td width="77%">
<%=csjtime%>
</td>
</tr>
<tr>
<td width="23%" height="27">
<div align="center">审卷人</div>
</td>
<td width="77%" height="27">
<%=objRS1("Checkman")%>
</td>
</tr>
<tr>
<td width="23%">
<div align="center">审卷时间</div>
</td>
<td width="77%">
<%=objRS1("Checktime")%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p> </p>
<p> </p>
<%
objRS1.Close
end if%>
<% if id=1 then%>
<table width="100%" border="0" height="54" cellspacing="0" align="center">
<% temp=1
for tx=1 to 5
sql="select * from Paper_Item where Order1="&tx&" and PaperID="&Request.QueryString("PaperID")&" order by Order2"
objRS.open sql
if not objRS.EOF then
response.Write "<tr><td colspan=2>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -