📄 cxresult4.asp
字号:
<div align="center"><font color="#FF0000">试题 ID</font></div>
</td>
</tr>
<%
if zsdlist=1 then
while not objRS.EOF
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
M=1
match=0
if not rs.BOF then
rs.MoveFirst
end if
KID=Request.Form("KID")
begin=instr(KID,";")
if begin=0 then
do while not rs.EOF
if trim(rs("KnowledgeObject"))=trim(KID) then
match=1
end if
rs.MoveNext
loop
else
match=1
while begin<>0
KnowledgeID=left(KID,begin-1)
LENKID=Len(KID)
KID=Right(KID,(LENKID-Begin))
begin=instr(KID,";")
if not rs.BOF then
rs.MoveFirst
end if
n=1
do while not rs.EOF
if n=1 then
if trim(rs("KnowledgeObject"))<>trim(KnowledgeID) then
match=0
else
match=1
n=0
end if
end if
rs.MoveNext
loop
if match=0 then
M=0
end if
wend
end if
%>
<% if M<>1 then
rs.Close
else %>
<tr>
<td width="4%" height="23">
<%if trim(objRS("WriteSubjectID"))=trim(Session("Username")) then
count=1
%>
<div align="center">
<input type="checkbox" name="xx" value="<%=objRS("ItemID")%>">
</div>
<% end if%>
</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 >
<%
if not rs.BOF then
rs.MoveFirst
end if
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>
<% if trim(objRS("WriteSubjectID"))=trim(Session("Username")) then%>
<td width="6%" height="23"> <a href=ShowItem.asp?id=<%=objRS("ItemID")%>&type=<%=trim(objRS("Itemtype"))%> target='_blank'><%=objRS("ItemID")%></a></td>
<%else%>
<td width="6%" height="23"> <a href=ShowItem.asp?id=<%=objRS("ItemID")%>&type=<%=trim(objRS("Itemtype"))%>&m=1 target='_blank'><%=objRS("ItemID")%></a></td>
<%end if%>
</tr>
<%display=2%>
<%end if%>
<%objRS.MoveNext%>
<%wend%>
</table>
<%else %>
<%for intRec=1 to objRS.PageSize
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
M=1%>
<tr>
<td width="4%" height="23">
<%if trim(objRS("WriteSubjectID"))=trim(Session("Username")) then
count=1
%>
<div align="center">
<input type="checkbox" name="xx" value="<%=objRS("ItemID")%>">
</div>
<% end if%>
</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 >
<%
if not rs.BOF then
rs.MoveFirst
end if
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>
<% if trim(objRS("WriteSubjectID"))=trim(Session("Username")) then%>
<td width="6%" height="23"> <a href=ShowItem.asp?id=<%=objRS("ItemID")%>&type=<%=trim(objRS("Itemtype"))%> target='_blank'><%=objRS("ItemID")%></a></td>
<%else%>
<td width="6%" height="23"> <a href=ShowItem.asp?id=<%=objRS("ItemID")%>&type=<%=trim(objRS("Itemtype"))%>&m=1 target='_blank'><%=objRS("ItemID")%></a></td>
<%end if%>
</tr>
<%display=2%>
<%objRS.MoveNext%>
<%next%>
</table>
<%if mm<>1 then%>
<table align=center>
<tr>
<td width="25%" align=right>
<a href="cxresult.asp?Page=1&Query=<%=Query%>&S=<%=cc%>">首页</a>
</td>
<td width="25%" align=center>
<%if intPage=1 then%>
上一页
<%else
nextpage=intPage-1
%>
<a href="cxresult.asp?Page=<%=nextPage%>&Query=<%=Query%>&S=<%=cc%>">上一页</a>
<%end if%>
</td>
<td width="25%" align=center>
<%if intPage=objRS.PageCount then%>
下一页
<%else
nextpage=intPage+1
%>
<a href="cxresult.asp?Page=<%=nextPage%>&Query=<%=Query%>&S=<%=cc%>">下一页</a>
<%end if%>
</td>
<td width="25%" align=left>
<a href="cxresult.asp?Page=<%=objRS.PageCount%>&Query=<%=Query%>&S=<%=cc%>">末页</a>
</td>
</tr>
</table>
<%end if%>
<%end if%>
<%if display=2 then%>
<%if count=1 then%>
<table width="75%" border="0" align="center">
<tr>
<td width="20%">
<div align="right">
<input type="submit" name="del" value="删除试题">
</div>
</td>
<td width="20%">
<div align="center">
<input type="reset" name="Submit3" value="重新选择">
</div>
</td>
<td width="20%">
<div align="center">
<input type="submit" name="back" value="返回查询界面">
</div>
</td>
<td width="40%">
<div align="right">
<input type="submit" name="backhome" value="返回主控界面">
</div>
</td>
</tr>
</table>
<%end if%>
<% end if%>
<% objRS.Close
objConn.Close
Set rs=Nothing
Set objRS= Nothing
Set objConn = Nothing
%>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -