请问大家一个关于删除记录的问题

<%
Action = Trim(Request.QueryString("Action"))
'------------------------------------------------------------------------
'上传新文件,删除文件夹垃圾文件
'------------------------------------------------------------------------
  
sub DeleteFile(path)   '定义DeleteFile函数
    dim fs,file   
    path = Server.mapPath(path)
    set fs = CreateObject("Scripting.FileSystemObject")   
    if not fs.FileExists(path) then   
    else   
        fs.DeleteFile(path)   '删除所要删除的文件
    end if   
end sub
  
If Action = "Copyring_Song" Then '删除上传的MP3文件
    Id = Trim(Request.QueryString("Id"))
    if Id <> "" then   
        '------------------查询要删除歌曲的路径地址-----------------------------
        set rs_so=server.createobject("adodb.recordset")   
        sql_so="select * from Copyright_Song where Id="&Id   
        rs_so.open sql_so,conn,1,3   
        '执行删除函数,删除查询出内容文件
        Call DeleteFile("../Manage_Copyring/"&rs_so("Song_Down_Url")&"")
        '删除数据库中的文件路径
        Conn.Execute = "UpDate Copyright_Song Set Song_Down_Url = Null Where Id = "&Id
        '执行删除完成跳转到曲目信息修改页面
        Response.Redirect "../Manage_Copyring/Copyright_update_list.asp?action=Copyring_Song&Song_Id="&Id&""
        rs_so.close
        Set rs_So=Nothing
    Else
        Response.Write "<script language = javascript>alert('所需的参数错误！');history.back(-1)</script>"
        Response.End
    End If
End If
  
If Action = "Song_Cut" Then '删除上传的剪辑
    CutId = Trim(Request.QueryString("CutId"))
    Sql_Cut_D = "Select Down_Url From Copyright_Down Where Id = "&CutId
    Set Rs_Cut_D = Server.CreateObject("Adodb.Recordset")
    Rs_Cut_D.Open Sql_Cut_D,Conn,1,3
    '执行删除函数,删除上传的原文件
    Call DeleteFile("../Manage_Copyring/"&Rs_Cut_D("Down_Url")&"")
    '删除数据库中的文件路径
    Conn.Execute = "UpDate Copyright_Down Set Down_Url = Null Where Id = "&CutId
    '执行删除完成跳转到剪辑信息修改页面
    Response.Redirect "../Manage_Copyring/Copyright_update_list.asp?action=Song_Cut&CutId="&CutId&""
    Rs_Cut_D.Close
    Set Rs_Cut_D = Nothing
End If
  
If Action = "Copyring_Agreement" Then '删除上传的协议
    Id = Trim(Request.QueryString("Id"))
    If Id <> "" Then
        Set rs_Agr = server.CreateObject("adodb.recordset")
        sql_Agr = "select * from Copyright_Agreement where Id="&Id
        rs_Agr.open sql_Agr,conn,1,3
        '执行删除函数,删除查询出版权人协议内容文件
        call DeleteFile(""&rs_Agr("DownUrl_Agreement")&"")
        '删除数据库中的文件路径
        Conn.Execute = "UpDate Copyright_Agreement Set DownUrl_Agreement = Null Where Id = "&Id
        '执行删除完成跳转到版权人协议信息修改页面
        Response.Redirect "../Manage_Copyring/Copyright_update_list.asp?action=Copyright_Agreement&Id="&Id&"&Number_Agreement="&rs_Agr("Number_Agreement")&"&CopyrightId="&rs_Agr("CopyrightId")&""
        rs_Agr.close
        Set RS_Agr=Nothing
    Else
        Response.Write "<script language = javascript>alert('所需的参数错误！');history.back(-1)</script>"
        Response.End
    End IF
End If

conn.close
Set conn=Nothing
%>

这是我写的,修改文件的时候删除数据库里上传的文件或图片.
你改一下,删除的时候加上就可以了

没用明白，请指教！