ASP中删除记录之后将文件同步删除掉

sub DelArticle(ID)
    sqlDel="select * from Product where ArticleID=" & CLng(ID)
    Set rsDel= Server.CreateObject("ADODB.Recordset")
    rsDel.open sqlDel,conn,1,3
    if FoundErr=False then
        if DelUpFiles="Yes" and ObjInstalled=True then
            response.Write("Test")
            dim fso,strUploadFiles,arrUploadFiles
            strUploadFiles=rsDel("goodsPic") & ""          '我只上传图片的
            response.Write(strUploadFiles)                 '看看效果
            if strUploadFiles<>"" then
                Set fso = CreateObject("Scripting.FileSystemObject")   '用的是FSO上传的
                if fso.FileExists(server.MapPath("../UploadFiles/" & strUploadFiles)) then
                    fso.DeleteFile(server.MapPath("../UploadFiles/" & strUploadFiles))
                end if
            end if
            Set fso = nothing
            end if
        end if
        rsDel.delete      '删除数据库记录
        rsDel.update
        set rsDel=nothing    
end sub
FSO方式 进行操作处理的呢！
好好研究一下ASP中对文件的操作处理吧！