test.asp

来自「这是一个无纸化测试系统」· ASP 代码 · 共 51 行

ASP
51 行
字号 
<!-- #include virtual="../itest/DB.fun" -->
<%
Lesson = Request("Lesson")
No =  Request("No")
Name = Request("Name")

SQL = "Select * From " & Lesson & " Order By 题号"
Set rs = GetMdbRecordset( "Test.mdb", SQL )
%>

<HTML>
<title>考试科目 -- <%=Lesson%></title>
<BODY BgColor=White>
<H2><font size="3">考试科目 -- <%=Lesson%></font> 
  <HR size="1">
</H2>
<FORM Action=Score.asp Method=GET>
  <font size="2">
  <INPUT Type=Hidden Name=Lesson Value=<%=Lesson%>>
  <INPUT Type=Hidden Name=No Value=<%=No%>>
  <INPUT Type=Hidden Name=Name Value=<%=Name%>>
  <%
While Not rs.EOF
%> <B><font color="red"><%=rs("题号")%></font>. <%=Server.HTMLEncode(rs("题目"))%> (<font color="blue"><%=rs("类型")%>:<%=rs("分数")%>分</font>)</B> <BLOCKQUOTE> 
  <%
  For I = 1 To 4 
    If rs("类型") = "单选" Then
       TestType = "Radio"
    Else
       TestType = "CheckBox"
    End If
%> 
  <INPUT Type=<%=TestType%> Name=No<%=rs("题号")%> 
    Value=<%=I%> size="20">
  <%=Server.HTMLEncode(rs("选项" & I))%><BR>
  <%
  Next
  Response.Write "</BLOCKQUOTE>"
  rs.MoveNext
Wend
%> 
  <INPUT Type=Submit Value="  交 卷  ">
  </font>
</FORM>
<HR size="1">
</BODY>
</HTML>

test.asp - 源码说明

本页面展示了「这是一个无纸化测试系统」中的 test.asp 源码文件，采用 ASP 编程语言编写，共 51 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与无纸化测试相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?