delete.asp

功能齐全的oa系统

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

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

	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(ObjDB)
	Call C.Delete(IntIDs,"t_Hrms_JobApplications_DepRequirement")
	
	'添加日志
	dim FirstMenu,SecondMenu,Opertion,OTime,OName,OIP,ODesc,OChang
	OIP=Request.ServerVariables("REMOTE_ADDR")
	OName= Session("AccountName") 
	if OName="administrator" then
	OName="系统管理员"
	end if
	call AddLog("招聘管理","部门需求","删除",now(),OName ,OIP,"","")
	
	ObjDB.Close
	Set ObjDB = Nothing
	Response.Redirect "List.asp"
%>