📄 cxresult2.asp
字号:
<!--#include file="../db.asp"-->
<%
objConn.Open strConnection
Set objRS = Server.CreateObject ("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
strQ="Select Itemtype,CognizeClass,Difficulty,Division,SelectDegree,WriteSubjectID,WriteSubjectTime,ItemID from ItemTable where "
Set rs = Server.CreateObject ("ADODB.Recordset")
if Request.Form("sczt")=1 then
strQ=strQ&"ExistID=1 and "
else
strQ=strQ&"ExistID=0 and "
end if
if Request.Form("xx").Count<>0 then
for intl=0 to Request.Form ("xx").Count-1
Select case Request.Form ("xx")(intl+1)
case 1:strQ=strQ&"Difficulty"&trim(Request.Form ("ndjb"))&trim(Request.Form ("ndvalue"))
if(intl<> Request.Form ("xx").Count-1) then
strQ=strQ&" and "
end if
case 2:strQ=strQ&"Division"&trim(Request.Form ("qfdjb"))&trim(Request.Form ("qfdvalue"))&" "
if(intl<> Request.Form ("xx").Count-1) then
strQ=strQ&" and "
end if
case 3:strQ=strQ&"Itemtype="&Request.Form("tx")
if(intl<> Request.Form ("xx").Count-1) then
strQ=strQ&" and "
end if
case 4: if Request.Form("xx").Count=1 then
strQ="Select Itemtype,CognizeClass,Difficulty,Division,SelectDegree,WriteSubjectID,WriteSubjectTime,ItemID from ItemTable "
end if
zsdlist=1
case 5: strQ=strQ&"CognizeClass="&trim(Request.Form("rzhvalue"))
if(intl<> Request.Form ("xx").Count-1) then
strQ=strQ&" and "
end if
case 6: strQ=strQ&"ItemID="&trim(Request.Form("id"))
if(intl<> Request.Form ("xx").Count-1) then
strQ=strQ&" and "
end if
case 7: strQ=strQ&"WriteSubjectID='"&Request.Form("ctr")&"'"
if(intl<> Request.Form ("xx").Count-1) then
strQ=strQ&" and "
end if
case 8:strQ=strQ&"WriteSubjectTime"&Request.Form("ctsj")&"'"&Request.Form("year")&"-"&Request.Form("month")&"-"&Request.Form("day")&"'"
if(intl<> Request.Form ("xx").Count-1) then
strQ=strQ&" and "
end if
case 9: strQ=strQ&"SelectDegree"&trim(Request.Form ("sycs"))&trim(Request.Form ("sycsvalue"))
if(intl<> Request.Form ("xx").Count-1) then
strQ=strQ&" and "
end if
case 10: strQ=strQ&"SuggestScore"&trim(Request.Form ("jyfs"))&trim(Request.Form ("jyfsvalue"))
if(intl<> Request.Form ("xx").Count-1) then
strQ=strQ&" and "
end if
end select
next
objRS.Open strQ
else
Response.redirect("chaxun.asp")
end if
%>
<html>
<head>
<style>
.bodyStyle {font-family: "Verdana", "Arial";
font-size: 10pt;
color: #00309c}
.bodyStyle2 {font: 10pt "Verdana", "Arial";
margin-left:12pt;
background-image: url(../djst/share/blue_gradient.jpg);
background-attachment: fixed;
color: #00309c;
width:532px}
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>
</head>
<body class=bodyStyle2>
<form method="post" action="./stwh.asp" name="form1" >
<p align="center"><b><font size="+2" color="#FF0000">查询结果</font></b></p>
<table width="100%" border="1" cellspacing="0" bordercolorlight="#99CCFF" align="center">
<tr>
<td width="5%" nowrap align="center"> </td>
<td width="10%" nowrap align="center">
<div align="center"><font color="#FF0000">题型</font></div>
</td>
<td width="20%" nowrap align="center">
<div align="center"><font color="#FF0000"><font color="#FF0000">知识点</font></font></div>
</td>
<td width="10%" nowrap align="center">
<div align="center"><font color="#FF0000">认知分类</font></div>
</td>
<td width="5%" nowrap align="center">
<div align="center"><font color="#FF0000">难度</font></div>
</td>
<td width="7%" nowrap align="center">
<div align="center"><font color="#FF0000">区分度</font></div>
</td>
<td width="10%" nowrap align="center">
<div align="center"><font color="#FF0000">使用次数</font></div>
</td>
<td width="13%" nowrap align="center">
<div align="center"><font color="#FF0000">用途</font></div>
</td>
<td width="7%" nowrap align="center">
<div align="center"><font color="#FF0000">出题人</font></div>
</td>
<td width="15%" nowrap align="center">
<div align="center"><font color="#FF0000">出题时间</font></div>
</td>
<td width="6%" nowrap>
<div align="center"><font color="#FF0000">试题 ID</font></div>
</td>
</tr>
<%while not objRS.EOF
strQ="select Knowledge.KnowledgeObject as KnowledgeObject from Knowledge,ZSD_ST where ZSD_ST.KnowledgeID=Knowledge.KnowledgeID and "
strQ=strQ&"ZSD_ST.ItemID="&objRS("ItemID")
rs.Open strQ,objConn,2,3
%>
<tr>
<td width="4%" height="23">
<div align="center">
<input type="checkbox" name="xx" value="<%=objRS("ItemID")%>">
</div>
</td>
<td width="6%" height="23"nowrap> <%
select Case trim(objRS("Itemtype"))
Case 1:typename1="单选题"
Case 2:typename1="多选题"
Case 3:typename1="填空题"
Case 4:typename1="判断题"
Case 5:typename1="分析题"
end select
%> <%=typename1%> </td>
<td width="17%" height="23">
<select name="menu1" size=1 >
<%do while not rs.EOF %>
<option value=''><%=rs("KnowledgeObject")%></option>
<% rs.MoveNext%> <% loop %> <%rs.Close%>
</select>
</td>
<td width="10%" height="23"><%Select case objRS("CognizeClass")
case 1:rzname="知道"
case 2:rzname="领会"
case 3:rzname="评价"
case 4:rzname="运用"
case 5:rzname="综合"
case 6:rzname="分析"
end select%> <%=rzname%> </td>
<td width="5%" height="23"> <%Select case trim(objRS("Difficulty"))
case 0.9:difname="难"
case 0.7:difname="较难"
case 0.5:difname="中"
case 0.3:difname="较易"
case 0.1:difname="易"
end select%> <%=difname%></td>
<td width="7%" height="23"><%Select case trim(objRS("Division"))
case 0.9:divname="很好"
case 0.7:divname="较好"
case 0.5:divname="中"
case 0.3:divname="较差"
case 0.1:divname="很差"
end select%> <%=divname%></td>
<td width="10%" height="23"><%=objRS("SelectDegree")%></td>
<td width="12%" height="23">用于考试</td>
<td width="7%" height="23"><%=objRS("WriteSubjectID")%></td>
<td width="14%" height="23"><%=objRS("WriteSubjectTime")%></td>
<td width="6%" height="23"> <a href=ShowItem.asp?id=<%=objRS("ItemID")%>&type=<%=trim(objRS("Itemtype"))%> target='_blank'><%=objRS("ItemID")%></a></td>
</tr>
<%objRS.MoveNext%> <%wend%>
</table>
<% objRS.Close
objConn.Close
Set objRS= Nothing
Set objConn = Nothing%>
<p> </p><table width="75%" border="0" align="center">
<tr>
<td width="47%">
<div align="right">
<input type="submit" name="del" value="删除试题">
</div>
</td>
<td width="18%">
<div align="center">
<input type="reset" name="Submit3" value="重新选择">
</div>
</td>
<td width="35%"> </td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -