📄 cj_all.asp
字号:
<!--#include file="Inc/Check.asp"-->
<!--#include file="Inc/oConn.asp"-->
<!--#include file="Inc/Info.asp"-->
<!--#include file="Inc/Page.asp"-->
<!--#include file="Inc/Public.asp"-->
<%
Response.Buffer = True
On Error Resume Next
Call CheckAdmin(",1,2,3,4,",","&Session("JB")&",")
Dim action,id,pg
action = RQuery("action")
pg = RQuery("page")
If pg&""="" Then pg = 1
id = RQuery("id")
If action&""<>"" Then action = LCase(action)
Call PHead("成绩管理")
Call Waiting()
Response.Flush()
Select Case action
Case "editsave"
Call editsave()
Case "delsave"
Call delsave()
Case "edit"
Call editface()
Case else
Call listface()
End Select
Call HWaiting()
Call PFoot()
Response.Flush()
If Err Then
Call ShowErrs()
End If
Sub editface()
Dim strSQL,objRs
Dim XH,XM,FS,KSSJ,BZ,SID,KSID,KMID
strSQL = "Select cjTable.sID,学号,姓名,ksID,kmID,分数,考试时间,cjTable.备注 from sTable,cjTable where sTable.sID=cjTable.sID And cjID="&id&""
Set objrs = oconn.execute(strsql)
If Not objrs.eof Then
SID = objRs(0)
XH = objRs(1)
XM = objRs(2)
KSID = objRs(3)
KMID = objRs(4)
FS = objRs(5)
KSSJ = objRs(6)
BZ = objRs(7)
Else
response.Write "参数错误！"
Set objrs = nothing
Call closeConn()
response.End
End If
Set objRs = nothing
%>
<script src="JavaScript/calendar.js" type="text/javascript"></script>
<table align="center" width="100%">
<form method="get" name="Search" onsubmit="return checkS()">
<tr><td class="thetitle">编辑考试成绩</td>
<td align="right">
<select name="sc">
<option value="学号">学号</option>
<option value="姓名">姓名</option>
</select>
<input type="text" size="10" name="sk" id="sk">
<input type="submit" value="查 询">
</td>
</tr>
</form>
</table>
<hr size="1" color="#b8b8b8"/>
<table width="500" cellpadding="5" cellspacing="1" align="center" class="table1">
<form method="post" action="?Action=EditSave&ID=<%=id%>" onsubmit="return checkF();">
<tr class="tbody">
<td class="thead">学 号</td>
<td><input type="text" name="学号" size="10" value="<%=XH%>" disabled></td>
</tr>
<tr class="tbody">
<td class="thead">姓 名</td>
<td><input type="text" name="姓名" size="10" value="<%=XM%>" disabled><input type="hidden" name="sID" value="<%=sid%>"></td>
</tr>
<tr class="tbody">
<td class="thead">考试项目</td>
<td><%=selectKS(KSID)%></td>
</tr>
<tr class="tbody">
<td class="thead">考试科目</td>
<td><%=selectKM(KMID)%></td>
</tr>
<tr class="tbody">
<td class="thead">分 数</td>
<td><input type="text" name="分数" size="10" value="<%=FS%>"></td>
</tr>
<tr class="tbody">
<td class="thead">考试时间</td>
<td><input type="text" name="考试时间" size="10" value="<%=KSSJ%>"> <input type="button" value="<<" onclick="calendar(document.forms[1].考试时间)"> 日期格式为：2007-10-13，你可以通过按钮选择日期。</td>
</tr>
<tr class="tbody">
<td class="thead">备 注</td>
<td><input type="text" name="备注" size="30" value="<%=BZ%>"></td>
</tr>
<tr class="tbody">
<td colspan="2" align="center"><input type="submit" value="保存编辑"> <input type="button" value="取消编辑" onclick="location.href='?Page=<%=pg%>'"></td>
</tr>
</form>
</table>
<script language="JavaScript">
<!--
FocusKey();
//-->
</script>
<%
End Sub
Sub listface()
Dim objRs,strSQL,MyPage,sc,i,sk,ksid,kmid,BJ,FS,sID,KSM,XM
sc = RQuery("sc")
sk = RQuery("sk")
ksid = RQuery("ksid")
kmid = RQuery("kmid")
%>
<script language="javascript" src="JavaScript/Menu.js"></script>
<table align="center" width="100%">
<form method="get" name="Search">
<tr><td class="thetitle">成绩浏览</td>
<td align="right">
<%=sKS()%> <%=sKM()%>
<select name="sc">
<option value="学号">学号</option>
<option value="姓名">姓名</option>
<option value="班级">班级</option>
<option value="年级">年级</option>
</select>
<input type="text" size="10" name="sk" id="sk">
<input type="submit" value="查 询">
<%If sk&""<>"" Or ksid&""<>"" Or kmid&""<>"" Then Print "<input type='button' value='显示所有' onclick=""location.href='?'"">"%>
</td>
</tr>
</form>
</table>
<hr size="1" color="#b8b8b8"/>
<table width="99%" cellpadding="5" cellspacing="1" align="center" class="table1">
<tr class="thead">
<!--<td width="5%">ID</td>-->
<td width="10%">姓名</td>
<td width="10%">学号</td>
<td width="8%">班级</td>
<td width="6%">性别</td>
<td width="20%">考试项目</td>
<td width="10%">科目</td>
<td width="8%">成绩</td>
<td width="12%">考试时间</td>
<td width="6%">班名</td>
<td width="6%">级名</td>
</tr>
<%
strSQL = "Select sTable.sID,姓名,学号,班级,性别,cjID,考试名称,科目名称,分数,考试时间,cjTable.kmID,cjTable.ksID From cjTable,ksName,kmName,sTable where sTable.sID=cjTable.sID And ksName.ksID=cjTable.ksID And kmName.kmID=cjTable.kmID"
If Session("JB")=4 Then strSQL = strSQL & " And 班级='"&Session("BJ")&"'"
If sk&""<>"" Then strSQL = strSQL & " And "&sc&" like '%"&sk&"%'"
If ksID&""<>"" Then strSQL = strSQL & " And cjTable.ksID="&ksID&""
If kmID&""<>"" Then strSQL = strSQL & " And cjTable.kmID="&kmID&""
strSQL = strSqL & " Order by sTable.sID DESC,cjTable.kmID DESC,cjTable.ksID DESC,cjTable.分数 Desc"
'Response.Write strSQL
Set MyPage = New xdownpage
MyPage.GetConn = oConn
MyPage.GetSQL = strSQL
MyPage.PageSize = 14
Set objRs = MyPage.GetRs()
If Not objRs.Eof Then
For i = 1 To MyPage.PageSize
%>
<tr class="tbody" onmouseout="this.style.background='#ffffff'" onmouseover="this.style.background='#f5f5f5'">
<!--<td><%=objRs(5)%></td>-->
<td><a href="javascript:void(0)" onClick="return clickreturnvalue()" onMouseover="dropdownmenu(this, event, menu<%=i%>, '100px')" onMouseout="delayhidemenu()"><%=objRs(1)%></a></td>
<td><%=objRs(2)%></td>
<td><%=objRs(3)%></td>
<td><%=objRs(4)%></td>
<td><%=objRs(6)%></td>
<td><%=objRs(7)%></td>
<td align="right"><%=objRs(8)%></td>
<td><%=objRs(9)%></td>
<td align="right"><%=KMPM(objRs(0),objRs(11),objRs(10),1,objRs(3),objRs(8))%></td>
<td align="right"><%=KMPM(objRs(0),objRs(11),objRs(10),2,objRs(3),objRs(8))%></td>
</tr>
<script language='javascript'>
var menu<%=i%>=new Array();
<%If Session("JB")<=2 then%>
menu<%=i%>[1]='<a href="?Action=Edit&ID=<%=objRs(5)%>&Page=<%=pg%>">编辑成绩资料</a>';
menu<%=i%>[2]='<a href="?Action=DelSave&ID=<%=objRs(5)%>&Page=<%=pg%>" onclick="return confirm(\'\\n警告：\\n\\n你真的要删除ID为“<%=objRs(5)%>”的资料吗？，此操作不可恢复！！\')">删除成绩资料</a>';
<%end if%>
menu<%=i%>[3]='<a href="CJ_All.asp?sc=<%=Server.UrlEncode("学号")%>&sk=<%=objRs(2)%>">只显此生成绩</a>';
menu<%=i%>[4]='<a href="CX_CJ.asp?sk=<%=objRs(2)%>&sxm=<%=Server.UrlEncode(objRs(1))%>">查看成绩排名</a>';
menu<%=i%>[5]='<a href="CX.asp?action=view&id=<%=objRs(0)%>">查看学籍资料</a>';
</script>
<%
BJ = objRs("班级")
sID = objRs(0)
KSM = objRs(6)
XM = objRs(1)
objRs.MoveNext
If objRs.Eof Then Exit For
Next
If ksID&""<>"" And (sc="学号" Or sc="姓名") And sk&""<>"" Then
Dim ZCJ
ZCJ = oConn.Execute("Select 总成绩 from sumCJ where sID="&sID&" and ksID="&ksID&"")(0)
%>
<tr class="tbody">
<td align="right" colspan="6"><%=XM%> <%=KSM%> 总成绩</td>
<td align="right"><%=ZCJ%></td>
<td></td>
<td title="总成绩班级排名" align="right"><%=ZCJPM(ksID,1,BJ,ZCJ)%></td>
<td title="总成绩年级排名" align="right"><%=ZCJPM(ksID,2,BJ,ZCJ)%></td>
</tr>
<%
End If
Else
%>
<tr><td colspan="10" class="tbody" height="60" align="center">没有找到你要查询的资料，</td></tr>
<%
End If
Set objRs = Nothing
%>
<tr><td colspan="10" class="tbody"><%=MyPage.ShowPage()%></td></tr>
</table>
<hr size='1' color='#b8b8b8'/>
提示：根据你的权限不同会显示不同的结果，教师只能显示本班成绩。考试时间暂时显示的为成绩导入数据库的时间。
<script language="JavaScript">
<!--
FocusKey();
//-->
</script>
<%
End Sub
%>
<%
Sub editsave()
On Error Resume Next
Dim strSQL
Dim KSID,KMID,sID,FS,KSSJ,BZ
KSID = FQuery("ksID")
KMID = FQuery("kmID")
sID = FQuery("sID")
FS = FQuery("分数")
KSSJ = FQuery("考试时间")
BZ = FQuery("备注")
strSQL = "update cjTable set ksID="&KSID&",kmID="&KMID&",分数="&FS&",考试时间='"&KSSJ&"',备注='"&BZ&"' where cjID="&id&""
oConn.Execute(strSQL)
'//更新总成绩资料
Call UPSumCJ(KSID,sID)
If Err Then
Call SaveLog(Session("XM"),"成绩管理","更新考试成绩失败")
Call closeconn()
Call JavaScript("alert('更新考试成绩失败！');location.href='?Page="&pg&"';")
Else
Call SaveLog(Session("XM"),"成绩管理","更新考试成绩成功")
Call JavaScript("alert('更新考试成绩成功！');location.href='?Page="&pg&"';")
End If
End Sub
Sub delsave()
On Error Resume Next
Dim strSQL,objRs,kID,sID
strSQL = "select ksID,sID From cjTable Where cjID="&ID&""
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strSQL,oConn,2,3
If Not objRs.Eof Then
kID = objRs(0)
sID = objRs(1)
'//删除此条成绩记录
objRs.Delete
'//更新总成绩
Call UPSumCJ(kID,sID)
End If
objRs.Close()
Set objRs = Nothing
If Err Then
Call SaveLog(Session("XM"),"成绩管理","删除考试成绩失败")
Call closeconn()
Call JavaScript("alert('删除考试成绩失败！');location.href='?Action=View&ID="&RQuery("sID")&"&Page="&pg&"';")
Else
Call SaveLog(Session("XM"),"成绩管理","删除考试成绩成功")
Call JavaScript("alert('删除考试成绩成功！');location.href='?Action=View&ID="&RQuery("sID")&"&Page="&pg&"';")
End If
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -