kstype.asp

来自「考试系统asp环境下开发,access数据库」· ASP 代码 · 共 57 行

ASP
57
字号
<!-- #include file="cookies.asp" -->
<!-- #include file="conn.asp" -->
<html>
<head>
<title>请选择试卷</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="90%" border="0" align="center">
  <tr>
    <td height="25" bgcolor="#86A294"> 
      <div align="center"><b><font size="5">请选择考试类目</font></b></div>
    </td>
  </tr>
</table>
      <form name="form1" method="post" action="kscheck.asp?type=start">
<table width="90%" border="0" align="center" height="25">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from kstype order by id asc"
rs.open sql,conn,1,1
if not rs.eof then 
%>

  <tr>
  <%
  dim i
  i=1
  do while not rs.eof%>
      <td bgcolor="#DCE4E0"> 
        <input type="radio" name="typeid" value="<%=trim(rs("id"))%>">
        <%=trim(rs("kstype"))%> [考试时间:<%=trim(rs("kstime"))%>分钟]</td>
		<%
				if i mod 2=0 then
		response.write "</tr>"
		response.write "<tr>"
		end if
		i=i+1
		rs.movenext
		loop
		end if
		rs.close
		set rs=nothing
		conn.close
		set conn=nothing
		%>
  </tr>
</table>
      
  <p align="center"> 
    <input type="submit" name="Submit" value="开始考试">
  </p>
</form>
</body>
</html>

⌨️ 快捷键说明

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