jscjlr1.asp

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

<!--#include file="../data/const.asp"-->
<%
response.Buffer = True 
response.ExpiresAbsolute = Now() - 1    
response.Expires = 0    
response.CacheControl = "no-cache" 

if (len(session("user"))=0) then 	
  response.Redirect "../login.asp"
end if
  
bjh=trim(request.querystring("bjh"))
bjm=trim(request.querystring("bjm"))
kch=trim(request.querystring("kch"))
kcm=trim(request.querystring("kcm"))
xnxq=trim(request.querystring("xnxq"))
kslx=trim(request.querystring("kslx"))
jsh=session("user")

str="select * from 教学成绩表视图 where 课程编号='"&kch& "' and 教师编号='"&jsh&"' and 班级编号="&bjh&" and 学年学期='"&xnxq&"' order by 学号"
set rs=dbconn.Execute(str) 
if not rs.eof then
%>
  <script language=vbscript>
    alert "班级："&bjm&" 课程："&kcm&" 的成绩已录！"
    history.back()
  </script>
<%
end if
%>

<!--#include virtual="../header.asp" -->
<script>
function KeyEnter()
{
  if (window.event.keyCode==13)
  {
    window.event.keyCode=0;
    window.event.returnValue=false;
  }
}
</script>

<script language="JavaScript">
function check(form1) {
  for(var i=0; i<form1.elements.length-4; i=i+2){
    if (form1.elements[i].value == ""){      
      alert("必须输入所有学生的成绩!");
      form1.elements[i].focus();
      return false; 
    }
  }

  for(var i=0; i<form1.elements.length-5; i=i+2){
    if (form1.elements[i].type=="text"){
      var fs=form1.elements[i].value;
      for(var j=0; j<fs.length; j++){
        var fs1=fs.substring(j,j+1);
        if (!(((fs1>='0') && (fs1<='9')) || (fs1=='.'))){
          alert("分数必须是数字!");
          form1.elements[i].focus();
          return false;
        }
      }

      if (isNaN(fs)){
        alert("分数输入错误!");
        form1.elements[i].focus();
        return false; 
      }
      
      if ((parseFloat(form1.elements[i].value)>100) || (parseFloat(form1.elements[i].value)<0)){
        alert("分数超出了范围!");
        form1.elements[i].focus();
        return false;
      }   
    }
  }
  return true;
}
</script>

<br>
  <table width="98%" align="center" border="0">
  <tr>
    <td height="28">您当前的位置：<a href="../asp/jscjlr.asp">成绩录入</a>->学生名单</td>
  </tr>
  </table>  
  <table width="98%" border="0" align="center">
  <tr>
    <td width="100%">录入提示：如果没有考试时间，请您先设置考试时间（设置时间时，考试时间格式为“年月日”,如:20020102表示2002年1月2号）。录入时若学生无成绩，考试课请录‘0’,考查课请录‘不及格’。录入完成后，请您认真核实成绩数据，核实无误后再提交，成绩只能提交一次（录入时用Tab键实现换行）</td>
  <tr>
  </table>
  <table width="98%" border="0" align="center">
  <tr>
    <td width="50%">

	<form name="form1" method="post" action="<%=sql1%>">
    <input type="text" name="kssj" maxlength="10" value="<%=kssj0%>" onkeydown="KeyEnter(this);">
    <input type="submit" name="Submit2" value="设置考试时间">
	</form>

	<td width="50%">
	<form name="form2" method="post" action="<%=sql3%>">
	<select name="lrfssel">
      <% if lrfs="1" then %>
         <option value="1" selected>按分数录入</option>
         <option value="2">按等级录入</option>
      <% else %>
         <option value="1">按分数录入</option>
         <option value="2" selected>按等级录入</option>
      <% end if %> 
    </select>
	<% if kslx="考试" then%>
	<input type="hidden" name="Submit2" value="设置录入方式">
	<% else %>
        <input type="submit" name="Submit2" value="设置录入方式">
	<% end if %>
	</form>

  </tr>
  </table>  
  
  <form name="form" method="post" action="<%=sql2%>" onkeydown="KeyEnter(this);" onsubmit="return check(this)">
  <table cellspacing="0" bordercolor="#cccccc" bordercolordark="#FFFFFF" align="center" border="1" id="mytable">
    <tr> 
      <th width="20%" height="20"> <div align="center">班名</div></th>
      <th width="15%" height="20"> <div align="center">学号</div></th>
      <th width="15%" height="20"> <div align="center">姓名</div></th>
      <th width="10%" height="20"> <div align="center">成绩</div></th>
      <th width="15%" height="20"> <div align="center">标志</div></th>
      <th width="10%" height="20"> <div align="center">状态</div></th>
      <th width="15%" height="20"> <div align="center">考试时间</div></th>
    </tr>
<%
  xhlb=""  
  kslx=rs("kslx")
  lrzt=""  
  xss=0
  do while not rs.eof
    '保存学号列表
    if xhlb="" then
      xhlb=trim(rs("xh"))
    else
      xhlb=xhlb&","&trim(rs("xh"))
    end if
	
    '保存录入状态
    if lrzt="" then
      lrzt=rs("lrzt")
    else
      lrzt=lrzt&","&rs("lrzt")
    end if
    if rs("lrzt")="已录" then
      x="#48d1cc"
    else
      x="#fffff0"
    end if
    xss=xss+1
%>
  <tr bgcolor=<%=x%>> 
    <td height="21"><%=rs("bm")%>&nbsp</td> 
    <td height="21"><%=rs("xh")%></td>
    <td height="21"><%=rs("xm")%>&nbsp</td>
    <td height="21"> 
       <%if (lrfs="1") then %>
          <%if rs("lrzt")="未录" then%>
            <input name="<%=trim(rs("xh"))%>" type="text" size="10">&nbsp;
          <%else%>
            <input name="<%=trim(rs("xh"))%>" type="text" size="10" readonly="true" value="<%=rs("kscj")%>">
          <%end if%>
       <%else%>
          <%if rs("lrzt")="未录" then%>
            <select name="<%=trim(rs("xh"))%>" size=1>
              <%for i=1 to num+1 %>
              <option value="<%=array1(i-1)%>"><%=array1(i-1)%></option>&nbsp;
              <%next%>
            </select>
          <%else%>
            <input name="<%=trim(rs("xh"))%>" type="text" size="10" readonly="true" value="<%=rs("kccj")%>">
          <%end if%>
       <%end if%>
    </td>
    <td height="21">
       <select name=<%="qklx"&trim(rs("xh"))%>>
         <% for i=0 to qklxs-1 %>
		 <% if trim(rs("bz"))=qklx(i) then %>
		   <option selected><%=qklx(i)%></option>
		 <% else %>  
           <option><%=qklx(i)%></option>
		 <% end if %>  
         <%next%>
       </select>         
    </td> 
    <td height="21"><%=rs("lrzt")%>&nbsp;</td>
    <td height="21"><%=rs("kssj")%>&nbsp;</td>
  </tr>
  <% rs.movenext 
     loop	  
  %>
  </table>
   <div align="center">
   <br>
    <% if x="#fffff0" then %>
    <input type="submit" name="Submit" value=" 成绩提交 ">
    <% end if %>
    <input type="hidden" name="xsnum" value="<%=xss%>">
    <input type="hidden" name="zt" value="<%=lrzt%>">
    <input type="hidden" name="xhmx" value="<%=xhlb%>">	
  </div>
</form>
<!--#include virtual="../footer.asp" -->

教学成绩表视图
AS
学号, 姓名, 教师编号, 教师姓名, 课程编号, 课程名称, 
考试日期, 学年学期, 考试类别, 成绩, 分数, 
考试考查类型, 录入日期, 专业, 
班级, 年级, 班级编号, 专业编号, 院系编号, 学院, 系部