📄 disp_tm.asp
字号:
<!--#include file="open.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/css.css" -->
<title>显示题目</title>
</head>
<body topmargin="1">
<!--#include file="inc/top.asp" -->
<!--#include file="inc/menu.asp" -->
<% if session("zzstudent")=false then
response.redirect("index.asp")
end if%>
<%tm_no=request.querystring("tm_no")
your_da=request.querystring("your_da")
str="select * from test_tm where id="&tm_no&""
set rs=conn.execute(str)%>
<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="ff99cc" bgcolor="edebeb">
<tr>
<td width="200" valign="top">
<table width="163" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="unnamed6"> </td>
</tr>
<tr>
<td background="images/nxmt_lj_46.gif" class="unnamed10"> </td>
</tr>
<tr>
<td height="20" background="images/nxmt_lj_44.gif" class="unnamed12">
<div align="center">正确答案是：<%=rs("da")%></div></td>
</tr>
<tr>
<td height="20" background="images/nxmt_lj_44.gif" class="unnamed12">
<div align="center">你的答案是：
<%if your_da="0" then response.write "没做" else response.write your_da end if%>
</div></td>
</tr>
<tr>
<td height="20" background="images/nxmt_lj_44.gif" class="unnamed12">
<div align="center">
<%if rs("da")=your_da then response.write "正确" else response.write "错误" end if%>
</div></td>
</tr>
<tr>
<td background="images/nxmt_lj_44.gif" class="unnamed4"> </td>
</tr>
<tr>
<td height="20" background="images/nxmt_lj_44.gif" class="unnamed12">
<div align="center">
<INPUT class=unnamed5 onclick=javascript:history.go(-1) type=button value=返回>
<a href="quit.asp"><span class="unnamed14">退出</span></a></div></td>
</tr>
<tr>
<td background="images/nxmt_lj_45.gif" class="unnamed10"> </td>
</tr>
<tr>
<td class="unnamed6"> </td>
</tr>
</table></td>
<td width="570" valign="top"><table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="unnamed6"> </td>
</tr>
</table>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="unnamed12">
<td colspan="2"> <%=rs("tm_text")%> </td>
</tr>
<tr class="unnamed12">
<td colspan="2"> <%
Dim fs,strFileNameAndPath '检测文件是否存在
strFileNameAndPath=rs("img_name")
strFileNameAndPath="testimages/"&strFileNameAndPath
strFileNameAndPath=Server.MapPath(strFileNameAndPath) '你的文件及路径
set fs=CreateObject("Scripting.FileSystemObject")
if fs.FileExists(strFileNameAndPath) then
response.write "<br>"
response.write "<img src=testimages/"&rs("img_name")&">"
end if
%> </td>
</tr>
<tr class="unnamed12">
<td width="8%" valign="bottom">
<div align="center">
<input type="radio" name="radiobutton" value="radiobutton">
</div></td>
<td width="92%"> A、<%=rs("da_a")%></td>
</tr>
<tr class="unnamed12">
<td width="8%" valign="bottom">
<div align="center">
<input type="radio" name="radiobutton" value="radiobutton">
</div></td>
<td width="92%">B、<%=rs("da_b")%></td>
</tr>
<tr class="unnamed12">
<td width="8%" height="17" valign="bottom">
<div align="center">
<input type="radio" name="radiobutton" value="radiobutton">
</div></td>
<td width="92%">C、<%=rs("da_c")%></td>
</tr>
<tr class="unnamed12">
<td width="8%" valign="bottom">
<div align="center">
<input type="radio" name="radiobutton" value="radiobutton">
</div></td>
<td width="92%">D、<%=rs("da_d")%></td>
</tr>
</table></td>
</tr>
</table>
<%conn.close%>
<!--#include file="inc/bottom.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -