ksjl.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 30 行

<!--#include file="conn.inc"-->
<%
test=session("test")
sql="select * from test_user where testid='" & session("test") & "'"
set rs=createobject("adodb.recordset")
rs.open sql,conn,3,2
%>


<form method="POST" action="ksjl1.asp?testid=<%=test%>">
  考试时间<select size="1" name="D2">
  <option>请选择</option>
     
      <%  
      do while not rs.eof 
       if not rs.eof and trim(rs("testid"))=test then 
        %>
        <option><%=rs("starttime")%></option>
        <%
        else
         response.end
         end if 
          rs.movenext
          loop
        %>
           
     
          
  </select> <input type="submit" value="查询" name="B1"></p>
</form>