delete.asp

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

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
	Dim ObjDB,StrSQL,ObjRS,conn
	Dim C,IntIDs,MyString,MyArray,i
	
	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_Guest_industry Where Gtype_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_type")
        
        Set ObjRS=Nothing 	
	conn.Close
	Set ObjDB = Nothing
	Response.Redirect "List.asp"
	
%>