📄 test.asp

📁 asp开发 asp开发 asp开发 asp开发

💻 ASP

字号:

<%
Lesson = Request("Lesson")
No =  Request("No")
Name = Request("Name")
SQL = "SELECT * FROM " & Lesson & " ORDER BY 题号"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &_
	Server.MapPath("test.mdb")
Set rs = conn.Execute( sql )
%>
<HTML> <BODY BGCOLOR=BEIGE>
<CENTER>
<H1><FONT COLOR=#6699DD>在线考试系统</FONT></H1></CENTER>
<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>
  <div>
<%
  '得到选择题的四个选项
  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 "</div>"
  rs.MoveNext
Wend
%>
<INPUT Type=Submit Value="  交 卷  ">
</FORM>
<HR> </BODY>  </HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -