bjcjb.asp

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

<!--#include file="../data/const.asp"-->
<%  
if len(session("user"))=0 then
  response.Redirect "../login.asp"
end if

bzr=Session("username")
str="select 名称 from 班级信息表视图 where 班主任='"&bzr&"'"
set rs=dbconn.execute(str)
if rs.eof or rs.bof then
%>
  <script language=vbscript>
    msgbox "您不是班主任，不能查看班级的成绩！"
	history.back()
  </script>
<% 
end if 


str1="select 学年学期 from 学年学期表 order by 学年学期 desc"
set rs1=dbconn.Execute(str1)
%>

<script language=javascript>
<!--
function check(form)
{
var empty=false;
if (form.xnxq.value=="")
{ alert ("请选择学年学期");
  return false;
}
if (form.bj.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="post" action="bjcjb1.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="bj">
	  <option value="">--请选择班级--</option>
	  <% do while not rs.eof %>
	  <option value="<%=rs("名称")%>"><%=rs("名称")%></option>
	  <% rs.movenext
	     loop
	  %>	 
	  </select>&nbsp;</td>
    </tr>
    <tr>
      <td align="right">学年学期：</td>
      <td>
	  <select name="xnxq">
	  <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" -->