accdiarydel.asp

轻燕工作室中学人事管理系统最新的V5.0版本！

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%  
seljgid=trim(Request.Form("seljgid"))
del=trim(Request.Form("del"))
if del="delsel" then
  if seljgid<>"" then
       seljgid=split(seljgid,",")
	       for i=0 to ubound(seljgid)
		        sql="delete from admin_login where id=" & seljgid(i)
				conn.execute sql
				next
				response.write "<script language=JavaScript>{window.alert('删除管理员操作日记成功　!');window.location.href='accdiary.asp';}</script>"
 end if
 end if
 if del="delsel_admin_all" then
 		        sql="delete from admin_login"
				conn.execute sql
				response.write "<script language=JavaScript>{window.alert('清空所有管理员操作日记成功　!');window.location.href='accdiary.asp';}</script>"
 end if
 '--------------------
  if del="delsel_admin_yiqian" then 
        monthadmin=trim(Request.Form("monthadmin"))
         year1 = DateAdd("m", -monthadmin, now)
  		        sql="delete from admin_login where logintime<#"&year1&"#"
				conn.execute sql
				response.write "<script language=JavaScript>{window.alert('删除该时间范围内的管理员操作日记成功　!');window.location.href='accdiary.asp';}</script>"
 end if
 '-------------------------
 if del="delseljg" then
  if seljgid<>"" then
       seljgid=split(seljgid,",")
	       for i=0 to ubound(seljgid)
		        sql="delete from jg_login where login_id=" & seljgid(i)
				conn.execute sql
				next
				response.write "<script language=JavaScript>{window.alert('删除教工操作日记成功　!');window.location.href='accdiary_jg.asp';}</script>"
 end if
 end if
 
 if del="delseljg_all" then
  		        sql="delete from jg_login"
				conn.execute sql
				response.write "<script language=JavaScript>{window.alert('清空所有教工操作日记成功　!');window.location.href='accdiary_jg.asp';}</script>"
 end if
  '--------------------
   if del="delseljg_all_yiqian" then 
             jgmonth=trim(Request("jgm"))
            jgy= DateAdd("m", -jgmonth, now)
  		        sql="delete from jg_login where logintime<#"&jgy&"#"
				conn.execute sql
				response.write "<script language=JavaScript>{window.alert('删除该时间范围内的教工操作日记成功　!');window.location.href='accdiary_jg.asp';}</script>"
 end if
 '-------------------------
 if del="updatejgsel_all" then
  
		        sql="delete from updjgdiary"
				conn.execute sql
				
				response.write "<script language=JavaScript>{window.alert('清空所有修改教工资料的访问记录成功　!');window.location.href='accdiary_updjg.asp';}</script>"
 end if
 
  if del="updatejgsel" then
  if seljgid<>"" then
       seljgid=split(seljgid,",")
	       for i=0 to ubound(seljgid)
		        sql="delete from updjgdiary where upd_id=" & seljgid(i)
				conn.execute sql
				next
				response.write "<script language=JavaScript>{window.alert('删除修改教工资料的访问记录成功　!');window.location.href='accdiary_updjg.asp';}</script>"
 end if
 end if
 
 
 if del="updatejgsel_yiqian" then 
        month1=trim(Request.Form("month"))
         year1 = DateAdd("m", -month1, now)
  		        sql="delete from updjgdiary where lastupddate<#"&year1&"#"
				conn.execute sql
				response.write "<script language=JavaScript>{window.alert('删除该时间范围内的修改教工资料的访问记录成功　!');window.location.href='accdiary_updjg.asp';}</script>"

 end if
 '-------------------------
 if del="deljgsel_all" then
  
		        sql="delete from deljgdiary"
				conn.execute sql
				
				response.write "<script language=JavaScript>{window.alert('清空所有删除教工资料的访问记录成功　!');window.location.href='accdiary_deljg.asp';}</script>"
 end if
 
  if del="deljgsel" then
  if seljgid<>"" then
       seljgid=split(seljgid,",")
	       for i=0 to ubound(seljgid)
		        sql="delete from deljgdiary where upd_id=" & seljgid(i)
				conn.execute sql
				next
				response.write "<script language=JavaScript>{window.alert('删除删除教工资料的访问记录成功　!');window.location.href='accdiary_deljg.asp';}</script>"
 end if
 end if
 
 
 if del="deljgsel_yiqian" then 
        month1=trim(Request.Form("month"))
         year1 = DateAdd("m", -month1, now)
  		        sql="delete from deljgdiary where lastupddate<#"&year1&"#"
				conn.execute sql
				response.write "<script language=JavaScript>{window.alert('删除该时间范围内的删除教工资料的访问记录成功　!');window.location.href='accdiary_deljg.asp';}</script>"

 end if
  %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>

</body>
</html>