📄 showmeonetest.asp
字号:
<!--#include file=Conn.asp !-->
<html>
<head>
<title></title>
<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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<%
'Writed by QQ:190988779 At 2003-11-20
ID=Trim(Request("ID"))
sql="select * from TestTopic where ID="& ID
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open sql,Conn,1,1
Types=Trim(Rs("Type"))
If Types="单选题" Then
%>
<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>
<%=rs("question")%>（<%=Types%>）</b>
</td>
</tr>
<tr>
<td height="20" nowrap bgcolor="#FFFFFF">
<% 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>
<%ElseIf Types="多选题" Then%>
<table border="0" cellspacing="0" bordercolor="#111111" width="100%" Class=p1>
<tr>
<td width="100%" bgcolor="#f2f2f2" height="20" colspan=2 > <b><%=rs("question")%>（<%=Types%>）</b>
</td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF">
<% 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>
<%ElseIf Types="判断题" Then%>
<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><%=rs("question")%>（<%=Types%>）</b>
</td>
</tr>
<tr>
<td valign=top bgcolor="#FFFFFF">
<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>
<%End If%>
您所选答案：<%=Request("iResult")%>;正确答案：<%=Rs("answer")%>
<input type=button value="关闭窗口" onClick="Javascript:top.close()">
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -