delete.asp

功能齐全的oa系统

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

	IntIDs=Request.QueryString("IDs")
	
'	Set objRSNode = server.CreateObject("ADODB.Recordset")
    
	Set conn=Server.CreateObject("ADODB.Connection")
	OpenDBCrm( conn )

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