dr.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 ExConn
Dim lg
lg = RQuery("action")
If lg&""<>"" Then
	lg = UCase(lg)
	If lg = "DC" Then
		Call DC2()
	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 ExSheetList()
	Print "<input id='btn' type='button' value=' 开 始 导 入 Excel 文 件' onclick=""toDC();"">"
	Print "<input id='btn1' type='button' value='重新上传' onclick=""location.href='DelFile.asp?Action=dc&f=toData.xls'"">"
	Print "<br /><br /><input type='checkbox' name='delAll'> <span style='color:red;font-weight:700'>清空原数据库中的所有学籍、成绩和成绩排名数据！！</span>"
	Print "<hr size='1' color='#b8b8b8'/>"
	Print "<ol>提示："
	Print "<li>第一行的列排列格式为：年级,班级,学号,姓名,学籍号,编码,应往,变动,日期,在册,录取类别,上年高招准考证号,1年级学号,2年级学号,中招准考证,中招分,中招照片号,身份证号,邮编,备注,性别,民族,出生年月,户口所在地,家庭住址,楼,室,床铺号,初中毕业学校,证明人,监护人,称谓,电话,单位,监护人2,称谓2,电话2,单位2,录入员;"
	Print "<li>导入完成后，请进行“更新照片”操作，以便自动更新照片数据；"
	Print "<li>此操作可能需要时间较长，请耐心等待..."
	Print "</ol>"
	Print "<div align='left' class='footcopy'>&copy;2007 XMSky</div>"
	Print "</div>"
	%>
	<script language="JavaScript">
	<!--
	function toDC()
	{
		var s = document.all.exs.options[document.all.exs.selectedIndex].value;
		var d = document.all.delAll.checked;
		if (s!="")
		{
		<%if IsDC = 0 then %>
			alert("此功能暂停使用；");
		<%elseif IsDC = 1 then %>
			w();
			location.href="?Action=dc&exs="+s+"&del="+d+"";
			//alert("?Action=dc&exs="+s+"&del="+d+"")
			document.all.btn.value="请等待，系统正在导入数据...";
		<%end if%>
		document.all.btn.disabled=true;
		document.all.btn1.disabled=true;
		document.all.exs.disabled=true;
		}
		else
		{
			<%if IsDC = 0 then%>
				alert("此功能暂停使用；");
				document.all.btn.disabled=true;
				document.all.btn1.disabled=true;
				document.all.exs.disabled=true;
			<%elseif IsDC = 1 then%>
				alert("请选择要导入的数据表名！");
				document.all.exs.focus();
			<%end if%>
		}
	}
	//-->
	</script>
	<%
	If isDC = 0 Then Call JavaScript("toDC()")
	Call PFoot()
End Sub 

Sub DC2()
	Call ExConnBegin()
	Dim Rs,sql,i,strSheet,isDel
	strSheet = RQuery("exs")
	isDel = RQuery("del")
	i = 0
	Sql="Select 年级,班级,学号,姓名,学籍号,编码,应往,变动,日期,在册,录取类别,上年高招准考证号,[1年级学号],[2年级学号],中招准考证,中招分,中招照片号,身份证号,邮编,备注,性别,民族,出生年月,户口所在地,家庭住址,楼,室,床铺号,初中毕业学校,证明人,监护人,称谓,电话,单位,[监护人2],[称谓2],[电话2],[单位2],录入员 From ["&strSheet&"] "
	Dim NJ,BJ,XH,XM,XJH,BM,YW,BD,RQ,ZC,LCLB,SNGZ,YNJ,ENJ,ZZZ,ZZF,ZZZP,SFZ,YB,BZ,XB,MZ,CSNY,HKD,JT,LO,SH,PU,CZBY,ZMR
	Dim JHR,CW,DH,DW,JHR2,CW2,DH2,DW2,LRY
	Set Rs = ExConn.Execute(Sql)
	IF Not Rs.Eof Then
		'//删除原来学籍表中的所有数据,并且删除所有成绩数据和成绩统计数据
		If isDel Then oConn.Execute("Delete from sTable"):oConn.Execute("Delete from cjTable"):oConn.Execute("Delete from sumCJ"):oConn.Execute("Delete from tmpCJ")
		Do While Not Rs.EOF
			NJ = Trim(Rs(0))
			BJ = Trim(Rs(1))
			XH = Trim(Rs(2))
			XM = Trim(Rs(3))
			XJH = Trim(Rs(4))
			BM = Trim(Rs(5))
			YW = Trim(Rs(6))
			BD = Trim(Rs(7))
			RQ = Trim(Rs(8))
			ZC = Trim(Rs(9))
			LCLB = Trim(Rs(10))
			SNGZ = Trim(Rs(11))
			YNJ = Trim(Rs(12))
			ENJ = Trim(Rs(13))
			ZZZ = Trim(Rs(14))
			ZZF = Trim(Rs(15))
			If Not IsNumeric(ZZF) Then ZZF = "NULL"
			ZZZP = Trim(Rs(16))
			SFZ = Trim(Rs(17))
			YB = Trim(Rs(18))
			BZ = Trim(Rs(19))
			XB = Trim(Rs(20))
			MZ = Trim(Rs(21))
			CSNY = Trim(Rs(22))
			HKD = Trim(Rs(23))
			JT = Trim(Rs(24))
			LO = Trim(Rs(25))
			SH = Trim(Rs(26))
			PU = Trim(Rs(27))
			CZBY = Trim(Rs(28))
			ZMR = Trim(Rs(29))
			JHR = Trim(Rs(30))
			CW = Trim(Rs(31))
			DH = Trim(Rs(32))
			DW = Trim(Rs(33))
			JHR2 = Trim(Rs(34))
			CW2 = Trim(Rs(35))
			DH2 = Trim(Rs(36))
			DW2 = Trim(Rs(37))
			LRY = Trim(Rs(38))
			sql = "insert into sTable (年级,班级,学号,姓名,学籍号,编码,应往,变动,日期,在册,录取类别,上年高招准考证号,[1年级学号],[2年级学号],中招准考证,中招分,中招照片号,身份证号,邮编,备注,性别,民族,出生年月,户口所在地,家庭住址,楼,室,床铺号,初中毕业学校,证明人,监护人,称谓,电话,单位,[监护人2],[称谓2],[电话2],[单位2],录入员) values ('"&NJ&"','"&BJ&"','"&XH&"','"&XM&"','"&XJH&"','"&BM&"','"&YW&"','"&BD&"','"&RQ&"','"&ZC&"','"&LCLB&"','"&SNGZ&"','"&YNJ&"','"&ENJ&"','"&ZZZ&"',"&ZZF&",'"&ZZZP&"','"&SFZ&"','"&YB&"','"&BZ&"','"&XB&"','"&MZ&"','"&CSNY&"','"&HKD&"','"&JT&"','"&LO&"','"&SH&"','"&PU&"','"&CZBY&"','"&ZMR&"','"&JHR&"','"&CW&"','"&DH&"','"&DW&"','"&JHR2&"','"&CW2&"','"&DH2&"','"&DW2&"','"&LRY&"')"
			'response.write sql& "<hr />"
			oConn.Execute(sql)
			i = i + 1
			Rs.MoveNext
			If Rs.Eof Then Exit do
		Loop
	Else
		Response.write "<br><br>没有找到您需要的数据!!"
	End IF
	Call ExCloseConn()
	Call PHead("导入学籍数据")
	Print "<div class='lface'>"
	Print "<div class='thetitle'>导入学籍数据成功</div>"
	Print "<hr size='1' color='#b8b8b8'/>"
	Print "<ol>提示："
	Print "<li>导入成功完成。共计导入了 "&i&" 条数据。"
	If isDel Then Print "<li style='color:red'>导入文件已清空原数据库中的所有学籍数据！！"
	Print "<li>请进行“更新照片”操作，以便自动更新照片数据；</ol>"
	Print "<div align='left' class='footcopy'>&copy;2007 XMSky</div>"
	Print "</div>"
	Call SaveLog(Session("XM"),"导入数据","导入学籍数据成功")
	Call HWaiting()
	Call PFoot()
End Sub

Sub ExConnBegin()
	On Error Resume Next 
	If IsObject(ExConn) Then Exit Sub
	Dim  dbFilePath,dbFileName,strConn
	dbFileName = "Export/ToData.xls"
	dbFilePath = Server.MapPath(dbFileName)

	Set ExConn = Server.CreateObject("ADODB.Connection")
	strConn = "Driver={Microsoft Excel Driver (*.xls)};DBQ="&dbFilePath&""
	ExConn.Open strConn
	If Err Then
		Err.clear
		Response.write "<ol>系统错误:"
		Response.write "<li>不能打开"&dbFileName&"文件。"
		Response.write "<li>请将要导入成绩的Excel文件复制到"&dbFileName&"，并确定有读取权限。"
		Response.Write "</ol>"
		Print "<div align='left' class='footcopy'>&copy;2007 XMSky</div>"
		Response.End
	End If 
End Sub

Sub ExCloseConn()
	If IsObject(ExConn) Then
		ExConn.Close()
		Set ExConn = Nothing
	End If
End Sub

function ExSheetList()
	Call ExConnBegin()
	Dim tmpHtml,e,rsObj,tmpName
	tmpHtml = "<select name='exs'>"
	tmpHtml = tmpHtml & "<option value=''>数据表名</option>"
	Set rsObj = ExConn.openSchema(20)
	If Not rsObj.Eof Then
		Do While Not rsObj.Eof
			tmpName = rsObj("TABLE_NAME")
			If InStr(tmpName,"'")=0 Then 
				tmpName = Replace(tmpName,"'","")
				tmpHtml = tmpHtml & "<option value="""&tmpName&""">"&Replace(tmpName,"$","")&"</option>"
			End If 
			rsObj.MoveNext
			If rsObj.Eof Then Exit Do
		Loop
	Else
		Set rsObj = Nothing
		Call ExCloseConn()
		Call JavaScript("alert('请先上传要导入的Excel文档。');location.href='UpFile_XJ.asp';")
	End If 
	Set rsObj = Nothing
	tmpHtml = tmpHtml & "</select>"
	Call ExCloseConn()

	ExSheetList = tmpHtml
End function
%>