kcquery.asp

来自「实训的小作品 关于后台SQL知识的 简单制作！」· ASP 代码 · 共 57 行

<!--#include file="../data/const.asp"-->
<%  
str="select 编号,学院简称+名称 as 名称_ from 系部信息表视图 order by 编号"
set rs1=dbconn.Execute(str)
%>

<script language=javascript>
<!--
function check(form)
{
var empty=false;
if (form.xsh.value=="")
{ alert ("请选择开课系所");
  return false;
}
return true;
}
//-->
</script>

<!--#include virtual="../header.asp" -->
<br>
<table border="0" align="center" width="98%">
  <tr>
    <td>您当前的位置：公共信息->课程设置</td>
  </tr>
</table>

<form name="form1" method="get" action="kcquery1.asp" onsubmit="return check(form1)">
  <div align="center"><strong>请选择开课系所</strong></div>
  <table width="50%"  border="0" align="center">
    <tr>
      <td colspan="2"><hr size="0" width="80%"></td>
    </tr>
    <tr>
      <td align="right">开课系所：</td>
      <td>
	  <select name="xsh">
	  <option value="">--请选择开课系所--</option>
	  <% do while not rs1.eof %>
	  <option value="<%=rs1("编号")%>"><%=rs1("名称_")%></option>
	  <% rs1.movenext
	     loop
	  %>
	  </select>&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2"><hr size="0" width="80%"></td>
    </tr>
    <tr align="center">
      <td colspan="2"><input name="submit" type="submit" value="  确定  "></td>
    </tr>
  </table>
</form>
</div>  
<br>
<!--#include virtual="../footer.asp" -->