delete.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="Include/DataEnvi.asp" -->
<!-- #include virtual="Include/Page.asp" -->
<!-- #include virtual="Include/GetRoleIDs.asp" -->
<%
	Dim ObjDB,StrSQL,ObjRS
	Dim C,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 V_OA_Message_Account Where ID = " & IntIDS
  Set ObjRS = C.View(StrSQL)

if not CheckRole(1) AND (ObjRS("AccountID") <> Session("AccountID")) 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_Message_Account")
	ObjDB.Close
	Set ObjDB = Nothing
	Response.Redirect "List.asp"
%>