funoperate.asp

这个系统是企业管理系统

 set DelFi=DelObj.getfile(Delpath)
 DelFi.Delete
 set Delobj=nothing
 end if
 end if
 
end if  
	  	  	'----------------delothermokuai-------------------

conn.execute("delete from xuexijingli where xingming_id=" & seljgid(i)&"")	
conn.execute("delete from gongzuojingli where xingming_id=" & seljgid(i)&"")	
conn.execute("delete from jiaoyanqingkuang where xingming_id=" & seljgid(i)&"")	
conn.execute("delete from jiangcheng where xingming_id=" & seljgid(i)&"")	
conn.execute("delete from jiating where xingming_id=" & seljgid(i)&"")	

	'-----------------------------------  
				 rs.delete
				 rs.close
				
			set rs=nothing	
				  response.write "<script language=JavaScript>{window.alert('成功地删除记录，请按“确定”返回!');window.history.go(-1);}</script>"
     response.end
 end if
 
 
 
  
 '***********************************删除审核单个admin_check------------------------
 if operate="del_jgadmin_checkall_one" then'删除单个
       call isqx_del_jb() '调用权限
  delmdid=trim(Request("delmdid"))
  
	set rs=server.createobject("adodb.recordset")
		           sql="select id,xingming  from mainjg where id=" & delmdid

			 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
    				 '-----------------------***************
	  ip111 = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '　代理IP
ip222 =Request.ServerVariables("REMOTE_ADDR") 
if ip111 = "" then
ipupdate = ip222
else
ipupdate = ip111
end if
sql_jgupddiary="select * from diary_deljg"
set rs_jgupddiary=server.CreateObject("adodb.recordset")
rs_jgupddiary.open sql_jgupddiary,conn,1,2
rs_jgupddiary.addnew     
	  rs_jgupddiary("jg_name")=rs("xingming") '被删除姓名
      rs_jgupddiary("lastupduser")=session("admin_login")
      rs_jgupddiary("lastupdname")=session("admin_name")
rs_jgupddiary("danwei")=session("admin_danwei")

      rs_jgupddiary("lastupddate")=now
      rs_jgupddiary("lastupdip")=ipupdate
      rs_jgupddiary.update
	  rs_jgupddiary.close
	  set rs_jgupddiary=nothing
	  '------------------------------********************
		'----------------delpho-------------------	
if sys_is_del_photowhendelmain="T" then


 imgpath=rsimg("zhaopian")
if imgpath<>"" then
set DelObj=Server.CreateObject("Scripting.FileSystemObject")
 filepath=imgpath
  Delpath=server.mappath(filepath)
 if DelObj.FileExists(Delpath) then
 set DelFi=DelObj.getfile(Delpath)
 DelFi.Delete
 set Delobj=nothing
 end if
 end if
 
end if    
	  	  	'----------------delothermokuai-------------------

conn.execute("delete from xuexijingli where xingming_id=" & delmdid	 & "")
conn.execute("delete from gongzuojingli where xingming_id=" & delmdid & "")
conn.execute("delete from jiaoyanqingkuang where xingming_id=" & delmdid & "")	
conn.execute("delete from jiangcheng where xingming_id=" & delmdid & 	"")
conn.execute("delete from jiating where xingming_id=" & delmdid	 & "")

	'-----------------------------------  
				 rs.delete
				 rs.close
				
			set rs=nothing	
				  response.write "<script language=JavaScript>{window.alert('成功地删除记录，请按“确定”返回!');window.history.go(-1);}</script>"
     response.end
 end if 
 
 
 
 
 
 
 
 
 
 
 
 
 
  %>

<%'---------------以下为删除学校资料
 '**********************************************good yt*******- xj ------------------------
 if operate="del_xx_list_one" then'删除单个
 if session("shenfenjibie")<>"系统管理员" then
response.Write "<script language=javascript>{window.alert('抱歉，您没有权限或没有登录或登录超时，请重新登录！');window.open('index.asp','_parent'); }</script>"
response.End
'因只有系统管理员才能删除记录
end if
   delmdid=trim(Request("delmdid"))
  
	set rs=server.createobject("adodb.recordset")
		           sql="select id  from aboutschool where id=" & delmdid

			 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
				
			set rs=nothing	
				  response.write "<script language=JavaScript>{window.alert('成功地删除记录，请按“确定”返回!');window.history.go(-1);}</script>"
     response.end
 end if 
 
 '-----------------------
 if operate="deletforever_xx" then
 
  if session("shenfenjibie")<>"系统管理员" then
response.Write "<script language=javascript>{window.alert('抱歉，您没有权限或没有登录或登录超时，请重新登录！');window.open('index.asp','_parent'); }</script>"
response.End
'因只有系统管理员才能删除记录
end if
    if seljgid<>"" then
        seljgid=split(seljgid,",")
		 for i=0 to ubound(seljgid) 
	   set rsimg=server.createobject("adodb.recordset")
	
			    sqldelimg="select id  from aboutschool where id=" & seljgid(i)

	
		rsimg.open sqldelimg,conn,1,3
		 if rsimg.eof then
 	response.write "<script language=JavaScript>{window.alert('所选记录中有不存在或已被删除的记录，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
  response.end
   end if
 
   rsimg.delete
    	
		next	
			response.Write "<script language=javascript>{window.alert('恭喜您，成功删除所选');window.history.go(-1);}</script>"
  end if   
  end if
 
'++++++++++++++++++++++++++++++++++++++++++++++审核+++++++++++++++++++
 if operate="regselfcheck" then 
    if seljgid<>"" then
        seljgid=split(seljgid,",")
		 for i=0 to ubound(seljgid) 
	   set rsimg=server.createobject("adodb.recordset")
	
			    sqldelimg="select id,ischeck  from mainjg where id=" & seljgid(i)

	
		rsimg.open sqldelimg,conn,1,2
		 if rsimg.eof then
 	response.write "<script language=JavaScript>{window.alert('所选记录中有不存在或已被删除的记录，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
  response.end
   end if
   
   rsimg("ischeck")="passcheck"

rsimg.update
    	
		next	
			response.Write "<script language=javascript>{window.alert('恭喜，成功审核所选');window.history.go(-1);}</script>"
  end if   
  end if
  
   if operate="regselfcheck_quxiao" then 
    if seljgid<>"" then
        seljgid=split(seljgid,",")
		 for i=0 to ubound(seljgid) 
	   set rsimg=server.createobject("adodb.recordset")
	
			    sqldelimg="select id,ischeck  from mainjg where id=" & seljgid(i)

	
		rsimg.open sqldelimg,conn,1,2
		 if rsimg.eof then
 	response.write "<script language=JavaScript>{window.alert('所选记录中有不存在或已被删除的记录，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
  response.end
   end if
   
   rsimg("ischeck")="nocheck"

rsimg.update
    	
		next	
			response.Write "<script language=javascript>{window.alert('恭喜，成功审核所选');window.history.go(-1);}</script>"
  end if   
  end if
%>

<%
response.write "<script language=JavaScript>{window.alert('您没有执行任何操作，请按“确定”返回!');window.history.go(-1);}</script>"
  response.end
%>