accdiarydel.asp

这个系统是企业管理系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Check_Sql123.asp" -->
<!--#include file="admin_qx.asp" -->
<% call isgly_sys() %>
<!--#include file="conn_db123.asp" -->
<%  
seljgid=trim(Request("seljgid"))
del=trim(Request("del"))
if del="delsel_admin" then
  if seljgid<>"" then
       seljgid=split(seljgid,",")
	       for i=0 to ubound(seljgid)
		        sql="delete from diary_admin_login where id=" & seljgid(i)
				conn.execute sql
				next
				response.write "<script language=JavaScript>{window.alert('所选　“　管理员操作日记　”　成功删除　!');window.history.go(-1);}</script>"
   else	response.write "<script language=JavaScript>{window.alert('提示：要执行删除操作，请先选择要删除的记录　!');window.history.go(-1);}</script>"
      response.end
  end if 
 end if
 if del="delsel_admin_all" then
 		        sql="delete from diary_admin_login"
				conn.execute sql
				response.write "<script language=JavaScript>{window.alert('清空所有管理员操作日记成功　!');window.history.go(-1);}</script>"
 end if
 
 '--------------------
  if del="delsel_admin_yiqian" then 
        monthadmin=trim(Request("monthadmin"))
         year1 = DateAdd("m", -monthadmin, date)
  		        sql="delete from diary_admin_login where logintime<=#"&year1&"#"
				conn.execute sql
				response.write "<script language=JavaScript>{window.alert('该时间范围内的　“　管理员登录日记　”　成功删除　!');window.history.go(-1);}</script>"
 end if
 '-------------------------
 if del="delsel_jg_login" then
  if seljgid<>"" then
       seljgid=split(seljgid,",")
	       for i=0 to ubound(seljgid)
		        sql="delete from diary_jg_login where id=" & seljgid(i)
				conn.execute sql
				next
				response.write "<script language=JavaScript>{window.alert('所选的　“　登录日记　”　成功删除　!');window.history.go(-1);}</script>"
   else	response.write "<script language=JavaScript>{window.alert('提示：要执行删除操作，请先选择要删除的记录　!');window.history.go(-1);}</script>"
      response.end
  end if
 end if
  
   '------------登录日记----+++++++++++----
    if del="delsel_jg_all_yiqian" then 
        monthadmin=trim(Request("monthadmin"))
         year1 = DateAdd("m", -monthadmin, date)
  		        sql="delete from diary_jg_login where logintime<=#"&year1&"#"
				conn.execute sql
				response.write "<script language=JavaScript>{window.alert('该时间范围内的　“　登录日记　”　成功删除　!');window.history.go(-1);}</script>"
 end if
 
 
 '-------------------------
 if del="updatejgsel_all" then
  
		        sql="delete from diary_updjg"
				conn.execute sql
				
				response.write "<script language=JavaScript>{window.alert('清空所有修改资料的访问记录成功　!');window.history.go(-1);}</script>"
 end if
 
 if del="delsel_updatejgsel" then'批量删除
  if seljgid<>"" then
       seljgid=split(seljgid,",")
	set rs=server.createobject("adodb.recordset")
       for i=0 to ubound(seljgid)
		        sql="select upd_id from diary_updjg where upd_id=" & seljgid(i)
				 rs.open sql,conn,1,2
				  if rs.eof then
 	response.write "<script language=JavaScript>{window.alert('所选记录中有不存在或已被删除的记录，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
  response.end
   end if
	 rs.delete
				 rs.close
				next
			set rs=nothing	
				  response.write "<script language=JavaScript>{window.alert('所选　“　修改资料的访问记录　”　成功删除111　!');window.history.go(-1);}</script>"
   else	response.write "<script language=JavaScript>{window.alert('提示：要执行删除操作，请先选择要删除的记录　!');window.history.go(-1);}</script>"
      response.end
  end if
   response.end
 end if 
 
  
 if del="delsel_updatejgsel_yiqian" then 
        month1=trim(Request("monthadmin"))
         year1 = DateAdd("m", -month1, date)
  		        sql="delete from diary_updjg where lastupddate<=#"&year1&"#"
				conn.execute sql
				response.write "<script language=JavaScript>{window.alert('该时间范围内的“　修改资料的访问记录　”成功删除　!');window.history.go(-1);}</script>"

 end if
 '-------------------------
 if del="deljgsel_all" then
  
		        sql="delete from diary_deljg"
				conn.execute sql
				
				response.write "<script language=JavaScript>{window.alert('清空所有删除资料的访问记录成功　!');window.history.go(-1);}</script>"
 end if
 
  if del="delsel_deljgsel" then
  if seljgid<>"" then
       seljgid=split(seljgid,",")
	       for i=0 to ubound(seljgid)
		        sql="delete from diary_deljg where upd_id=" & seljgid(i)
				conn.execute sql
				next
				response.write "<script language=JavaScript>{window.alert('“记录删除日记”成功删除　!');window.history.go(-1);}</script>"
 end if
 end if
 
 
 if del="delsel_deljg_yiqian" then 
        month1=trim(Request("monthadmin"))
         year1 = DateAdd("m", -month1, date)
  		        sql="delete from diary_deljg where lastupddate<=#"&year1&"#"
				conn.execute sql
				response.write "<script language=JavaScript>{window.alert('该时间范围内的　“记录删除日记”　成功删除　!');window.history.go(-1);}</script>"

 end if
  %>