<!--#include file="../conn/conn.inc"-->
<% 
set rs=server.createobject("adodb.recordset")
sql="select downfilehr from downfile where downfileid="&request("id")
rs.open sql,conn,1,1   
filename=Server.MapPath(rs("downfilehr"))     
Set fso =Server.CreateObject("Scripting.FileSystemObject")
if (fso.FileExists(filename)) then
    fso.DeleteFile filename
    response.write "DONE"
end if
set fso=nothing
sql="DELETE * FROM downfile WHERE downfileid= "&request("id")
conn.execute(sql)
rs.close
set rs=nothing
conn.close
set conn=nothing
%> 
注意: 必须设置aa的文件夹属性为可修改.可写等