editdelnode.asp

功能齐全的oa系统

<!--#include virtual ="/Include/DataEnvi.asp"-->
<%
Dim NodeID, ObjRS, StrSQL

NodeID = Request.QueryString("ID")

Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB

StrSQL = "Select ParentID, ChildID From t_OA_Work_Flow_Node Where id = " & Cint(NodeID)
'Response.Write StrSQL
Set ObjRS = ObjDB.Execute(StrSQL)

if Cint(ObjRS("ChildID")) <> -1 then
  StrSQL = "Update t_OA_Work_Flow_Node Set ChildID = " & ObjRS("ChildID") & " Where ID = " & ObjRS("ParentID")
  ObjDB.Execute(StrSQL)

  StrSQL = "Update t_OA_Work_Flow_Node Set ParentID = " & ObjRS("ParentID") & " Where ID = " & ObjRS("ChildID")
  ObjDB.Execute(StrSQL)
else
  StrSQL = "Update t_OA_Work_Flow_Node Set ChildID = -1 Where ID = " & ObjRS("ParentID")
  ObjDB.Execute(StrSQL)
end if
StrSQL = "Delete From t_OA_Work_Flow_Node Where ID = " & Cint(NodeID)
ObjDB.Execute(StrSQL)

ObjRS.Close
Set ObjRS = Nothing
ObjDB.Close
Set ObjDB = Nothing
%>
<script language=javascript>
  parent.parent.IframeMain.location="index.asp"
</script>