📄 xgcj.asp
字号:
<!--#include file="pwd.asp" -->
<!--#include file="cjgl_conn.inc" -->
<%
if session("sbjmc")="" then
response.write "未选择班级！<a href=""cjgl.asp"">返回</a>"
response.end
end if
tkck=session("sbjdm")&session("sxqdm") '开设课程库名
if session("sbj")="" then
tbj=request("bj")
session("sbj")=tbj
else
tbj=session("sbj")
end if
select case tbj
case 1
bt="平时成绩一"
tcjk=tkck&"1"
case 2
bt="平时成绩二"
tcjk=tkck&"2"
case 3
bt="平时成绩三"
tcjk=tkck&"3"
case 4
bt="平时成绩四"
tcjk=tkck&"4"
case 5
bt="平时成绩五"
tcjk=tkck&"5"
case 6
bt="半期成绩"
tcjk=tkck&"6"
case 7
bt="期末成绩"
tcjk=tkck&"7"
case 8
bt="总评成绩"
tcjk=tkck&"8"
end select
session("sbt")=bt
sql="select * from "&tcjk
Set RS = Server.CreateObject("ADODB.RecordSet")
on error resume next '忽略错误继续向下执行
RS.Open sql, cjgl_Conn
if err<>0 then '成绩库不存在
response.write(session("sbjmc")&session("sxqmc")&bt&"不存在！<a href=""cjgl.asp"">返回</a>")
rs.close
set rs=nothing
on error goto 0 '恢复错误检查
response.end
end if
on error goto 0 '恢复错误检查
Set RS0 = Server.CreateObject("ADODB.RecordSet")
sql="select * from "&tkck
RS0.Open sql, cjgl_Conn
%>
<HTML>
<HEAD><TITLE>修改<%=session("sbjmc")%><%=session("sxqmc")%><%=bt%></TITLE></HEAD>
<BODY bgcolor="#C0C0C0">
<H3 align=center>修改“<%=session("sbjmc")%>(<%=session("sbjdm")%>)”<%=session("sxqmc")%><%=bt%>
 <a href="cjgl.asp">返回</a>
</H3>
<center>
<TABLE BGCOLOR=#ffffff CELLSPACING=0 BORDER=1>
<TR><td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>学号</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>姓名</td>
<%
do while not rs0.eof
response.write "<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>"&rs0("kcmc")&"</td>"
rs0.movenext
loop
%>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>总分</td><td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>名次</td>
</tr>
<tr>
<% Do While Not RS.EOF %>
<td BORDERCOLOR=#c0c0c0><%=session("sbjdm")%><%=rs("xh")%></td>
<td BORDERCOLOR=#c0c0c0><a href="xgcj1.asp?txh=<%=rs("xh")%>&txm=<%=rs("xm")%>"><%=rs("xm")%></a></td>
<% rs0.movefirst
do while not rs0.eof
tdm=rs0("kcdm")
cfs=rs(tdm)
if cfs>=0 then
response.write "<td BORDERCOLOR=#c0c0c0>"&cfs&"</td>"
else %>
<td BORDERCOLOR=#c0c0c0> </td>
<% end if
rs0.movenext
loop
if rs("zf")>0 then %>
<td BORDERCOLOR=#c0c0c0><%=rs("zf")%></td>
<%
else %>
<td BORDERCOLOR=#c0c0c0> </td>
<%
end if
if rs("mc")>0 then
%>
<td BORDERCOLOR=#c0c0c0><%=rs("mc")%></td>
<%else
%>
<td BORDERCOLOR=#c0c0c0> </td>
<%
end if
response.write "</tr>"
rs.movenext
loop
rs0.close
set rs0=nothing
rs.close
set rs=nothing
%>
</table><p><a href="jsmc.asp">计算名次</a>
<a href="cjgl.asp">返回</a>
</center>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -