📄 que_view.asp

📁 本人的课程设计。不足之处请大家指教。因为第一次用ASP有很多不足的地方。

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="cookies.asp" -->
<!-- #include file="conn/conn.asp" -->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网上考试系统 - 浏览题目</title>
</head>

<body>
<table width="100%" border="0">
  <tr> 
    <td><font color="#0000FF">【浏览题目】</font></td>
  </tr>
  <%
  set rs=server.createobject("adodb.recordset")
  sql="select * from question where qid='"&trim(request.querystring("qid"))&"'"
  rs.open sql,conn,1,1
  if not rs.eof then

  %>

  <tr>
    <td><table width="70%" border="0" align="center" bgcolor="#E4E4E4">
  <tr> 
    <td width="100" height="30"><div align="right"><strong>题号号：</strong></div></td>
	<td height="30"><%=trim(rs("qid"))%></td>
  </tr>	
        <form name="form1" method="post" onsubmit="return check();" action="que_edit.asp?qid=<%=request.querystring("qid")%>">
          <tr> 
            <td width="100" height="30"> <div align="right"><strong>题目名称：</strong></div></td>
            <td height="30"> <%=trim(rs("qname"))%></td>
          </tr>
          <tr> 
            <td width="100" height="30"> <div align="right"><strong>题型：</strong></div></td>
            <td height="30">
              <%if trim(rs("qtype"))=1 then%>
              单选题
              <%elseif trim(rs("qtype"))=2 then%>
              多选题
			  <%elseif trim(rs("qtype"))=3 then%>
			  判断题
              <%end if%>
            </td>
          </tr>
          <tr> 
            <td width="100" height="30" valign="top"> <div align="right"><strong>可选项：</strong></div></td>
            <%
			a=split(trim(rs("rightkey")),",")
			b=ubound(a)
			%>
            <td height="30"><p>A： <%=trim(rs("key1"))%> <br>
                B： 
                <%
				for i=0 to b
				if trim(a(i))="B" then
				j=6
				end if
				next
				%>
                <%=trim(rs("key2"))%> <br>
                C： <%=trim(rs("key3"))%> <br>
                D： <%=trim(rs("key4"))%> <br>
                E： <%=trim(rs("key5"))%> <br>
                F： <%=trim(rs("key6"))%> <br>
              <p>标准答案：<%=trim(rs("rightkey"))%> </p></td>
          </tr>
        </form>
        <%
		end if
		rs.close
		set rs=nothing
		%>
      </table></td>
  </tr>
</table>
<p align="center"> 
  <input type="button" name="Submit" value="关闭窗口" onclick="window.close();">
</p>
</body>
</html>
<%
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -