xsquery.asp

实训的小作品 关于后台SQL知识的 简单制作！

<!--#include file="../data/const.asp"-->
<%
session("xsstr")="" 
xsh=request("xdxsm")
if xsh="" then
  str="select 编号,名称,学院简称 from 系部信息表视图 order by 编号"
  set rs=dbconn.Execute(str)
  if not rs.eof then
    xsh=rs("编号")
  end if
end if 
%>
<!--#include virtual="../header.asp" -->
<script language=javascript>
<!--
function check(form)
{
if ((form.zychk.checked) && (form.zy.value==""))
   {alert ("请选择专业");
return false;
}

if ((form.xmchk.checked) && (form.xm.value==""))
   {alert ("请输入姓名");
return false;
}

if ((form.njchk.checked) && (form.nj.value==""))
   {alert ("请选择年级");
return false;
}
return true;
}
//-->
</script>
<br>
<table border="0" align="center" width="98%">
  <tr>
    <td>您当前的位置：学籍->学生信息查询</td>
  </tr>
</table>

<form action="xsquery.asp" method="post" name="form1">
  <table width="60%" border="0" align="center">
    <tr>
	  <td colspan="2" align="center"><hr size="0" width="80%"></td>
	</tr>	
	<tr> 
      <td width="30%" align="right">选择系所：</td>
      <td width="70%">
	    <select name="xdxsm" onchange="javascript:document.form1.submit();">
        <%  str="select 编号,名称,学院简称 from 系部信息表视图 order by 编号"
            set rs=dbconn.Execute(str)
            do while not rs.eof 
        %>
         <option value="<%=rs("编号")%>" <% if rs("编号")=xsh then response.write "selected"%>><%=rs("学院简称")%><%=rs("名称")%></option>
       <%      rs.movenext
            loop
       %>
    </select>
	  </td>
    </tr>    
  </table>	
</form>

<form name="form2" method="post" action="xsquery1.asp?que=0" onsubmit="return check(form2)">  
  <table width="60%" border="0" align="center">
    <tr> 
      <td width="30%" align="right">专业：<input name="zychk" type="checkbox" id="zychk"></td>         
      <td width="70%">
		<select name="zy" id="zy">
        <% if xsh<>"" then
		     str="select * from 专业信息表视图 where 院系编号='"&xsh&"'"
             set rs=dbconn.Execute(str)
             do while not rs.eof 
        %>
        <option value="<%=rs("院系编号")&":"&rs("编号")%>"><%=rs("名称")%></option>
        <%   rs.movenext
             loop
		    end if	 
        %>
        </select>
	  </td>
    </tr>
	<tr>
	  <td align="right">年级：<input name="njchk" type="checkbox" id="njchk"></td>	    
	  <td>
	    <select name="nj" id="nj">
		<%  str="select distinct 年级 from 学生信息表视图 order by 年级 desc"
            set rs=dbconn.Execute(str)
            do while not rs.eof 
        %>
        <option value="<%=rs("年级")%>"><%=rs("年级")%></option>
        <%  rs.movenext
            loop
        %>
        </select>
      </td>
    </tr>	
    <tr> 
      <td align="right">姓名：<input name="xmchk" type="checkbox" id="xmchk"></td>      
      <td>
        <input name="xm" type="text" id="xm" size="24">
</td>
    </tr>
    <tr> 
      <td align="right">性别：<input type="checkbox" name="xbchk"></td>        
      <td> 
        <select name="xb">
          <option>男</option>
          <option>女</option>
        </select>
      </td>
    </tr>
    <tr>
	  <td colspan="2" align="center"><hr size="0" width="80%"></td>
	</tr>
	<tr>
	  <td colspan="2" align="center">
	    <input type="submit" name="Submit2" value="  查询  ">&nbsp;&nbsp;<input type="reset" name="Submit" value="  重置  ">
	  </td>
	</tr>    
  </table>
</form>  
<br>
<!--#include virtual="../footer.asp" -->