📄 cj.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,5,",","&Session("JB")&",")
Dim action,id,pg
action = RQuery("action")
id = RQuery("id")
pg = RQuery("Page")
If pg&""="" Then pg = 1
If action&""<>"" Then action = LCase(action)
Call PHead("成绩管理")
Call Waiting()
Response.Flush()
Select Case action
Case "addsave"
Call addsave()
Case "editsave"
Call editsave()
Case "delsave"
Call delsave()
Case "add"
Call addface()
Case "edit"
Call editface()
Case "view"
Call viewface()
Case else
Call listface()
End Select
Call HWaiting()
Call PFoot()
Response.Flush()
If Err Then
Call ShowErrs()
End If
Sub addface()
Dim strsql,objRs,xm,xh
strsql = "select 学号,姓名 from sTable where sID="&id&""
Set objRs = oConn.Execute(strsQL)
If Not objRs.Eof Then
xh = objRs(0)
xm = objRs(1)
Else
response.Write "参数错误！"
Set objrs = nothing
Call closeConn()
response.End
End If
%>
<script src="JavaScript/calendar.js" type="text/javascript"></script>
<%=SearchFrom("添加考试成绩")%>
<hr size="1" color="#b8b8b8"/>
<table width="500" cellpadding="5" cellspacing="1" align="center" class="table1">
<form method="post" action="?Action=AddSave" onsubmit="return checkF();">
<tr class="tbody">
<td class="thead">学 号</td>
<td><input type="text" name="学号" size="10" disabled value="<%=xh%>"></td>
</tr>
<tr class="tbody">
<td class="thead">姓 名</td>
<td><input type="text" name="姓名" size="10" disabled value="<%=xm%>"><input type="hidden" name="sID" value="<%=id%>"></td>
</tr>
<tr class="tbody">
<td class="thead">考试项目</td>
<td><%=selectKS(Session("CJ_ksID"))%> <%If Session("CJ_ksID")&""<>"" Then Print "系统自动选择上次录入项目"%></td>
</tr>
<tr class="tbody">
<td class="thead">考试科目</td>
<td><%=selectKM(Session("CJ_kmID"))%> <%If Session("CJ_kmID")&""<>"" Then Print "系统自动选择上次录入科目"%></td>
</tr>
<tr class="tbody">
<td class="thead">考试时间</td>
<td><input type="text" name="考试时间" size="10" value="<%=Session("CJ_ksDate")%>"> <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="10" onChange="toCheck()">
</td>
</tr>
<tr class="tbody">
<td class="thead">备 注</td>
<td><input type="text" name="备注" size="30"></td>
</tr>
<tr class="tbody">
<td colspan="2" align="center"><input id='btn' type="submit" value="添加资料"> <input type="reset" value="重新填写"> <input type="button" value="返回<%=xm%>的成绩表" onclick="location.href='?Action=View&ID=<%=id%>'"></td>
</tr>
</form>
</table>
<iframe id="ch" name="ch" marginwidth='0' marginheight='0' frameborder='0' scrolling='auto' style='width:0px;height:0px;'></iframe>
<script language="JavaScript">
<!--
FocusKey();
function toCheck()
{
document.ch.location.href='CheckCJ_Add.asp?ksid='+escape(document.forms[1].ksID.options[document.forms[1].ksID.selectedIndex].value)+'&kmid='+escape(document.forms[1].kmID.options[document.forms[1].kmID.selectedIndex].value)+'&sid='+escape(document.forms[1].sID.value)+''
}
//-->
</script>
<%
Call CheckJS()
End Sub
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>
<%=SearchFrom("编辑考试成绩")%>
<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="<%=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="10" value="<%=FS%>"></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="返回<%=xm%>的成绩表" onclick="location.href='?Action=View&ID=<%=sID%>'"></td>
</tr>
</form>
</table>
<script language="JavaScript">
<!--
FocusKey();
//-->
</script>
<%
Call CheckJS()
End Sub
Sub viewface()
%>
<%=SearchFrom("考试成绩管理")%>
<hr size="1" color="#b8b8b8"/>
<table width="98%" 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>考试项目</td>
<td>考试科目</td>
<td width="10%">分数</td>
<td>考试时间</td>
<td width="10%">班排名</td>
<td width="10%">年级排名</td>
<td width="10%" colspan="2"><a href="?Action=Add&ID=<%=id%>&Page=<%=PG%>">添加成绩</a></td>
</tr>
<%
Dim strSQL,objRs
Dim XH,XM,KSMC,KMMC,FS,KSSJ,BZ,SID,KSID,KMID
strSQL = "Select 学号,姓名,考试名称,科目名称,分数,考试时间,cjTable.备注,cjID,cjTable.kmID,cjTable.ksID,班级 from sTable,kmName,ksName,cjTable where sTable.sID=cjTable.sID And ksName.ksID=cjTable.ksID And kmName.kmID=cjTable.kmID And cjTable.sID="&id&" order by cjID desc"
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'" title="<%=objRs(6)%>">
<td><%=objRs(7)%></td>
<td><%=objRs(0)%></td>
<td><a href="CX_CJ.asp?sk=<%=objRs(0)%>&sxm=<%=Server.UrlEncode(objRs(1))%>"><%=objRs(1)%></a></td>
<td><%=objRs(2)%></td>
<td><%=objRs(3)%></td>
<td align="right"><%=objRs(4)%></td>
<td><%=objRs(5)%></td>
<td align="right"><%=KMPM(id,objRs(9),objRs(8),1,objRs(10),objRs(4))%></td>
<td align="right"><%=KMPM(id,objRs(9),objRs(8),2,objRs(10),objRs(4))%></td>
<td><a href="?Action=Edit&ID=<%=objRs(7)%>&Page=<%=Pg%>">编辑</a></td>
<td><a onclick="return confirm('你真的要删除此条资料吗？此操作将不可恢复！！')" href="?Action=DelSave&ID=<%=objRs(7)%>&sID=<%=id%>&Page=<%=Pg%>">删除</a></td>
</tr>
<%
objRs.MoveNext
If objRs.Eof Then Exit For
Next
Else
%>
<tr><td colspan="11" class="tbody" height="60" align="center">暂时没有成绩记录</td></tr>
<%
End If
Set objRs = Nothing
%>
<tr><td colspan="11" class="tbody"><%=MyPage.ShowPage()%></td></tr>
</table>
<script language="JavaScript">
<!--
FocusKey();
//-->
</script>
<%
End Sub
Sub listface()
%>
<%=SearchFrom("考试成绩管理")%>
<hr size="1" color="#b8b8b8"/>
<%
Dim objRs,strSQL,MyPage,sc,i,sk
sc = RQuery("sc")
sk = RQuery("sk")
If sk&""<>"" Then
%>
<table width="450" cellpadding="5" cellspacing="1" align="center" class="table1">
<tr class="thead">
<td width="10%">ID</td>
<td>姓名</td>
<td>学号</td>
<td>班级</td>
<td width="10%">性别</td>
<td width="15%"></td>
</tr>
<%
strSQL = "Select sID,姓名,学号,班级,性别 From sTable where 1=1"
If Session("JB")=4 Then strSQL = strSQL & " And 班级='"&Session("BJ")&"'"
If sk&""<>"" Then strSQL = strSQL & " And "&sc&" = '"&sk&"'"
strSQL = strSqL & " Order by sID 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><%=i%></td>
<td><%=objRs(1)%></td>
<td><%=objRs(2)%></td>
<td><%=objRs(3)%></td>
<td><%=objRs(4)%></td>
<td><a href="?Action=View&ID=<%=objRs(0)%>">管理成绩</a></td>
</tr>
<%
id = objRs(0)
objRs.MoveNext
If objRs.Eof Then Exit For
Next
Else
%>
<tr><td colspan="8" class="tbody" height="60" align="center">没有找到你要查询的资料，</td></tr>
<%
End If
Set objRs = Nothing
If i = 1 Then Call JavaScript("location.href='?Action=Add&ID="&id&"';"):Exit Sub
%>
<tr><td colspan="8" class="tbody"><%=MyPage.ShowPage()%></td></tr>
</table>
<%Else
Print "<div class='lface'>"
Print "<div class='thetitle'>"&Session("XM") & " 你好</div>"
Print "<hr size='1' color='#b8b8b8'/><br />"
Print "<ol>欢迎你使用考试成绩管理系统..."
Print "<li>从本页你可以直接对学生成绩进行查询及管理。"
Print "<li>要录入成绩，请先查询学号或姓名，然后再录入。"
Print "</ol>"
Print "<div align='left' class='footcopy'>©2007 XMSky</div>"
Print "</div>"
End If%>
<script language="JavaScript">
<!--
FocusKey();
//-->
</script>
<%
End Sub
%>
<%
Sub addsave()
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("备注")
Session("CJ_ksID") = ksID
Session("CJ_kmID") = kmID
Session("CJ_ksDate") = KSSJ
strSQL = "insert into cjTable (ksID,kmID,sID,分数,考试时间,备注) values ("&KSID&","&KMID&","&sID&","&FS&",'"&KSSJ&"','"&BZ&"')"
oConn.Execute(strSQL)
'//更新总成绩资料
Call UPSumCJ(KSID,sID)
If Err Then
Call SaveLog(Session("XM"),"成绩管理","添加考试成绩失败")
Call closeconn()
Call JavaScript("alert('添加考试成绩失败！');location.href='?Action=View&ID="&sID&"&Page="&pg&"';")
Else
Call SaveLog(Session("XM"),"成绩管理","添加考试成绩成功")
Call JavaScript("alert('添加考试成绩成功！');location.href='?Action=View&ID="&sID&"&Page="&pg&"';")
End If
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='?Action=View&ID="&sID&"&Page="&pg&"';")
Else
Call SaveLog(Session("XM"),"成绩管理","更新考试成绩成功")
Call JavaScript("alert('更新考试成绩成功！');location.href='?Action=View&ID="&sID&"&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
%>
<%Sub CheckJS()%>
<script language="javascript">
function checkF()
{
if (document.forms[1].sID.value=="")
{
window.alert('程序错误，没有获得学生学籍ID，请从正确的地址进入！');
return false;
}
if (document.forms[1].分数.value=="")
{
window.alert('请填写考试成绩！');
document.forms[1].分数.focus();
return false;
}
if (document.forms[1].考试时间.value=="")
{
window.alert('考试时间不能为空！');
document.forms[1].考试时间.focus();
return false;
}
}
</script>
<%End Sub%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -