conf.asp

公共选修课报名及成绩查询管理系统。ASP.NET+ACCESS的组合

<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="Session.asp"-->
<%
If Request("menu")="Compact" Then
'关闭数据库连接后才可压缩数据库
Conn.Close
Set Conn=nothing
'压缩数据库
if instr(Request.ServerVariables("http_referer"),""&Request.ServerVariables("server_name")&"") = 0 then
response.write "<script>alert('来源错误！');history.back();</script>"
response.end
end if
Const JET_3X = 4

Function CompactDB(dbPath, boolIs97)
	Dim fso, Engine, strDBPath
	strDBPath = left(dbPath,instrrev(DBPath,"\"))
	Set fso = CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(dbPath) Then
		Set Engine = CreateObject("JRO.JetEngine")
		If boolIs97 = "True" Then
		Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
		"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _
		& "Jet OLEDB:Engine Type=" & JET_3X
		Else
		Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
		"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
		End If
		fso.CopyFile strDBPath & "temp.mdb",dbpath
		fso.DeleteFile(strDBPath & "temp.mdb")
		Set fso = nothing
		Set Engine = nothing
		CompactDB = "<script>alert('数据库压缩成功！');document.location.href='ConF.asp';</script>"
	Else
		CompactDB = "<script>alert('找不到数据库！\n请检查数据库路径是否输入错误！');history.back();</script>"
	End If
End Function

Dim dbpath,boolIs97
dbpath = request("dbpath")
boolIs97 = request("boolIs97")
If dbpath <> "" Then
dbpath = server.mappath(dbpath)
response.write(CompactDB(dbpath,boolIs97))
End If

End if
%>

<%
If Request("menu")="LocktuD" Then
	If Request("X_xy")<>"all" and Request("X_S_Year")<>"" Then
		Conn.Execute("Update [T_Stu] set S_Lock=True Where S_Rschool="&int(Request("X_S_Year"))&" and xy="&int(Request("X_xy"))&" ")
	End If
	If Request("X_xy")="all" and Request("X_S_Year")<>"" Then
		Conn.Execute("Update [T_Stu] set S_Lock=True Where S_Rschool="&int(Request("X_S_Year"))&" ")
	End If
	Response.write"<script language='javascript'>alert(""所选学生锁定成功！"");location.href=""ConF.asp"";</script>"
End If

If Request("menu")="UnLocktuD" Then
	If Request("X_xy")<>"all" and Request("X_S_Year")<>"" Then
		Conn.Execute("Update [T_Stu] set S_Lock=False Where S_Rschool="&int(Request("X_S_Year"))&" and xy="&int(Request("X_xy"))&" ")
	End If
	If Request("X_xy")="all" and Request("X_S_Year")<>"" Then
		Conn.Execute("Update [T_Stu] set S_Lock=False Where S_Rschool="&int(Request("X_S_Year"))&" ")
	End If
	Response.write"<script language='javascript'>alert(""所选学生显示成功！"");location.href=""ConF.asp"";</script>"
End If

If Request("menu")="delStuD" Then
	Set Rs_DelStuD=Conn.Execute("Select * From [T_Stu] Where S_Rschool<"&int(Request("X_S_Year"))&" ")
	Do until Rs_DelStuD.EOF
		Conn.Execute("delete * From [T_Stu] Where xhao='"&Rs_DelStuD("xhao")&"' ")
		Conn.Execute("delete * From [T_GBooK] Where G_Xhao='"&Rs_DelStuD("xhao")&"' ")
		Conn.Execute("delete * From [T_Class] Where C_Xhao='"&Rs_DelStuD("xhao")&"' ")
	Rs_DelStuD.MoveNext
	Loop
	Response.write"<script language='javascript'>alert(""清理成功！\n\n已经清理了"&Request("X_S_Year")&"年以前学生的所有数据,返回刷新即可重新统计！"");location.href=""ConF.asp"";</script>"
End If

If Request("menu")="delGBook" Then
	IF Request("X_G_Day")<>"" Then
		XX_Day=Request("X_G_Day")
	Else
		XX_Day=365
	End IF
	If XX_Day<10 Then XX_Day=10
	Conn.Execute("delete * From [T_GBook] Where G_ATime < "&SqlNow&"-"&int(XX_Day)&" ")
	Response.write"<script language='javascript'>alert(""留言清理成功！\n\n已经清理了"&XX_Day&"天前留言,返回刷新即可重新统计！"");location.href=""ConF.asp"";</script>"
End IF

If Request("menu")="delLOG" Then
	IF Request("X_Day")<>"" Then
		XX_Day=Request("X_Day")
	Else
		XX_Day=7
	End IF
	If XX_Day<=1 Then XX_Day=1
	Conn.Execute("delete * From [T_Log] Where L_LastT < "&SqlNow&"-"&int(XX_Day)&" ")
	Response.write"<script language='javascript'>alert(""日志清理成功！\n\n已经清理了"&XX_Day&"天前的日志,返回刷新即可重新统计！"");location.href=""ConF.asp"";</script>"
End IF

IF Request("menu")="edit" Then
	IF Request("XX_A_Name")="" or Request("XX_A_Pass")="" Then
		Response.Write "<font color=red>请填写内容</font>"
	Else		
		XX_A_Name=Request("XX_A_Name")
		If len(Trim(Request("XX_A_Pass")))=32 Then
			XX_A_Pass=Trim(Request("XX_A_Pass"))
		Else
			XX_A_Pass=md5(Trim(Request("XX_A_Pass")))
		End If
		XX_A_Info=Request("webname")&"|"&Request("weburl")&"|"&Request("XX_A_LockReg")&"|"&Request("A_ZGXZ")&"|"&Request("A_Year")
		Conn.Execute("Update [T_Admin] Set A_Name='"&XX_A_Name&"',A_Pass='"&XX_A_Pass&"',A_Info='"&XX_A_Info&"' Where A_Id="&int(XX_A_Id)&"")
		Response.write("<script>alert('资料更新成功！');location.href=""Main.asp"";</script>")
	End IF	
End IF
%>

<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From T_admin"
Rs.Open Sql,conn,1,3
%>
<html><head>
<title><%response.write  webname%>-----栏目：系统配置中心</title>
<link rel="stylesheet" type="text/css" href="images/vpei.css">
<script>
function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}
</script>
</head>
<body topmargin=10 leftmargin=5>
<% Call top() %>
<br>
<%
if request("menu")="Backup" then
call backupdata()
sub BackupData()
	dim bkfolder,bkdbname,fso
	bkfolder=trim(request("bkfolder"))
	bkdbname=trim(request("bkdbname"))
	if bkfolder="" then
		FoundErr=True