delete.asp

功能齐全的oa系统

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

	IntIDs=Request.QueryString("IDs")
	MyString=IntIDs
	MyArray = Split(MyString, ",", -1, 1)
	Set conn=Server.CreateObject("ADODB.Connection")
    	OpenDBCrm( conn )
	
	Set ObjRS=Server.CreateObject("ADODB.RecordSet")
	
        for I=0 To UBound(MyArray,1)
        	StrSQL="select * from T_CRM_LinkMan Where Guest_ID="&Cint(MyArray(I))
        	'Response.write StrSQL&"<br>"
        	
        	ObjRS.Open StrSQL,conn,1,3
			If Not(ObjRS.Eof and ObjRS.Bof) Then
				Response.Write "<script language=javascript>alert('客户有相关的联系人记录，请先删除相关联系人信息');history.back();</script>"
            	Response.End
        	End if
            ObjRS.Close
                
        Next
   	
	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(conn)
	Call C.Delete(IntIDs,"T_CRM_Guest")
    
        
        Set ObjRS=Nothing	
	conn.Close
	Set conn = Nothing
	Response.Redirect "List.asp"
	
%>