test.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 46 行

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

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

<HTML>
<BODY BgColor=White Background="../B01.jpg">
<H2>考试科目 -- <%=Lesson%><HR></H2>
<FORM Action=Score.asp Method=GET>
<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><%=rs("题号")%>. <%=Server.HTMLEncode(rs("题目"))%>
  (<%=rs("类型")%>:<%=rs("分数")%>分)</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%>><%=Server.HTMLEncode(rs("选项" & I))%><BR>
<%
  Next
  Response.Write "</BLOCKQUOTE>"
  rs.MoveNext
Wend
%>
<INPUT Type=Submit Value="  交 卷  ">
</FORM>
<HR>
</BODY>
</HTML>

test.asp - 源码说明

本页面展示了「Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明」中的 test.asp 源码文件，采用 ASP 编程语言编写，共 46 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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