dc_cj.asp

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

<!--#include file="Inc/Check.asp"-->
<!--#include file="Inc/oConn.asp"-->
<!--#include file="Inc/Public.asp"-->
<!--#include file="Inc/Info.asp"-->
<%
Server.ScriptTimeOut = 600
On Error Resume Next 
Call CheckAdmin(",1,",","&Session("JB")&",")
Dim lg
lg = RQuery("action")
If lg&""<>"" Then
	lg = UCase(lg)
	If lg = "DC" Then
		Call DC()
	End If 
Else
	Call mainFace()
End If 
If Err Then
	Call ShowErrs()
End If 

Sub mainFace()
	Call PHead("导出考试成绩数据")
	Print "<div class='lface'>"
	Print "<div class='thetitle'>导出考试成绩数据</div>"
	Print "<hr size='1' color='#b8b8b8'/>"
	Print KSList()&" "&NJList()&" "&BJList()&"<br /><br />"
	Print "<input id='btn' type='button' value=' 导 出 Excel 文 件' onclick=""toDC()"">"
	Print "<input id='rbtn' type='button' value=' 重 选 ' onclick=""uD()"">"
	Print "<hr size='1' color='#b8b8b8'/>"
	Print "<ol>提示："
	Print "<li>考试项目为必选项，年级和班级为单选项，只能选择其中一项；"
	Print "<li>导出的默认文件为Export/CJ.xls，表名为“"&Replace(Date(),"-","")&"”；"
	Print "<li>导出数据将是Excel文件格式，请将生成的文件保存到本地查看；"
	Print "<li>此操作可能需要时间较长，请耐心等待...</ol>"
	Print "<div align='left' class='footcopy'>&copy;2007 XMSky</div>"
	Print "</div>"
	%>
	<script language="JavaScript">
	<!--
	function toDC()
	{
		var k = document.all.ks.options[document.all.ks.selectedIndex].value;
		var s = document.all.bj.options[document.all.bj.selectedIndex].value;
		var e = document.all.nj.options[document.all.nj.selectedIndex].value;
		if (k!="")
		{
		<%if IsDC = 0 then %>
			alert("此功能暂停使用；");
		<%elseif IsDC = 1 then %>
			w();
			location.href="?Action=dc&ks="+k+"&nj="+e+"&bj="+s+"";
			document.all.btn.value="正在导出数据，请不要进行其他操作...";
		<%end if%>
			document.all.btn.disabled=true;
			document.all.rbtn.disabled=true;
			document.all.ks.disabled=true;
			document.all.nj.disabled=true;
			document.all.bj.disabled=true;
		} 
		else
		{
		<%if IsDC = 0 then %>
			alert("此功能暂停使用；");
			document.all.btn.disabled=true;
			document.all.rbtn.disabled=true;
			document.all.ks.disabled=true;
			document.all.nj.disabled=true;
			document.all.bj.disabled=true;
		<%elseif IsDC = 1 then %>
			alert("考试项目必须选择");
			document.all.ks.focus();
		<%end if%>
		}
	}

	function dBJ()
	{
		var s = document.all.nj.selectedIndex;
		if (s!=0)
		{
			document.all.bj.selectedIndex=0;
			document.all.bj.disabled=true;
		}
	}
	function dNJ()
	{
		var s = document.all.bj.selectedIndex;
		if (s!=0)
		{
			document.all.nj.selectedIndex=0;
			document.all.nj.disabled=true;
		}
	}
	function uD()
	{
		document.all.nj.disabled=false;
		document.all.bj.disabled=false;
	}
	//-->
	</script>
	<%
	If isDC = 0 Then Call JavaScript("toDC()")
	Call PFoot()
End Sub 

Function KSList()
	Dim tmpHtml,objRs,strSQL
	tmpHtml = "<select name='ks'>"
	tmpHtml = tmpHtml & "<option value=''>考试项目</option>"
	strSQL = "Select ksID From cjTable Group by ksID Order by ksID DESC"
	Set objRs = oConn.Execute(strSQL)
	If Not objRs.Eof Then
		Do While Not objRs.Eof
			tmpHtml = tmpHtml & "<option value='"&objRs(0)&"'>"&oConn.Execute("Select 考试名称 From ksName Where ksID="&objRs(0)&"")(0)&"</option>"
			objRs.MoveNext
			If objRs.Eof Then Exit Do
		Loop
	End If
	Set objRs = Nothing
	tmpHtml = tmpHtml & "</select>"

	KSList = tmpHtml
End Function 

Function BJList()
	Dim tmpHtml,objRs,strSQL
	tmpHtml = "<select name='bj' onChange=""dNJ()"">"
	tmpHtml = tmpHtml & "<option value=''>选择班级</option>"
	strSQL = "Select sTable.班级 From sTable,cjTable Where sTable.sID=cjTable.sID Group by sTable.班级 Order by sTable.班级 ASC"
	Set objRs = oConn.Execute(strSQL)
	If Not objRs.Eof Then
		Do While Not objRs.Eof
			tmpHtml = tmpHtml & "<option value='"&objRs(0)&"'>"&objRs(0)&"</option>"
			objRs.MoveNext
			If objRs.Eof Then Exit Do
		Loop
	End If
	Set objRs = Nothing
	tmpHtml = tmpHtml & "</select>"

	BJList = tmpHtml
End Function 

Function NJList()
	Dim tmpHtml,objRs,strSQL
	tmpHtml = "<select name='nj' onChange=""dBJ()"">"
	tmpHtml = tmpHtml & "<option value=''>选择年级</option>"
	strSQL = "Select sTable.年级 From sTable,cjTable Where sTable.sID=cjTable.sID Group by sTable.年级 Order by sTable.年级 ASC"
	Set objRs = oConn.Execute(strSQL)
	If Not objRs.Eof Then
		Do While Not objRs.Eof
			tmpHtml = tmpHtml & "<option value='"&objRs(0)&"'>"&objRs(0)&"</option>"
			objRs.MoveNext
			If objRs.Eof Then Exit Do
		Loop
	End If
	Set objRs = Nothing
	tmpHtml = tmpHtml & "</select>"

	NJList = tmpHtml
End Function 

Sub DC()
	Dim strSQL,objRs,FilePath,FileName
	FilePath = "Export/CJ.xls"
	Call FileDel(FilePath)
	FileName = Server.MapPath(FilePath)

	Dim KS,NJ,BJ,CJArray(9),i,fsObj
	Dim BM,XH,NJE,BJE,XM,ZCJ,sID
	Dim YW,SX,YY,WL,HX,SW,ZZ,LS,DL,BMC,JBC
	KS = RQuery("ks")
	NJ = RQuery("nj")
	BJ = RQuery("bj")
	strSQL = "select distinct sTable.sID,编码,学号,年级,班级,姓名,总成绩 from cjTable,sTable,sumCJ where sTable.sID=cjTable.sID And sumCJ.sID=cjTable.sID and sumCJ.ksID=cjTable.ksID "
	If KS&""<>"" Then strSQL = strSQL & " and cjTable.ksID="&KS&""
	If NJ&""<>"" Then strSQL = strSQL & " and sTable.年级='"&NJ&"'"
	If BJ&""<>"" Then strSQL = strSQL & " and sTable.班级='"&BJ&"'"
	strSQL = strSQL & " order by sTable.sID ASC"
	Set objRs = oConn.Execute(strSQL)
	If Not objRs.Eof Then
		oConn.Execute("delete from tmpCJ")
		Do While Not objRs.eof
			BM = objRs(1)
			XH = objRs(2)
			NJE = objRs(3)
			BJE = objRs(4)
			XM = objRs(5)
			ZCJ = objRs(6)
			sID = objRs(0)
			BMC = ZCJPM(ks,1,BJE,ZCJ)
			JMC = ZCJPM(ks,2,BJE,ZCJ)
			For i = 1 To 9
				strSQL = "select 分数 from cjTable Where ksID="&KS&" And sID="&sID&" And kmID="&i&""
				Set fsObj = oConn.Execute(strSQL)
				If Not fsObj.Eof Then
					CJArray(i) = fsObj(0)
				Else
					CJArray(i) = "NULL"
				End If
			Next
			Set fsObj = Nothing 
			strSQL = "insert into tmpCJ (编码,学号,年级,班级,姓名,语文,数学,英语,物理,化学,生物,政治,历史,地理,总分,班名,校名) values ('"&BM&"','"&XH&"','"&NJE&"','"&BJE&"','"&XM&"',"&CJArray(1)&","&CJArray(2)&","&CJArray(3)&","&CJArray(4)&","&CJArray(5)&","&CJArray(6)&","&CJArray(7)&","&CJArray(8)&","&CJArray(9)&","&ZCJ&","&BMC&","&JMC&")"
			oConn.Execute(strSQL)
			objRs.Movenext
			If objRs.Eof Then Exit Do
		Loop
		Set fsObj = Nothing 
	End If
	Set objRs = Nothing
	
	strSQL = "SELECT 编码,学号,年级,班级,姓名,语文,数学,英语,物理,化学,生物,政治,历史,地理,总分,班名,校名 INTO [Excel 8.0;database="&FileName&"]."&Replace(Date(),"-","")&"KS"&KS&" FROM tmpCJ"
	strSQL = strSQL & " order by 学号 asc"
	oConn.Execute(strSQL)

	Call PHead("导出考试成绩数据")
	Print "<div class='lface'>"
	Print "<div class='thetitle'>导出考试成绩数据成功</div>"
	Print "<hr size='1' color='#b8b8b8'/>"
	Print "<input type='button' value='点此下载导出文件' onclick=""window.open('"&FilePath&"')""> "
	Print "<input type='button' value='删除“"&FilePath&"”' onclick=""location.href='DelFile.asp?Action=dc&f="&Replace(FilePath,"Export/","")&"'"">"
	Print "<ol>注意："
	Print "<li>下载Excel文件成功后，请点击“删除"&FilePath&"”，以删除导出文件，防止别人非授权下载到此文件。"
	Print "</ol>"
	Print "<div align='left' class='footcopy'>&copy;2007 XMSky</div>"
	Print "</div>"
	Call SaveLog(Session("XM"),"导出数据","导出成绩数据成功")
	Call HWaiting()
	Call PFoot()
End Sub
%>