ls.asp

来自「ASP 网页数据库短训教程源码」· ASP 代码 · 共 47 行

ASP
47 行
字号 
<%@ 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>

ls.asp - 源码说明

本页面展示了「ASP 网页数据库短训教程源码」中的 ls.asp 源码文件，采用 ASP 编程语言编写，共 47 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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