📄 showitem.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
Set rs = Server.CreateObject ("ADODB.Recordset")
strQ="Select * from ItemTable where ItemID="&Request.QueryString("id")
objRS.Open strQ
strQ="select Knowledge.KnowledgeObject as KnowledgeObject,Knowledge.KnowledgeID as KnowledgeID from Knowledge,ZSD_ST where ZSD_ST.KnowledgeID=Knowledge.KnowledgeID and "
strQ=strQ&"ZSD_ST.ItemID="&objRS("ItemID")
rs.Open strQ,objConn,2,3
%>
<html>
<head>
<style>
.bodyStyle {font-family: "Verdana", "Arial";
font-size: 10pt;
color: #00309c}
.bodyStyle2 {margin-left:12pt;
background-image: url('../djst/share/blue_gradient.jpg');
background-attachment: fixed;
color: #00309c;
width:532px; font-style:normal; font-variant:normal; font-weight:normal; font-size:10pt; font-family:Verdana, Arial}
A:HOVER {
text-decoration: none }
A:LINK { text-decoration: none }
A:ACTIVE {
text-decoration: none }
A:VISITED { text-decoration: none }
TABLE {margin-right: 20pt;
font-size: 10pt;
font-family: "Verdana", "Arial"}
.active {font-weight: bold;
color: #00309c}
.active2 {font-weight: bold;
color: #405040}
.visited {font-weight: normal;
color: #405040 }
.1 {margin-left: 0pt}
.2 {margin-left: 16pt;
width: 100pt}
.3 {margin-left: 32pt;
width: 90pt}
.4 {margin-left: 45pt;
width: 50pt}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<script language="JavaScript">
<!--
function comeback()
{
document.form1.hf.value=3;
document.form1.submit ();
}
//-->
</script>
<body class=bodyStyle2 bgcolor=#FFFFCC>
<form method="post" name=form1 action="./modcl.asp?id=<%=objRS("ItemID")%>" >
<table width="100%" border="0" bgcolor="#FF9999">
<tr bgcolor="#FF9999">
<td nowrap height="25">
<% select Case trim(objRS("Itemtype"))
Case 1:typename1="单项选择题:"
Case 2:typename1="多项选择题:"
Case 3:typename1="填空题:"
Case 4:typename1="判断题:"
Case 5:typename1="分析题:"
end select
%>
<h1> <font size="2" color="#3333FF"><%=typename1%>（注意：黑体字项必须填写）</font></h1>
</td>
</tr>
</table>
<table border=1 align="center" bordercolor=#ffffff bordercolorlight=#000000 cellspacing=0 width="100%">
<tr>
<td width="136" align="right" nowrap height="34"><font color="#FF3333">知
识 点：</font></td>
<td width="157" nowrap height="34">
<select name="menu1" size=1 >
<%KID=""
KIDname=""
do while not rs.EOF %>
<option value=''><%=rs("KnowledgeObject")%></option>
<%KID=KID & rs("KnowledgeID") & ";"
KIDname=KIDname & rs("KnowledgeObject")
rs.MoveNext%> <% loop %> <%rs.Close%>
</select>
</td>
<td width="104" nowrap height="34"> </td>
<td width="108" align="right" height="34" >
<div align="center"> 用途： </div>
</td>
<td width="88" align="right" nowrap height="34"> 用于考试 </td>
<td width="137" height="34">
<input type="hidden" name="KID" size="4" value=<%=KID%> >
<input type="hidden" name="hf" value="1">
</tr>
<tr>
<td width="136" align="right" nowrap>
<div align="right"><b>难 度：</b></div>
</td>
<td colspan="2"> <%if( trim(objRS("Difficulty"))=0.9) then%> 难：0<%=trim(objRS("Difficulty"))%>
<%end if%> <%if( trim(objRS("Difficulty"))=0.7) then%> 较难：0<%=trim(objRS("Difficulty"))%>
<%end if%> <%if( trim(objRS("Difficulty"))=0.5) then%> 中：0<%=trim(objRS("Difficulty"))%>
<%end if%> <%if( trim(objRS("Difficulty"))=0.3) then%> 较易：0<%=trim(objRS("Difficulty"))%>
<%end if%> <%if( trim(objRS("Difficulty"))=0.1) then%> 易：0<%=trim(objRS("Difficulty"))%>
<%end if%> </td>
<td align="right" colspan="2" nowrap>实测难度：</td>
<td width="137"><%=objRS("TestDifficulty")%> </tr>
<tr>
<td width="136" align="right" nowrap><b>区 分 度：</b></td>
<td colspan="2"> <%if(trim(objRS("Division"))=0.9) then%> 优：0<%=trim(objRS("Division"))%>
<%end if%> <%if(trim(objRS("Division"))=0.7) then%> 良：0<%=trim(objRS("Division"))%>
<%end if%> <%if(trim(objRS("Division"))=0.5) then%> 中： 0<%=trim(objRS("Division"))%>
<%end if%> <%if(trim(objRS("Division"))=0.3) then%> 较差： 0<%=trim(objRS("Division"))%>
<%end if%> <%if(trim(objRS("Division"))=0.1) then%> 差： 0<%=trim(objRS("Division"))%>
<%end if%> </td>
<td align="right" colspan="2" nowrap>实测区分度：</td>
<td width="137"><%=objRS("TestDivision")%> </td>
</tr>
<tr>
<td width="136" align="right" nowrap><b>认知分类：</b></td>
<td colspan="5"> <%select case trim(objRS("CognizeClass"))%> <%case 1%>
<span style="FONT-FAMILY: 宋体; mso-bidi-font-size: 10.0pt; mso-ascii-font-family: Times New Roman; mso-hansi-font-family: Times New Roman; mso-bidi-font-family: Times New Roman; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA"><font size="3">知道，</font></span>
<%case 2%> <span style="FONT-FAMILY: 宋体; mso-bidi-font-size: 10.0pt; mso-ascii-font-family: Times New Roman; mso-hansi-font-family: Times New Roman; mso-bidi-font-family: Times New Roman; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA"><font size="3">领会，</font></span>
<%case 3%> <span style="FONT-FAMILY: 宋体; mso-bidi-font-size: 10.0pt; mso-ascii-font-family: Times New Roman; mso-hansi-font-family: Times New Roman; mso-bidi-font-family: Times New Roman; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA"><font size="3">运用，</font></span>
<%case 4%> <span style="FONT-FAMILY: 宋体; mso-bidi-font-size: 10.0pt; mso-ascii-font-family: Times New Roman; mso-hansi-font-family: Times New Roman; mso-bidi-font-family: Times New Roman; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA"><font size="3">分析，</font></span>
<%case 5%> <span style="FONT-FAMILY: 宋体; mso-bidi-font-size: 10.0pt; mso-ascii-font-family: Times New Roman; mso-hansi-font-family: Times New Roman; mso-bidi-font-family: Times New Roman; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA"><font size="3">综合，</font></span>
<%case 6%> <span style="FONT-FAMILY: 宋体; mso-bidi-font-size: 10.0pt; mso-ascii-font-family: Times New Roman; mso-hansi-font-family: Times New Roman; mso-bidi-font-family: Times New Roman; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA"><font size="3">评价</font></span></td>
<%end select%> </tr>
<tr>
<td width="136" align="right" nowrap>考试要求：</td>
<td colspan="5"> </td>
</tr>
<tr>
<td width="136" align="right" nowrap>评分标准：</td>
<td colspan="5"> </td>
</tr>
<tr>
<td width="136" align="right" nowrap><b>建议的考试得分：</b></td>
<td colspan="2"> <%=trim(objRS("SuggestScore"))%> </td>
<td align="right" colspan="2" nowrap>建议的考试时间：</td>
<td width="137"> <%=trim(objRS("SuggestTime"))%> 秒</td>
</tr>
<tr>
<td width="136" align="right" nowrap><b>出 题 人：</b></td>
<td colspan="2"> <%=trim(objRS("WriteSubjectID"))%> </td>
<td align="right" colspan="2" nowrap><b>出题日期：</b></td>
<td width="137"> <%=trim(objRS("WriteSubjectTime"))%> </td>
</tr>
<tr>
<td width="136" align="right" nowrap><b>审 订 人：</b></td>
<td colspan="2"> <%=trim(objRS("ExamineID"))%> </td>
<th align="right" colspan="2"><b>审订日期：</b></th>
<td width="137"> <%=trim(objRS("ExamineTime"))%> </td>
</tr>
<tr>
<td width="136" align="right" nowrap>
<div align="right"><b>最后暴光时间：</b></div>
</td>
<td colspan="2" nowrap> <%=trim(objRS("LastExposure"))%> </td>
<td width="108" align="right" nowrap><b>使用次数：</b> <%=trim(objRS("SelectDegree"))%>
</td>
<th align="right" width="88"><b>存在标记：</b></th>
<td width="137"> <% if(trim(objRS("ExistId"))=1) then%>在使用 <%else%>已删除 <%end if%>
</td>
</tr>
</table>
<% select case CINT(objRS("Itemtype"))
case 1 tt="./Temp1/"
case 2 tt="./Temp3/"
case 3 tt="./Temp2/"
case 4 tt="./Temp4/"
case 5 tt="./Temp5/"
end select%>
<table width="100%" border="0" height="60" cellspacing="0" align="center">
<tr>
<td width="11%" height="40" nowrap>
<div align="left">试题内容：</div>
</td>
<%if objRS("STNR")<>"" then%>
<td align="left" width="89%" height="27"><%=objRS("STNR")%></td>
</tr>
<%else%>
<td width="11%" height="40">
<p align="left"> <a href="<%=tt%><%=objRS("STWJ")%>" target="_blank" align="left" >试题附件</a>
</p>
</td>
<%end if%>
<%if ((objRS("STNR")<>"") and (objRS("STWJ")<>"")) then%>
<td width="11%" height="16"> </td>
<td width="89%" height="16">
<p align="left"> <a href="<%=tt%><%=objRS("STWJ")%>" target="_blank" align="left" >试题附件</a>
</p>
</p>
</td>
<%end if%>
</table>
<%if objRS("Itemtype")<3 then%>
<table width="97%" border="0" height="24">
<tr>
<td>
<hr>
</td>
</tr>
</table>
<table width="100%" border="0" height="110" cellspacing="0" align="center">
<tr>
<%if (objRS("xxA" )<>"") then%>
<td width="10%" nowrap>
<div align="center">A</div>
</td>
<td width="90%" height="21"><%=objRS("xxA")%></td>
</tr>
<% else%>
<td width="10%" nowrap>
<div align="center">
A</div>
</td>
<td width="90%">
<p>
<a href="<%=tt%><%=objRS("xxAwj")%>" target="_blank">选项A附件</a>
</p>
</td>
</tr>
<%end if%>
<%if ((objRS("xxA" )<>"")and (objRS("xxAwj")<>"")) then%>
<tr>
<td width="10%" nowrap> </td>
<td width="90%">
<p>
<a href="<%=tt%><%=objRS("xxAwj")%>" target="_blank">选项A附件</a>
</p>
</td>
</tr>
<tr>
<td width="10%" nowrap> </td>
<td width="90%"> </td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -