📄 delete_forever.asp
字号:
<%option explicit%>
<!--#include virtual="Include/DataEnvi.asp"-->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<%
Dim ObjDB,ArrIDs,IntIDs,i,StrSQL,ObjRS,conn
IntIDs = Request.QueryString("IDs")
Set ObjDB = Server.CreateObject ("ADODB.Connection")
OpenDB ObjDB
Set conn=Server.CreateObject("ADODB.Connection")
OpenDBH( conn )
set ObjRS=server.CreateObject("adodb.recordset")
'删除文件
if Session("Delete_already_Shock_Application")<>"icomeformxinjianggood" Then
dim Str
Str="select ExeState,IsPass from v_Hrms_DepRequirement_Flow where ComMsgID IN(select ComMsgID from v_Hrms_DepRequirement_Flow where ExeID IN ("&IntIDs&"))"
ObjRS.open Str,ObjDB,1,1
if ObjRS.eof and ObjRS.bof then
%>
<script language="JavaScript">
alert("此条记录不存在！可能已经被管理员删掉了！")
</script>
<%
ObjRS.close
set ObjRS=nothing
call goback()
response.End()
else
do while not ObjRS.eof
if ObjRS("ExeState")=2 then
if ObjRS("IsPass")="True" then
ObjRS.movenext
else
Exit do
end if
else
%>
<script language="JavaScript">
alert("由于此信息还没有审批完！！\n\n您现在不能删除此条信息！！")
</script>
<%
ObjRS.close
set ObjRS=nothing
call goback()
response.End()
end if
loop
ObjRS.close
set ObjRS=nothing
end if
end if
If Request.Form.Count > 0 Then
if request("OpeDesc")<>"" then '------------------判断理由不能为空开始
if Session("Delete_already_Shock_Application")="icomeformxinjianggood" then
StrSQL = "Delete from t_Hrms_JobApplications_DepRequirement where ID IN ("&IntIDs&")"
conn.execute StrSQL
call AddLog("招聘管理","部门需求","删除草稿箱",now(),session("AccountName"),Request.ServerVariables("REMOTE_ADDR"),request("OpeDesc"),"",conn)
conn.close
set conn=nothing
call goback()
else
StrSQL = "Delete from t_OA_Work_ComMessage_Record_Des where ID IN ("&IntIDs&")"
ObjDB.execute StrSQL
StrSQL = "Delete from t_Hrms_JobApplications_DepRequirement where ID IN (Select ComMsgID from OA.dbo.t_OA_Work_ComMessage_Record where ID IN (Select NodeID from OA.dbo.t_OA_Work_ComMessage_Record_Des where ID IN ("&IntIDs&")))"
conn.execute StrSQL
StrSQL = "Delete from t_OA_Work_ComMessage_Record Where ID IN (Select NodeID from t_OA_Work_ComMessage_Record_Des where ID IN ("&IntIDs&"))"
ObjDB.execute StrSQL
if Session("Delete_already_Shock_Application")="icomeformxinjianggoodaks" Then
call AddLog("招聘管理","部门需求","删除已发送箱",now(),session("AccountName"),Request.ServerVariables("REMOTE_ADDR"),request("OpeDesc"),"",conn)
conn.close
set conn=nothing
call goback()
end if
if Session("Delete_already_Shock_Application")="dontaskmewhereicomefromicomeformxinjianggood" Then
call AddLog("招聘管理","部门需求","删除已处理箱",now(),session("AccountName"),Request.ServerVariables("REMOTE_ADDR"),request("OpeDesc"),"",conn)
conn.close
set conn=nothing
call goback()
end if
end if
else
call MsgBox("原因不能为空！","Back","none")
response.End()
end if
end if
sub goback()
if Session("Delete_already_Shock_Application")="icomeformxinjianggoodaks" Then
Session("Delete_already_Shock_Application")=""
%>
<Script Language = Javascript>
parent.frmToolbar.doList(3)
</Script>
<%end if
if Session("Delete_already_Shock_Application")="icomeformxinjianggood" Then
Session("Delete_already_Shock_Application")=""
%>
<Script Language = Javascript>
parent.frmToolbar.doList(2)
</Script>
<%
end if
if Session("Delete_already_Shock_Application")="dontaskmewhereicomefromicomeformxinjianggood" Then
Session("Delete_already_Shock_Application")=""
%>
<Script Language = Javascript>
parent.frmToolbar.doList(4)
</Script>
<%
end if
end sub
%>
<BODY >
<table width="100%" border="0">
<tr>
<td>请填写删除原因！ </td>
</tr>
<tr>
<td><form name="form1" method="post" action="">
<p>
<textarea name="OpeDesc" id="OpeDesc" rows="10" cols="60"></textarea>
</p>
<p>
<input type="submit" name="Submit" value="提 交" class=Button>
</p>
</form></td>
</tr>
</table>
</BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -