📄 showmetest1.asp
字号:
<!--#include file=Functions.asp !-->
<!--#include file=Config.asp !-->
<style type="text/css">
BODY
{
FONT-FAMILY: "宋体";
FONT-SIZE: 9pt;
background-color: #B1DB99;
}
.p1{FONT-FAMILY: "宋体";font-size:9pt ; }
.INPUT {
BACKGROUND-COLOR: #f0f1f7; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; CURSOR: hand; FONT-FAMILY: 宋体, Arial, Helvetica; FONT-SIZE: 9pt; HEIGHT: 20px; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px
}
.iResult {
BACKGROUND-COLOR: #f0f1f7;BORDER-BOTTOM-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-RIGHT-WIDTH: 0px; BORDER-TOP-WIDTH: 0px; FONT-FAMILY: 宋体, Arial, Helvetica; FONT-SIZE: 9pt;PADDING-BOTTOM: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; PADDING-TOP: 0px;color:#ff0000;
}
body,td,th {
font-size: 12px;
}
</style>
<script>
function ShowMeResult(){//Writed by QQ:170988779 At 2003-10-23 At ShangHai
iform=document.testform;
len = iform.elements.length;
var n=""
for(i=0; i < len; i++) {
n=iform.elements[i].name;
if(n.substring(0,7)=="iResult"&&(iform.elements[i].style.display=="none")){
iform.elements[i].style.display="block";
iform.iSee.value="隐藏答案";
}
else if(iform.elements[i].style.display=="block")
{
iform.elements[i].style.display="none";
iform.iSee.value="显示答案";
}
}
}
function submitit(){//Writed by QQ:170988779 At 2003-11-15;Edited at 2003-11-17
iform=document.testform;
len = iform.elements.length;
var i=0;
var n="";
var m="";
for(i=0; i < len; i++) {
n=iform.elements[i].name;
if(n.substring(0,2)=="NO")
{
if(m!=n)
{
var aa=document.getElementsByName(n);
var nn=0;
for(var ii=0;ii<aa.length;ii++){
if(aa[ii].checked){
nn++;
break;
}
}
if(nn<=0)
{
alert("请做完所有考题方可提交！");
iform.elements[i].focus();
return false;}
}
m=n;
}
}
if (confirm("确认无误？")){
return true;
}
return false;
}
</script>
<%
on error resume next
sql="select * from TestName where TestID="& request("TestID")'找出试卷相关资料
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
TestName=Trim(rs("TestName"))'自测题集合名
Subject=Trim(rs("Subject"))'类别名
CountA=rs("CountA")'单选题数量
ResultA=rs("ResultA")'分值
CountB=rs("CountB")'多
ResultB=rs("ResultB")'分
CountC=rs("CountC")'判断题
ResultC=rs("ResultC")'分
TestCount=rs("TestCount")'现在用来作用户点击数
TopResult=rs("TotalResult")
Types=rs("Types")'选题方式
DataID=Trim(rs("DataID"))
Intro=Trim(Rs("Intro"))'说明
else
Response.write"<font color=red>错误的试卷！</font>"
end if
rs.close
set rs=nothing
%>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td align="center" valign="bottom"><img src="images/0501.gif" width="100%" height="10"></td>
</tr>
</table>
<table width="90%" border=0 cellpadding=0 cellspacing=0 class="p1" style="border-right:1px solid #999999;border-left:1px solid #999999" align=center>
<tr>
<form method="POST" action="ShowMeResult.asp" onsubmit="return submitit();" name="testform">
<td bgcolor="#FFFFFF">
<input type="hidden" name="TestID" value="<%=request("TestID")%>">
<input type="hidden" name="StartTime" value="<%=now()%>">
<!--单选题开始!-->
<%If CountA>0 then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" Class=p1>
<tr>
<td width="100%" height="25" bgcolor=#E8F3FF> <img src="Images/Arrow1.gif" border=0> <b>单项选择题(每题<%=ResultA%>分,共<%=CountA%>题)</b></td>
</tr>
</table>
<%
If Types=1 Then '顺(反)序
sAdd="top "& CountA
sAdd1=" order by ID desc"
ElseIF Types=3 Then'自由组合
sAdd=""
sAdd1=" and ID in (" & DataID & ")"
Else '随机
sAdd=""
sAdd1=""
End IF
sql="select "& sAdd &" * from TestTopic where Subject='"& Subject &"' and type='单选题' "&sAdd1
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
Count=rs.recordcount
s=Split(MyRnd(Count,CountA),",")
u=ubound(s)
If Count<CoutA Then
M1="注意：题库不够！"
End If
For i=0 To CountA-1
If Types=2 Then
rs.move int(s(i))-1,1
End If
ID1=rs("ID")&";"&ID1
%>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" cellpadding="0" Class=p1>
<tr>
<td width="100%" bgcolor="#f2f2f2" height="20" colspan=2 > <b><%=i+1%>、<%=rs("question")%></b>
</td>
<td nowrap>
<input type=text name="iResult" value="（答案：<%=rs("answer")%>）" style="display=none" Class="iResult" size=30>
</td>
</tr>
<tr>
<td height="20" nowrap>
<% if rs("text1")<>"" then %>
<input type="radio" name="NO<%=rs("id")%>" value="A">
A、<%=rs("text1")%><BR>
<% end if %>
<% if rs("text2")<>"" then %>
<input type="radio" name="NO<%=rs("id")%>" value="B">
B、<%=rs("text2")%><BR>
<% end if %>
<% if rs("text3")<>"" then %>
<input type="radio" name="NO<%=rs("id")%>" value="C">
C、<%=rs("text3")%><BR>
<% end if %>
<% if rs("text4")<>"" then %>
<input type="radio" name="NO<%=rs("id")%>" value="D">
D、<%=rs("text4")%><BR>
<% end if %>
<% if rs("text5")<>"" then %>
<input type="radio" name="NO<%=rs("id")%>" value="E">
E、<%=rs("text5")%><BR>
<% end if %>
<% if rs("text6")<>"" then %>
<input type="radio" name="NO<%=rs("id")%>" value="F">
F、<%=rs("text6")%>
<% end if %>
<%
P=Trim(rs("PicList"))
If p<>"" Then
Response.Write "<td>"
PicList=Split(p,",")
For k=0 To ubound(PicList)-1
Response.Write"<a href='"&SoftPath&Trim(PicList(k))&"' target=_blank><img src='"&SoftPath&Trim(PicList(k))&"' border=0></a>"
Next
Response.Write"</td>"
End If
%>
</td></tr>
</table>
<%
If Types<>2 Then
rs.MoveNext
End if
Next
else
M1="<BR><font color=red>抱歉！该类还没有任何单选题！</font><BR>"
end if
rs.close
set rs=nothing
Response.Write M1
%>
<%End if%>
<!--多选题开始!-->
<%If CountB>0 then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" Class=p1>
<tr>
<td width="100%" height="25" bgcolor=#E8F3FF> <img src="Images/Arrow1.gif" border=0> <b>多项选择题(每题<%=ResultC%>分,共<%=CountC%>题。少选视正确答案多少酹情给分，多选不得分)</b></td>
</tr>
</table>
<%
If Types=1 Then '顺(反)序
sAdd="top "& CountB
sAdd1=" order by ID desc"
ElseIF Types=3 Then'自由组合
sAdd=""
sAdd1=" and ID in (" & DataID & ")"
Else '随机
sAdd=""
sAdd1=""
End IF
sql="select "& sAdd &" * from TestTopic where Subject='"& Subject &"' and type='多选题' "&sAdd1
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
If Not rs.eof Then
Count=rs.recordcount
s=Split(MyRnd(Count,CountB),",")
u=ubound(s)
If Count<CoutB Then
M2="注意：题库不够！"
End If
For i=0 To CountB-1
If Types=2 Then
rs.move int(s(i))-1,1
End If
ID2=rs("ID")&";"&ID2
%>
<table border="0" cellspacing="0" bordercolor="#111111" width="100%" Class=p1>
<tr>
<td width="100%" bgcolor="#f2f2f2" height="20" colspan=2 > <b><%=i+1%>、<%=rs("question")%></b>
</td>
<td nowrap>
<input type=text name="iResult" value="（答案：<%=rs("answer")%>）" style="display=none" Class="iResult" size=30>
</td>
</tr>
<tr>
<td height="20">
<% if rs("text1")<>"" then %>
<input type="checkbox" name="NO<%=rs("id")%>" value="A">
A、<%=rs("text1")%><BR>
<% end if %>
<% if rs("text2")<>"" then %>
<input type="checkbox" name="NO<%=rs("id")%>" value="B">
B、<%=rs("text2")%><BR>
<% end if %>
<% if rs("text3")<>"" then %>
<input type="checkbox" name="NO<%=rs("id")%>" value="C">
C、<%=rs("text3")%><BR>
<% end if %>
<% if rs("text4")<>"" then %>
<input type="checkbox" name="NO<%=rs("id")%>" value="D">
D、<%=rs("text4")%><BR>
<% end if %>
<% if rs("text5")<>"" then %>
<input type="checkbox" name="NO<%=rs("id")%>" value="E">
E、<%=rs("text5")%><BR>
<% end if %>
<% if rs("text6")<>"" then %>
<input type="checkbox" name="NO<%=rs("id")%>" value="F">
F、<%=rs("text6")%>
<% end if %>
<%
P=Trim(rs("PicList"))
If p<>"" Then
Response.Write "<td>"
PicList=Split(p,",")
For k=0 To ubound(PicList)-1
Response.Write"<a href='"&SoftPath&Trim(PicList(k))&"' target=_blank><img src='"&SoftPath&Trim(PicList(k))&"' border=0></a>"
Next
Response.Write"</td>"
End If
%>
</td></tr> </table>
<%
If Types<>2 Then
rs.MoveNext
End if
Next
Else
M2="<BR><font color=red>抱歉！该类还没有任何自测题！</font><br>"
End If
Response.Write M2
set rs=nothing
End if'是否存在此类选择题
%>
<%
'判断题开始！！！
If CountC>0 then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" Class=p1>
<tr>
<td width="100%" height="25" bgcolor=#E8F3FF> <img src="Images/Arrow1.gif" border=0> <b>判断题(每题<%=ResultC%>分,共<%=CountC%>题)</b></td>
</tr>
</table>
<%
If Types=1 Then '顺(反)序
sAdd="top "& CountC
sAdd1=" order by ID desc"
ElseIF Types=3 Then'自由组合
sAdd=""
sAdd1=" and ID in (" & DataID & ")"
Else '随机
sAdd=""
sAdd1=""
End IF
sql="select "& sAdd &" * from TestTopic where Subject='"& Subject &"' and type='判断题' "&sAdd1
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
If Not rs.eof Then
Count=rs.recordcount
s=Split(MyRnd(Count,CountC),",")
u=ubound(s)
If Count<CoutA Then
M1="注意：题库不够！"
End If
For i=0 To CountC-1
If Types=2 Then
rs.move int(s(i))-1,1
End If
ID3=rs("ID")&";"&ID3
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" Class=p1>
<tr>
<td width="100%" bgcolor="#f2f2f2" height="20" colspan=2 > <b><%=i+1%>、<%=rs("question")%></b>
</td>
<td nowrap>
<input type=text name="iResult" value="（答案：<%=rs("answer")%>）" style="display=none" Class="iResult" size=30>
</td>
</tr>
<tr>
<td valign=top> <input type="radio" name="NO<%=rs("id")%>" value="y">
正确<BR>
<input type="radio" name="NO<%=rs("id")%>" value="n">
不正确
</td>
<%
P=Trim(rs("PicList"))
If p<>"" Then
Response.Write "<td>"
PicList=Split(p,",")
For k=0 To ubound(PicList)-1
Response.Write"<a href='"&SoftPath&Trim(PicList(k))&"' target=_blank><img src='"&SoftPath&Trim(PicList(k))&"' border=0></a>"
Next
Response.Write"</td>"
End If
%>
</tr>
</table>
<%
If Types<>2 Then
rs.MoveNext
End if
Next
Else
M3="<BR><font color=red>抱歉！该类还没有任何自测题！</font><BR>"
End if
Response.Write M3
rs.close
End If
If M1<>"" or M2<>"" or M3<>"" Then
MyDisabled="disabled=1"
iSay="<font color=red>注意：这条自测卷是不全的，请与管理员联系：<a href=mailto:lengcool@hotmail.com>lengcool@hotmail.com</a></font>"
End If
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" Class=p1>
<tr>
<td width="100%" bgcolor="#f2f2f2" height="20" align=center> <input type=submit value=" 提交 " Class=input <%=MyDisabled%>> <input type=reset value=" 重置 " Class=input> <input type=button value="查看答案" Class=input onclick="Javascript:ShowMeResult();" name=iSee> <input type=button value="重新选题" Class=input onclick="location.reload()"> <input type=button value=" 返回 " Class=input onclick="history.go(-1);"><br>
<%=iSay%>
</td>
</tr>
</table></td>
<input type=hidden name=ID1 value="<%=ID1%>">
<input type=hidden name=ID2 value="<%=ID2%>">
<input type=hidden name=ID3 value="<%=ID3%>">
</form>
</tr>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td align="center" valign="top"><img src="images/050.gif" width="100%" height="10"></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -