yh.asp

轩圆学生信息管理系统 081029修正了成绩数据浏览时查看单个学生成绩时总分排名显示表格问题。 //===============================================

<!--#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"-->
<!--#include file="Inc/md5.asp"-->
<%
On Error Resume Next 
Call CheckAdmin(",1,",","&Session("JB")&",")
Dim action,id
action = RQuery("action")
id = RQuery("id")
If action&""<>"" Then action = LCase(action)
Select Case action
Case "addsave"
	Call addsave()
Case "editsave"
	Call editsave()
Case "delsave"
	Call delsave()
End select
Call listface()
If Err Then
	Call ShowErrs()
End If 

Sub addface()
%>
<table width="250" cellpadding="5" cellspacing="1" align="center" class="table1">
<form method="post" action="?Action=AddSave" onsubmit="return checkF();">
<tr class="thead">
	<td colspan="2" align="left">添加资料>></td>
</tr>
<tr class="tbody">
	<td>姓名</td>
	<td><input type="text" name="姓名" size="10"></td>
</tr>
<tr class="tbody">
	<td>班级</td>
	<td><input type="text" name="班级" size="15"><br />如果是多个班级，请用“|”号分隔</td>
</tr>
<tr class="tbody">
	<td>帐号</td>
	<td><input type="text" name="帐号" size="10"></td>
</tr>
<tr class="tbody">
	<td>密码</td>
	<td><input type="text" name="密码" size="10"></td>
</tr>
<tr class="tbody">
	<td>级别</td>
	<td><%=SC("")%></td>
</tr>
<tr class="tbody">
	<td>部门</td>
	<td><input type="text" name="部门" size="10"></td>
</tr>
<tr class="tbody">
	<td>职务</td>
	<td><input type="text" name="职务" size="10"></td>
</tr>
<tr class="tbody">
	<td colspan="2" align="center"><input type="submit" value="添加资料"> <input type="reset" value="重新填写"></td>
</tr>
</form>
</table>
<%
End Sub

Sub editface()
'If id=1 And Session("XM")<>"管理员" Then Call CloseConn:Call JavaScript("alert('此用户不允许编辑！');location.href='?';"):Exit Sub
Dim strSQL,objRs
Dim XM,BJ,ZH,MM,JB,BM,ZW
strSQL = "Select 姓名,班级,帐号,密码,级别,部门,职务 from tTable where tID="&id&""
Set objrs = oconn.execute(strsql)
If Not objrs.eof Then 
	XM = objRs(0)
	BJ = objRs(1)
	ZH = objRs(2)
	MM = objRs(3)
	JB = objRs(4)
	BM = objRs(5)
	ZW = objRs(6)
Else
	response.Write "参数错误！"
	Set objrs = nothing
	Call closeConn()
	response.End
End If
Set objRs = nothing
%>
<table width="250" cellpadding="5" cellspacing="1" align="center" class="table1">
<form method="post" action="?Action=EditSave&ID=<%=id%>" onsubmit="return checkF();">
<tr class="thead">
	<td colspan="2" align="left">编辑资料>></td>
</tr>
<tr class="tbody">
	<td>姓名</td>
	<td><input type="text" name="姓名" size="10" value="<%=XM%>"></td>
</tr>
<tr class="tbody">
	<td>班级</td>
	<td><input type="text" name="班级" size="15" value="<%=BJ%>"><br />如果是多个班级，请用“|”号分隔</td>
</tr>
<tr class="tbody">
	<td>帐号</td>
	<td><input type="text" name="帐号" size="10" value="<%=ZH%>"></td>
</tr>
<tr class="tbody">
	<td>密码</td>
	<td><input type="password" name="密码" size="16" value="<%=MM%>"> 已加密<br />如果要修改密码，请直接输入即可。
<input type="hidden" name="old_mm" value="<%=MM%>"></td>
</tr>
<tr class="tbody">
	<td>级别</td>
	<td><%=SC(JB)%></td>
</tr>
<tr class="tbody">
	<td>部门</td>
	<td><input type="text" name="部门" size="10" value="<%=BM%>"></td>
</tr>
<tr class="tbody">
	<td>职务</td>
	<td><input type="text" name="职务" size="10" value="<%=ZW%>"></td>
</tr>
<tr class="tbody">
	<td colspan="2" align="center"><input type="submit" value="保存编辑"> <input type="button" value="取消编辑" onclick="location.href='?'"></td>
</tr>
</form>
</table>
<%
End Sub

Sub viewface()
Dim strSQL,objRs
Dim XM,BJ,ZH,MM,JB,BM,ZW
strSQL = "Select 姓名,班级,帐号,密码,级别,部门,职务 from tTable where tID="&id&""
Set objrs = oconn.execute(strsql)
If Not objrs.eof Then 
	XM = objRs(0)
	BJ = objRs(1)
	ZH = objRs(2)
	MM = objRs(3)
	JB = objRs(4)
	BM = objRs(5)
	ZW = objRs(6)
Else
	response.Write "参数错误！"
	Set objrs = nothing
	Call closeConn()
	response.End
End If
Set objRs = nothing
%>
<table width="250" cellpadding="5" cellspacing="1" align="center" class="table1">
<tr class="thead">
	<td colspan="2" align="left">查看资料>></td>
</tr>
<tr class="tbody">
	<td>姓名</td>
	<td><input disabled type="text" name="姓名" size="10" value="<%=XM%>"></td>
</tr>
<tr class="tbody">
	<td>班级</td>
	<td><input disabled type="text" name="班级" size="15" value="<%=BJ%>"><br />如果是多个班级，请用“|”号分隔</td>
</tr>
<tr class="tbody">
	<td>帐号</td>
	<td><input disabled type="text" name="帐号" size="10" value="<%=ZH%>"></td>
</tr>
<tr class="tbody">
	<td>密码</td>
	<td><input disabled type="password" name="密码" size="16" value="<%=MM%>"> 已加密</td>
</tr>
<tr class="tbody">
	<td>级别</td>
	<td><%=SC(JB)%></td>
</tr>
<tr class="tbody">
	<td>部门</td>
	<td><input disabled type="text" name="部门" size="10" value="<%=BM%>"></td>
</tr>
<tr class="tbody">
	<td>职务</td>
	<td><input disabled type="text" name="职务" size="10" value="<%=ZW%>"></td>
</tr>
<tr class="tbody">
	<td colspan="2" align="center"> <input type="button" value=" 返回添加 " onclick="location.href='?'"></td>
</tr>
</table>
<%
Call JavaScript("document.all.级别.disabled=true;")
End Sub

Sub listface()
Call PHead("系统用户管理")
Call Waiting()
%>
<div class="thetitle">系统用户资料管理</div>
<hr size="1" color="#b8b8b8"/>
<table align="center">
<tr valign="top">
<td>
<table width="500" cellpadding="5" cellspacing="1" align="center" class="table1">
<tr class="thead">
	<td width="5%">ID</td>
	<td width="20%">姓名</td>
	<td width="20%">帐号</td>
	<td width="20%">权限</td>
	<td width="20%">班级</td>
	<td colspan="2" width="15%">功能</td>
</tr>
<%
Dim objRs,strSQL,MyPage,wName,i
wName = RQuery("cName")
strSQL = "Select tID,姓名,帐号,级别,班级 From tTable"
If wName<>"" Then strSQL = strSQL & " where 姓名='"&wName&"'"
strSQL = strSqL & " Order by tID Desc"
Set MyPage = New xdownpage
MyPage.GetConn = oConn
MyPage.GetSQL = strSQL
MyPage.PageSize = 13
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(0)%></td>
	<td><a href="?Action=View&ID=<%=objRs(0)%>"><%=objRs(1)%></a></td>
	<td><%=objRs(2)%></td>
	<td><%=LC(objRs(3))%></td>
	<td><%=objRs(4)%></td>
	<td width="30"><a href="?Action=Edit&ID=<%=objRs(0)%>">编辑</a></td>
	<td width="30"><a href="?Action=DelSave&ID=<%=objRs(0)%>" onclick="return confirm('你真的要删除此条资料吗？此操作不可恢复！！')">删除</a></td>
</tr>
<%
		objRs.MoveNext
		If objRs.Eof Then Exit For
	Next
Else
%>
<tr><td colspan="7" class="tbody" height="60" align="center">暂无资料</td></tr>
<%
End If
Set objRs = Nothing
%>
<tr><td colspan="7" class="tbody"><%=MyPage.ShowPage()%></td></tr>
</table>
</td>
<td>
<%
If action="edit" Then
	Call editface()
ElseIf action="view" Then
	Call viewface()
Else 
	Call addface()
End If 	
%>
</td>
</tr>
</table>
<hr size="1" color="#b8b8b8"/>
<span>提示：你不能删除ID为1的超级管理员帐号！！</span>
<script language="javascript">
function checkF()
{
	if (document.forms[0].姓名.value=="")
	{
		window.alert('名称不能为空！');
		document.forms[0].姓名.focus();
		return false;
	}
	if (document.forms[0].帐号.value=="")
	{
		window.alert('帐户不能为空！');
		document.forms[0].帐号.focus();
		return false;
	}
	if (document.forms[0].密码.value=="")
	{
		window.alert('密码不能为空！');
		document.forms[0].密码.focus();
		return false;
	}
}
</script>
<%
Call HWaiting()
Call PFoot()
End Sub
%>

<%
Sub addsave()
	On Error Resume Next 
	Dim strSQL
	Dim XM,BJ,ZH,MM,JB,BM,ZW
	XM = FQuery("姓名")
	BJ = FQuery("班级")
	ZH = FQuery("帐号")
	MM = FQuery("密码")
	JB = FQuery("级别")
	BM = FQuery("部门")
	ZW = FQuery("职务")

	'进行MD5加密
	MM = MD5(MM,16)

	strSQL = "insert into tTable (姓名,班级,帐号,密码,级别,部门,职务) values ('"&XM&"','"&BJ&"','"&ZH&"','"&MM&"',"&JB&",'"&BM&"','"&ZW&"')"

	oConn.Execute(strSQL)
	If Err Then
		Call SaveLog(Session("XM"),"用户管理","添加用户失败")
		Call closeconn()
		Call JavaScript("alert('添加失败！');location.href='?';")
	Else
		Call SaveLog(Session("XM"),"用户管理","添加用户成功")
		Call JavaScript("alert('添加成功！');location.href='?';")
	End If 
End Sub
Sub editsave()
	On Error Resume Next 
	Dim strSQL
	Dim XM,BJ,ZH,MM,JB,BM,ZW,Old_MM
	XM = FQuery("姓名")
	BJ = FQuery("班级")
	ZH = FQuery("帐号")
	MM = FQuery("密码")
	JB = FQuery("级别")
	BM = FQuery("部门")
	ZW = FQuery("职务")
	Old_MM = FQuery("Old_MM")

	strSQL = "update tTable set 姓名='"&XM&"',班级='"&BJ&"',帐号='"&ZH&"',级别="&JB&",部门='"&BM&"',职务='"&ZW&"' where tID="&id&""
	If MM<>Old_MM Then
		MM = MD5(MM,16)
		strSQL = "update tTable set 姓名='"&XM&"',班级='"&BJ&"',帐号='"&ZH&"',密码='"&MM&"',级别="&JB&",部门='"&BM&"',职务='"&ZW&"' where tID="&id&""
	End If 


	oConn.Execute(strSQL)
	If Err Then
		Call SaveLog(Session("XM"),"用户管理","更新用户失败")
		Call closeconn()
		Call JavaScript("alert('更新失败！');location.href='?';")
	Else
		Call SaveLog(Session("XM"),"用户管理","更新用户成功")
		Call JavaScript("alert('更新成功！');location.href='?';")
	End If 
End Sub
Sub delsave()
	On Error Resume Next 
	If id=1 Then Call CloseConn:Call JavaScript("alert('此用户不允许删除！');location.href='?';"):Exit Sub
	Dim strSQL
	strSQL = "delete from tTable where tid="&id&""
	oConn.Execute(strSQL)
	If Err Then
		Call SaveLog(Session("XM"),"用户管理","删除用户失败")
		Call closeconn()
		Call JavaScript("alert('删除失败！');location.href='?';")
	Else
		Call SaveLog(Session("XM"),"用户管理","删除用户成功")
		Call JavaScript("alert('删除成功！');location.href='?';")
	End If 
End Sub

Function SC(strS)
	Dim tmpHtml
	tmpHtml = "<select name='级别'>"
	
	tmpHtml = tmpHtml & "<option value='4'"
	If strS = "4" Then tmpHtml = tmpHtml & " selected"
	tmpHtml = tmpHtml & ">教师</option>"

	tmpHtml = tmpHtml & "<option value='5'"
	If strS = "5" Then tmpHtml = tmpHtml & " selected"
	tmpHtml = tmpHtml & ">成绩录入</option>"
	
	tmpHtml = tmpHtml & "<option value='3'"
	If strS = "3" Then tmpHtml = tmpHtml & " selected"
	tmpHtml = tmpHtml & ">主管</option>"
	
	tmpHtml = tmpHtml & "<option value='2'"
	If strS = "2" Then tmpHtml = tmpHtml & " selected"
	tmpHtml = tmpHtml & ">普通管理员</option>"
	
	tmpHtml = tmpHtml & "<option value='1'"
	If strS = "1" Then tmpHtml = tmpHtml & " selected"
	tmpHtml = tmpHtml & ">系统管理员</option>"
	
	tmpHtml = tmpHtml & "</select>"

	SC = tmpHtml
End Function

Function LC(strS)
	Select Case strS
	Case 1
		LC = "系统管理员"
	Case 2
		LC = "普通管理员"
	Case 3
		LC = "主管"
	Case 4
		LC = "教师"
	Case 5
		LC = "成绩录入"
	End select
End Function 
%>