delete.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="Include/DataEnvi.asp" -->
<!-- #include virtual="Include/GetRoleIDs.asp" -->
<%
Dim ObjDB,StrSQL,ObjRS
Dim C,ParentID,IntID
Dim IntIDS

IntIDS = Request.QueryString ("IDS")

Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB ObjDB
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)

StrSQL = "Select * From t_OA_Work_Source_Record Where ID IN( " & IntIDS & ")"
Set ObjRS = C.View(StrSQL)

if not CheckRole(1) AND not CheckRole(22) AND (ObjRS("AccountID") <> Session("AccountID")) then
%>
<script language=javascript>
  alert("您无此权限！");
  window.close();
</script>
<%
  Response.End
end if

Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)
Call C.Delete (IntIDS,"t_OA_Work_Source_Record")
	
ObjDB.Close
Set ObjDB = Nothing
%>
<script language=javascript>
parent.doList()
</script>