📄 ls.asp

📁 ASP 网页数据库短训教程源码

💻 ASP

字号:

<%@ Language=VBScript%> 
<HTML>
  <HEAD><TITLE>考试答题页面</TITLE></HEAD>
  <BODY bgcolor=LightYellow>
<%
  s=3			' 试卷题数
  redim a(s)
  for i = 1 to s
    v=Request.Form("Ans" & i)
    select case v
      case 1
        a(i)="rd1" & i
      case 2
        a(i)="rd2" & i
      case 3
        a(i)="rd3" & i
      case 4
        a(i)="rd4" & i
    end select
  next
  for i=1 to s
%>
    <FORM action=ls.asp method=post name=form1>
      <TABLE border=0 cellPadding=1 cellSpacing=1 width=100% bordercolor="#0099FF">
        <TR><TD>&nbsp; <%=i & "." %>
        <TR bgcolor="#99CCFF"> 
          <TD><INPUT id=rd1<%=i%> name=Ans<%=i%> type=radio value="1">aaaa
        <TR bgcolor="#CCCCFF">
          <TD><INPUT id=rd2<%=i%> name=Ans<%=i%> type=radio value="2">bbbb
        <TR bgcolor="#99CCFF">
          <TD><INPUT id=rd3<%=i%> name=Ans<%=i%> type=radio value="3">cccc
        <TR bgcolor="#CCCCFF">
          <TD><INPUT id=rd4<%=i%> name=Ans<%=i%> type=radio value="4">dddd
        <TR bgcolor="#99CCFF"> 
          <TD><INPUT name=Ans<%=i%> type=radio value="0" checked=true>
        <TR><TD align=Right><INPUT type=submit value=提交>
      </TABLE>
<script language=vbscript>
  form1.<%=a(i)%>.checked=true
</script>
<%
 next
%>
    </FORM>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -