delattach.asp

功能齐全的oa系统

<%option explicit%>
<!--#include virtual="include/DataEnvi.asp"-->

<%
	Dim objDB,strSQL,objRS,ObjFS,conn
	Dim StrDelIDs,StrIDs
	Dim StrFileName,StrFilePath
	Dim ObjCrm,StrSqlCrm,StrReplace,KeyPath
	Set objDB = server.CreateObject("ADODB.Connection")
	Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")
	OpenDB objDB
        Set conn=Server.CreateObject("ADODB.Connection")
  	OpenDBCrm( conn )
	
	StrIDs = Request.QueryString("IDs")
	StrDelIDs = Request.QueryString("DelIDs")
	
	StrIDs = "," & StrIDs & ","
	StrIDs = Replace(StrIDs,"," & StrDelIDs & ",",",")
	
	If Len(StrIDs)>3 Then StrIDs = Mid(StrIDs,2,Len(StrIDs)-2)
	

	
	strSQL = "Select * From t_OA_Attach Where KeyPath In ('" & Replace(StrDelIDs,",","','") & "')"
	Set ObjRS = objDB.Execute(Strsql)
	While Not ObjRS.Eof
	'-------------------------------------------------------------------------------------------
	        KeyPath=ObjRS("KeyPath")
	'--------------------------------------------------------------------------------------------
		StrFilePath = Server.MapPath ( Application("RootPath") & "crm/Attach/Files/" & ObjRS("BasePath") & "/" & ObjRS("KeyPath") )
		If ObjFS.FolderExists(StrFilePath) Then
		   ObjFS.DeleteFolder StrFilePath,true
		objDB.Execute("DELETE FROM  t_OA_Attach Where KeyPath In ('" & Replace(StrDelIDs,",","','") & "')")
		
     '-------------------------------------------------------------------------------------------
	'在操作完OA中的t_OA_Attach表中的记录后马上修改Kingcrm库中t_crm_Bargain表中相应的记录
	if (Session("t_crm_Bargain_id")<>"") Then
	StrSqlCrm= "Select * From t_crm_Bargain Where ID= "&Cint(Session("t_crm_Bargain_id"))
	Set ObjCrm=Server.CreateObject("Adodb.RecordSet")
	ObjCrm.Open StrSqlCrm,conn,1,3
        StrReplace=ObjCrm("Attachs")
        StrReplace=Replace(StrReplace,KeyPath&",","")
        StrReplace=Replace(StrReplace,","&KeyPath,"")
        StrReplace=Replace(StrReplace,KeyPath,"")
        ObjCrm("Attachs")=StrReplace	
        ObjCrm.Update
	ObjCrm.Close
	Set ObjCrm=Nothing
	conn.Close
	Set conn=Nothing
	End if
	'-------------------------------------------------------------------------------------------------

		End If
		ObjRS.MoveNext
	Wend

	Response.Redirect "AddNew.asp?IDs=" & StrIDs & "&BasePath=" & Request.QueryString("BasePath")
%>