delete.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 19 行

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

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

	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(ObjDBH)
	Call C.Delete(IntIDs,"t_Hrms_Employees_UsersRemark")
	
	ObjDBH.Close
	Set ObjDBH = Nothing
	Response.Redirect "List.asp"
%>