delete.asp

功能齐全的oa系统

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

	IntIDs=Request.QueryString("IDs")
	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB
	
	set ObjRS = Server.CreateObject("ADODB.RecordSet")
	StrSQL = "SELECT IsSystem FROM t_OA_SYS_Role WHERE ID = " & IntIDs
	set ObjRS = ObjDB.Execute(StrSQL)
	if not ObjRS.EOF and not ObjRS.BOF then
%>
<script language="JavaScript">
window.alert("系统用户无法删除！操作失败！");
window.history.go(-1);
</script>
<%
		Response.End
	end if
	
	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(ObjDB)
	Call C.Delete(IntIDs,"t_OA_Work_Conference")
	
	ObjDB.Close
	Set ObjDB = Nothing
	Response.Redirect "List.asp"
%>