dc.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 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>导出的默认文件为Export/XJ.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 s = document.all.bj.options[document.all.bj.selectedIndex].value;
		var e = document.all.nj.options[document.all.nj.selectedIndex].value;
		{
		<%if IsDC = 0 then %>
			alert("此功能暂停使用；");
		<%elseif IsDC = 1 then %>
			w();
			location.href="?Action=dc&nj="+e+"&bj="+s+"";
			document.all.btn.value="正在导出数据，请不要进行其他操作...";
		<%end if%>
			document.all.btn.disabled=true;
			document.all.rbtn.disabled=true;
			document.all.nj.disabled=true;
			document.all.bj.disabled=true;
		} 
	}

	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 

Sub DC()
	Dim strSQL,FileName,Fs,MyFile,X,tmpList,objRs,FilePath,NJ,BJ
	FilePath = "Export/XJ.xls"
	NJ = RQuery("nj")
	BJ = RQuery("bj")
	Call FileDel(FilePath)
	FileName = Server.MapPath(FilePath)
	strSQL = "SELECT 年级,班级,学号,姓名,学籍号,编码,应往,变动,日期,在册,录取类别,上年高招准考证号,[1年级学号],[2年级学号],中招准考证,中招分,中招照片号,身份证号,邮编,性别,民族,出生年月,户口所在地,家庭住址,楼,室,床铺号,初中毕业学校,证明人,监护人,称谓,电话,单位,监护人2,称谓2,电话2,单位2,录入员,备注 INTO [Excel 8.0;database="&FileName&"]."&Replace(Date(),"-","")&" FROM sTable"
	If NJ&""<>"" Then strSQL = strSQL & " Where sTable.年级='"&NJ&"'"
	If BJ&""<>"" Then strSQL = strSQL & " Where sTable.班级='"&BJ&"'"
	strSQL = strSQL & " order by sid 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

Function BJList()
	Dim tmpHtml,objRs,strSQL
	tmpHtml = "<select name='bj' onChange=""dNJ()"">"
	tmpHtml = tmpHtml & "<option value=''>选择班级</option>"
	strSQL = "Select sTable.班级 From sTable 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 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 
%>