delete.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
	Dim ObjDB,StrSQL,ObjRS,ObjDepID
	Dim C,IntIDs

	IntIDs=Request.QueryString("IDs")
	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB

  StrSQL = "select IsSystem from t_OA_SYS_Account where ID IN (" & IntIDs & ")"
  Set ObjRS = ObjDB.Execute (StrSQL)
  'Response.write ObjRS("IsSystem")
  'Response.End
  if ObjRS("IsSystem") then
%>
<script language=javascript>
   alert("此帐号为系统帐号，不能删除！")
   window.history.back();
</script>
<%
   Response.End  
  end if

	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(ObjDB)
	Call C.Delete(IntIDs,"t_OA_SYS_Account")

	ObjDB.Execute("Delete From t_OA_SYS_Account_Character Where AccountID In (" & IntIDs & ")")	
	ObjDB.Execute("Delete From t_OA_MSN_Account Where AccountID In (" & IntIDs & ")")	
	ObjDB.Close
	Set ObjDB = Nothing
	Response.Redirect "List.asp"
%>