delete.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="Include/Page.asp" -->
<%
	Dim ObjDB,ObjRS,ObjRSH,ObjRSR,ObjRSS,ObjRSHR,ObjRSHS
	Dim StrSQL,StrSQLS,StrSQLR
	Dim C,IntIDs

	IntIDs=Request.QueryString("IDs")
	
	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDBH ObjDB
	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(ObjDB)
	Set ObjRS = C.View("Select * From T_Hrms_Dep_Account Where ID In (" & IntIDs & ")")
   	Set ObjRSR = C.View("Select * From t_Hrms_JobApplications_DepRequirement")
	Set ObjRSS = C.View("Select * From t_Hrms_PersonSave")


     StrSQL = "Select Count(*) From t_Hrms_Employees_UsersBasic Where Department In (" & trim( ObjRS ("DepID")) & ") and Station In ("&trim( ObjRS ("Pos")) &")"
     StrSQLR = "Select Count(*) From t_Hrms_JobApplications_DepRequirement  Where  Department In (" & trim( ObjRS ("DepID")) & ") and Station In ("&trim( ObjRS ("Pos")) &")"  
	 StrSQLS = "Select Count(*) From  t_Hrms_PersonSave  Where  Department In (" & trim( ObjRS ("DepID")) & ") and Station In ("&trim( ObjRS ("Pos")) &")"  

	  'RESPONSE.WRITE "StrSQL="&StrSQL&"StrSQLR"&StrSQLR&"StrSQLS="&StrSQLS
	  'RESPONSE.End()
	 
	   
	 Set ObjRSH = ObjDB.Execute(StrSQL)
     Set ObjRSHR = ObjDB.Execute(StrSQLR)
	 Set ObjRSHS = ObjDB.Execute(StrSQLS)

	
	if ObjRSH(0) = 0  then
	    IF  ObjRSHR(0)=0 THEN 
	
	    IF ObjRSHS(0)=0 THEN
	
	
	

	Call C.Delete(IntIDs,"T_Hrms_Dep_Account")
	ObjDB.Close
	Set ObjDB = Nothing
	Response.Redirect "List.asp?ParentID=" & Request.QueryString("ParentID")
	ELSE
	 call MsgBox("该岗位信息在面试人员（招聘）处调用，不能删除！","Back","none")
            response.end  
	END IF
	
	ELSE
            call MsgBox("该岗位信息在部门需求（招聘）处调用，不能删除！","Back","none")
            response.end  
   END  IF
	    else
           call MsgBox("该岗位信息在员工基本信息处调用，不能删除！","Back","none")
            response.end  
       end IF
%>