jscjlr.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
jsh=Session("user")

str="select 名称 from 系统参数表 where 类别 = '成绩录入学期'"
set rs=dbconn.execute(str)
if trim(rs("名称"))="" then
%>
  <script language="vbscript">
    alert "已停止成绩录入工作！指定录入成绩的学年学期为空。"
    history.back()
  </script>
<%
  response.end
end if
xnxq=rs("名称")

 
str="select * from 班级课程设置表视图 where 学年学期='"&xnxq&"' and 教师编号='"&jsh&"' order by 学年学期,课程编号,班级编号"
set rs=dbconn.execute(str)
if rs.eof or rs.bof then
%>
  <script language=vbscript>
    msgbox "没有成绩录入数据！"
	history.back
  </script>
<% 
  response.end
end if
%>
<!--#include virtual="../header.asp" -->
<br>
<table border="0" align="center" width="98%">
  <tr>
    <td><font color="#FF0000">您当前的位置：成绩录入</font></td>
  </tr>
</table>

<div align="center">您正在录入的是<font color=red><%=xnxq%></font>的课程成绩</div> 
  <table cellspacing="0" bordercolor="#cccccc" bordercolordark="#FFFFFF" align="center" border="1" id="mytable">
    <tr>     
      <th width="20%" height="18"><div align="center">班级名称</div></th>
      <th width="10%" height="18"><div align="center">课程编号</div></th>
      <th width="20%" height="18"><div align="center">课程名称</div></th>
      <th width="10%" height="18"><div align="center">考试类型</div></th>
      <th width="30%" height="18" colspan="2"><div align="center">操作</div></th>
    </tr>
    <%
    do while not rs.eof
%>
    <tr> 
      <td height="21"><div align="center"><%=rs("班级名称")%></div></td>
      <td height="21"><div align="center"><%=rs("课程编号")%></div></td>
      <td height="21"><div align="center"><%=rs("课程名称")%></div></td>
      <td height="21"><div align="center"><%=rs("考试类型")%>&nbsp;</div></td>
      <td height="21" width="15%"><div align="center"><a href="jscjlr1.asp?kch=<%=rs("课程编号")%>&kcm=<%=rs("课程名称")%>&kslx=<%=rs("考试类型")%>&bjh=<%=rs("班级编号")%>&bjm=<%=rs("班级名称")%>&xnxq=<%=xnxq%>">录入</a></div></td>
      <td height="21" width="15%"><div align="center"><a href="jscjlr2.asp?kch=<%=rs("课程编号")%>&kcm=<%=rs("课程名称")%>&kslx=<%=rs("考试类型")%>&bjh=<%=rs("班级编号")%>&bjm=<%=rs("班级名称")%>&xnxq=<%=xnxq%>">查询</a></div></td>
    </tr>
    <%    
  rs.movenext
  loop
%>
</table>
<br>
<!--#include virtual="../footer.asp" -->