xj.asp

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

</tr>
<%
Dim objRs,strSQL,MyPage,sc,i,sk
sc = RQuery("sc")
sk = RQuery("sk")
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&" like '%"&sk&"%'"
strSQL = strSqL & " Order by sID asc"
'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(0)%></td>-->
	<td style="cursor:hand;" onMouseOver="showImage(this,'Photos/<%=objRs(8)%>.jpg','0')"><%=objRs(8)%></td>
	<td><a href="javascript:void(0)" onClick="return clickreturnvalue()" onMouseover="dropdownmenu(this, event, menu<%=i%>, '100px')" onMouseout="delayhidemenu()"><%=objRs(2)%></a></td>
	<!--<td><%=objRs(1)%></td>-->
	<td><%=objRs(3)%></td>
	<td><%=objRs(4)%></td>
	<td><%=objRs(5)%></td>
	<td><%=Left(objRs(6),4)%>年<%=Mid(objRs(6),5,2)%>月</td>
	<td><%=objRs(9)%></td>
	<td><%=objRs(7)%></td>
</tr>
<%If Session("JB")<=2 Then %>
<script language='javascript'>
var menu<%=i%>=new Array();
menu<%=i%>[0]='<a href="?Action=View&ID=<%=objRs(0)%>&Page=<%=pg%>">查看详细资料</a>';
menu<%=i%>[1]='<a href="javascript:void(0)" onclick="NewPopWindow(\'UpFile_Photo.asp?bm=<%=objRs(8)%>\',\'UpFile_Photo\',600,400,0,0,0)">上传学籍照片</a>'
menu<%=i%>[2]='<a href="?Action=Edit&ID=<%=objRs(0)%>&Page=<%=pg%>">编辑学籍资料</a>';
menu<%=i%>[3]='<a href="?Action=DelSave&ID=<%=objRs(0)%>&Page=<%=pg%>" onclick="return confirm(\'\\n警告：\\n\\n你真的要删除ID为“<%=objRs(0)%>”的资料吗？，此操作不可恢复！！\')">删除学籍资料</a>';
menu<%=i%>[4]='<a href="?Action=Add">添加新生资料</a>';
menu<%=i%>[5]='<a href="CJ.asp?Action=View&ID=<%=objRs(0)%>">管理该生成绩</a>';
menu<%=i%>[6]='<a href="CX_CJ.asp?sk=<%=objRs(3)%>&sxm=<%=Server.UrlEncode(objRs(2))%>">查看成绩排名</a>';
</script>
<%End If %>
<%
		objRs.MoveNext
		If objRs.Eof Then Exit For
	Next
Else
%>
<tr><td colspan="8" class="tbody" height="60" align="center">暂无资料，<a href="?Action=Add">点击这里开始添加</a></td></tr>
<%
End If
Set objRs = Nothing
%>
<tr><td colspan="8" class="tbody"><%=MyPage.ShowPage()%></td></tr>
</table>
<hr size='1' color='#b8b8b8'/>
提示：将鼠标放在学生的姓名上，将会出现操作菜单，停留在编码上可显示学生相片；
<script language="JavaScript">
<!--
FocusKey();
//-->
</script>
<%
End Sub

Sub CheckJS()
%>
<script language="javascript">
function checkF()
{
<%
Dim strCheck,tmpArray,i
strCheck = XJCheck
tmpArray = Split(strCheck,",")
for i = 0 to UBound(tmpArray)
%>
	if (document.forms[0].<%=tmpArray(i)%>.value=="")
	{
		window.alert('<%=tmpArray(i)%>不能为空！');
		document.forms[0].<%=tmpArray(i)%>.focus();
		return false;
	}
<%Next%>
}

function cP()
{
	var s = document.forms[0].编码.value;
	if (s=="")
	{
		window.alert('要生成照片完整路径，请先填写编码资料。');
		document.forms[0].编码.focus();
	}else{
		document.forms[0].照片.value = "Photos/"+s+".jpg"
	}
}

function cnj()
{
	var xh = document.forms[0].学号.value;
	if (xh!="")
	{
		var bj = xh.substring(0,4);
		var nj = xh.substring(0,2);
		document.forms[0].年级.value = nj;
		document.forms[0].班级.value = bj;
	}
}
</script>
<%
End Sub
%>

<%
Sub addsave()
	On Error Resume Next 
	Dim strSQL
	Dim NJ,BJ,XH,XM,XJH,BM,YW,BD,RQ,ZC,LQLB,GZZKZ,YNJ,ENJ,ZZZKZ,ZZF,ZZZPH,SFZ,YB,BZ,XB,MZ,CSNE,HKD
	Dim JTZZ,LO,SH,PU,CZBYXX,ZMR,JHR,CW,DH,DW,JHR2,CW2,DH2,DW2,LRY,ZP
	NJ = FQuery("年级")
	BJ = FQuery("班级")
	XH = FQuery("学号")
	XM = FQuery("姓名")
	XJH = FQuery("学籍号")
	'BM = FQuery("编码")
	'//自动生成编码字段
	BM = getBM()
	'//===============
	YW = FQuery("应往")
	BD = FQuery("变动")
	RQ = FQuery("日期")
	ZC = FQuery("在册")
	LQLB = FQuery("录取类别")
	GZZKZ = FQuery("上年高招准考证号")
	YNJ = FQuery("1年级学号")
	ENJ = FQuery("2年级学号")
	ZZZKZ = FQuery("中招准考证")
	ZZF = FQuery("中招分")
	If Not IsNumeric(ZZF) Then ZZF = "NULL"
	ZZZPH = FQuery("中招照片号")
	SFZ = FQuery("身份证号")
	YB = FQuery("邮编")
	BZ = FQuery("备注")
	XB = FQuery("性别")
	MZ = FQuery("民族")
	CSNE = FQuery("出生年月")
	HKD = FQuery("户口所在地")
	JTZZ = FQuery("家庭住址")
	LO = FQuery("楼")
	SH = FQuery("室")
	PU = FQuery("床铺号")
	CZBYXX = FQuery("初中毕业学校")
	ZMR = FQuery("证明人")
	JHR = FQuery("监护人")
	CW = FQuery("称谓")
	DH = FQuery("电话")
	DW = FQuery("单位")
	JHR2 = FQuery("监护人2")
	CW2 = FQuery("称谓2")
	DH2 = FQuery("电话2")
	DW2 = FQuery("单位2")
	LRY = FQuery("录入员")
	'ZP = FQuery("照片")
	ZP = "Photos/"&BM&".jpg"

	strSQL = "insert into sTable (年级,班级,学号,姓名,学籍号,编码,应往,变动,日期,在册,录取类别,上年高招准考证号,[1年级学号],[2年级学号],中招准考证,中招分,中招照片号,身份证号,邮编,备注,性别,民族,出生年月,户口所在地,家庭住址,楼,室,床铺号,初中毕业学校,证明人,监护人,称谓,电话,单位,监护人2,称谓2,电话2,单位2,录入员,照片) values ('"&NJ&"','"&BJ&"','"&XH&"','"&XM&"','"&XJH&"','"&BM&"','"&YW&"','"&BD&"','"&RQ&"','"&ZC&"','"&LQLB&"','"&GZZKZ&"','"&YNJ&"','"&ENJ&"','"&ZZZKZ&"',"&ZZF&",'"&ZZZPH&"','"&SFZ&"','"&YB&"','"&BZ&"','"&XB&"','"&MZ&"','"&CSNE&"','"&HKD&"','"&JTZZ&"','"&LO&"','"&SH&"','"&PU&"','"&CZBYXX&"','"&ZMR&"','"&JHR&"','"&CW&"','"&DH&"','"&DW&"','"&JHR2&"','"&CW2&"','"&DH2&"','"&DW2&"','"&LRY&"','"&ZP&"')"

	oConn.Execute(strSQL)
	If Err Then
		Call SaveLog(Session("XM"),"学籍管理","添加学籍失败")
		Call closeconn()
		Call JavaScript("alert('添加失败！');location.href='?Page="&pg&"';")
	Else
		Call SaveLog(Session("XM"),"学籍管理","添加学籍成功")
		Call JavaScript("alert('添加成功！\n\n请更新成绩统计资料！！');location.href='?Page="&pg&"';")
	End If 
End Sub
Sub editsave()
	On Error Resume Next 
	Dim strSQL
	Dim NJ,BJ,XH,XM,XJH,BM,YW,BD,RQ,ZC,LQLB,GZZKZ,YNJ,ENJ,ZZZKZ,ZZF,ZZZPH,SFZ,YB,BZ,XB,MZ,CSNE,HKD
	Dim JTZZ,LO,SH,PU,CZBYXX,ZMR,JHR,CW,DH,DW,JHR2,CW2,DH2,DW2,LRY,ZP
	NJ = FQuery("年级")
	BJ = FQuery("班级")
	XH = FQuery("学号")
	XM = FQuery("姓名")
	XJH = FQuery("学籍号")
	YW = FQuery("应往")
	BD = FQuery("变动")
	RQ = FQuery("日期")
	ZC = FQuery("在册")
	LQLB = FQuery("录取类别")
	GZZKZ = FQuery("上年高招准考证号")
	YNJ = FQuery("1年级学号")
	ENJ = FQuery("2年级学号")
	ZZZKZ = FQuery("中招准考证")
	ZZF = FQuery("中招分")
	If Not IsNumeric(ZZF) Then ZZF = "NULL"
	ZZZPH = FQuery("中招照片号")
	SFZ = FQuery("身份证号")
	YB = FQuery("邮编")
	BZ = FQuery("备注")
	XB = FQuery("性别")
	MZ = FQuery("民族")
	CSNE = FQuery("出生年月")
	HKD = FQuery("户口所在地")
	JTZZ = FQuery("家庭住址")
	LO = FQuery("楼")
	SH = FQuery("室")
	PU = FQuery("床铺号")
	CZBYXX = FQuery("初中毕业学校")
	ZMR = FQuery("证明人")
	JHR = FQuery("监护人")
	CW = FQuery("称谓")
	DH = FQuery("电话")
	DW = FQuery("单位")
	JHR2 = FQuery("监护人2")
	CW2 = FQuery("称谓2")
	DH2 = FQuery("电话2")
	DW2 = FQuery("单位2")
	LRY = FQuery("录入员")
	ZP = FQuery("照片")

	strSQL = "update sTable set 年级='"&NJ&"',班级='"&BJ&"',学号='"&XH&"',姓名='"&XM&"',学籍号='"&XJH&"',应往='"&YW&"',变动='"&BD&"',日期='"&RQ&"',在册='"&ZC&"',录取类别='"&LQLB&"',上年高招准考证号='"&GZZKZ&"',[1年级学号]='"&YNJ&"',[2年级学号]='"&ENJ&"',中招准考证='"&ZZZKZ&"',中招分="&ZZF&",中招照片号='"&ZZZPH&"',身份证号='"&SFZ&"',邮编='"&YB&"',备注='"&BZ&"',性别='"&XB&"',民族='"&MZ&"',出生年月='"&CSNE&"',户口所在地='"&HKD&"',家庭住址='"&JTZZ&"',楼='"&LO&"',室='"&SH&"',床铺号='"&PU&"',初中毕业学校='"&CZBYXX&"',证明人='"&ZMR&"',监护人='"&JHR&"',称谓='"&CW&"',电话='"&DH&"',单位='"&DW&"',监护人2='"&JHR2&"',称谓2='"&CW2&"',电话2='"&DH2&"',单位2='"&DW2&"',录入员='"&LRY&"',照片='"&ZP&"' where sID="&id&""
	oConn.Execute(strSQL)
	If Err Then
		Call SaveLog(Session("XM"),"学籍管理","更新学籍失败")
		Call closeconn()
		Call JavaScript("alert('更新失败！');location.href='?Page="&pg&"';")
	Else
		Call SaveLog(Session("XM"),"学籍管理","更新学籍成功")
		Call JavaScript("alert('更新成功！\n\n请更新成绩统计资料！！');location.href='?Page="&pg&"';")
	End If 
End Sub
Sub delsave()
	On Error Resume Next 
	Dim strSQL
	'//删除学生照片
	Call FileDel(oConn.Execute("Select 照片 from sTable Where sID="&id&"")(0))
	'//删除学籍资料
	strSQL = "delete from sTable where sid="&id&""
	oConn.Execute(strSQL)
	'//删除该生成绩
	strSQL = "delete from cjTable where sid="&id&""
	oConn.Execute(strSQL)
	'//删除该生成绩统计
	strSQL = "delete from sumCJ where sid="&id&""
	oConn.Execute(strSQL)
	If Err Then
		Call SaveLog(Session("XM"),"学籍管理","删除学籍失败")
		Call closeconn()
		Call JavaScript("alert('删除失败！');location.href='?Page="&pg&"';")
	Else
		Call SaveLog(Session("XM"),"学籍管理","删除学籍成功")
		Call JavaScript("alert('删除成功！\n\n请更新成绩统计资料！！');location.href='?Page="&pg&"';")
	End If 
End Sub

Function SC(strS)
	Dim tmpHtml
	tmpHtml = "<select name='性别'>"
	
	tmpHtml = tmpHtml & "<option value='男'"
	If strS = "男" Then tmpHtml = tmpHtml & " selected"
	tmpHtml = tmpHtml & ">男</option>"
	
	tmpHtml = tmpHtml & "<option value='女'"
	If strS = "女" Then tmpHtml = tmpHtml & " selected"
	tmpHtml = tmpHtml & ">女</option>"

	tmpHtml = tmpHtml & "</select>"

	SC = tmpHtml
End Function

'//生成学生编码资料
Function getBM()
	Dim strSQL,objRs,tmpNo
	strSQL = "Select Max(编码),Count(编码) from sTable Where 编码 like '"&Year(Date)&"%'"
	Set objRs = oConn.Execute(strsQL)
	If Not objRs.Eof Then
		If objRs(1)>0 Then 
			tmpNo = objRs(0)+1
		Else 
			tmpNo = Year(Date)&"0001"
		End If 
	Else 
		tmpNo = Year(Date)&"0001"
	End If
	Set objRs = Nothing

	getBM = tmpNo
End Function 
%>