funoperate.asp

这个系统是企业管理系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Check_Sql123.asp" -->
<!--#include file="admin_qx.asp" -->
<% call isgjgly_and_hr() 
%>

<!--#include file="conn_db123.asp"-->
<%
'------------------------------------------------------------------------
sql_syssetup="select * from admin_setup_sys  where  id is not null"
set rs_syssetup=server.CreateObject("adodb.recordset")
rs_syssetup.open sql_syssetup,conn,1,1
if not rs_syssetup.eof then
sys_is_del_photowhendelmain=rs_syssetup("sys_is_del_photowhendelmain")
sys_is_del_qitamokuaiwhendelmain=rs_syssetup("sys_is_del_qitamokuaiwhendelmain")
end if
rs_syssetup.close
set rs_syssetup=nothing
'------------------------------------------------------------------------
%>
<%  
seljgid=trim(Request("seljgid"))'flName是多选框的名称
operate=trim(Request("operate")) 
 '******************************good yt***************************-- xj -----------------------
 
 if operate="deletforever" then
    call isqx_del_jb() '调用权限

    if seljgid<>"" then
        seljgid=split(seljgid,",")
		 for i=0 to ubound(seljgid) 
	   set rsimg=server.createobject("adodb.recordset")
	
			    sqldelimg="select id,xingming  from mainjg 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
   			 '-----------------------***************
	  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")=rsimg("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=" & 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)&"")	

	'-----------------------------------  
	
	
   rsimg.delete
    	
		next	
			response.Write "<script language=javascript>{window.alert('恭喜您，成功删除所选');window.history.go(-1);}</script>"
  end if   
  end if
 
 
 '**********************************************good yt*******- xj ------------------------
 if operate="del_jglistall_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*****- delview ------------------------
 if operate="del_jglistall_one_view" 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(-2);}</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