up.asp

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

<!--#include file="Inc/Check.asp"-->
<!--#include file="Inc/oConn.asp"-->
<!--#include file="Inc/Public.asp"-->
<!--#include file="Inc/Info.asp"-->
<%
On Error Resume Next 
Call CheckAdmin(",1,",","&Session("JB")&",")
Call PHead("更新照片数据")
Dim lg
lg = RQuery("action")
If lg&""<>"" Then
	lg = UCase(lg)
	If lg = "UPPHOTO" Then
		Call UpPhoto()
	End If 
Else 
	Call mainFace()
End If 
Call HWaiting()
Call PFoot()
If Err Then
	Call ShowErrs()
End If 

Sub mainFace()
	Print "<div class='lface'>"
	Print "<div class='thetitle'>更新照片数据</div>"
	Print "<hr size='1' color='#b8b8b8'/>"
	Print "<input id='btn' type='button' value=' 开 始 更 新 ' onclick=""toDC();"">"
	Print "<hr size='1' color='#b8b8b8'/>"
	Print "<ol>提示："
	Print "<li>此操作将更新所有学籍资料的照片数据格式为：Photos/{编码}.jpg</li>"
	Print "<li>此功能一般在批量导入数据后进行，平时不要进行操作。</li>"
	Print "<li>更新成功后，请将学生照片按指定格式拷贝到Photos目录下。</li>"
	Print "</ol>"
	Print "<div align='left' class='footcopy'>&copy;2007 XMSky</div>"
	Print "</div>"
	%>
	<script language="JavaScript">
	<!--
	function toDC()
	{
		<%if IsDC = 0 then %>
			alert("此功能暂停使用；");
		<%elseif IsDC = 1 then %>
			w();
			location.href="?Action=upphoto";
			document.all.btn.value="正在更新照片数据，请等待...";
		<%end if%>
		document.all.btn.disabled=true;
	}
	//-->
	</script>
	<%
	If isDC = 0 Then Call JavaScript("toDC()")
End Sub 

Sub UpPhoto()
	Dim objRs,strSQL
	strSQL = "Select 编码,照片 from stable order by sid asc"
	Set objRs = Server.CreateObject("adodb.recordset")
	objRs.Open strSQL,oConn,2,3
	If Not objRs.Eof Then
		Do While Not objRs.Eof
			objRs("照片").value = "Photos/"&objRs("编码")&".jpg"
			objRs.Update
			objRs.MoveNext
			If objRs.Eof Then Exit do
		Loop
	End If
	objRs.Close
	Set objRs = Nothing
	Print "<div class='lface'>"
	Print "<div class='thetitle'>更新照片数据成功</div>"
	Print "<hr size='1' color='#b8b8b8'/>"
	Print "<ol>"
	Print "<li>更新照片数据完成！请将学生照片按照格式存放，拷贝到程序所在的Photos/目录下。"
	Print "</ol>"
	Print "<div align='left' class='footcopy'>&copy;2007 XMSky</div>"
	Print "</div>"
	Call SaveLog(Session("XM"),"学籍管理","更新学籍照片成功")	
End Sub
%>