[ASP]删除空间本地文件 问题

现在能成功删除数据库表中的数据,但虚拟主机的本地文件没有被删除?望大神帮忙,感激不尽!
-------
文件浏览页面（ckwj.asp）：
程序代码：
<%call ycsxpic()%>

<%sub ycsxpic()
set rs1=Server.CreateObject("ADODB.Recordset")
rsppl="select * from [data]  order by id desc"
rs1.open rsppl,conn,1,2
if rs1.eof then
response.write("暂无文件。<br/>")
else
pag=10
page=cint(request.QueryString("page"))
if page="" or page<1 then page=1
maxpage=int((rs1.recordcount-1)/pag)+1
if page>maxpage then page=maxpage

rs1.Move((page-1)*pag)

l=1
do while ((not rs1.EOF) and 0 <=cint(pag))
%><div style="background:#ffeeff;font-size:13px;"><img src='<%=rs1("datadir")%>'/><br/>
<%=((page-1)*pag+l)%>.路径:down/<%=rs1("dataname")%>
<%size=Round(rs1("filesize")/1024,2)
If Left(size,1)="." Then size="0"&size%>
大小:<%=size%>KB[<a href='ckwj_del.asp?vs=<%=vs%>&amp;file=<%=rs1("datadir")%>&amp;ID=<%=rs1("id")%>&amp;sb=<%=sb%>'>删除</a>]</div><br/>
<%
rs1.MoveNext
l=l+1
loop
end if
if page*pag<rs1.recordcount then response.write("<a href='ckwj.asp?vs="&vs&"&amp;id="&id&"&amp;page=" & page+1 & "&amp;sb="&sb&"'>下一页</a>")
if page>1 then response.write("<a href='ckwj.asp?vs="&vs&"&amp;id="&id&"&amp;page=" & page-1 & "&amp;sb="&sb&"'>上一页</a>")
if page>1 then response.write("<a href='ckwj.asp?vs="&vs&"&amp;id="&id&"&amp;page=10000&amp;sb="&sb&"'>尾页</a>")
if page>1 then response.write("<a href='ckwj.asp?vs="&vs&"&amp;id="&id&"&amp;page=0&amp;sb="&sb&"'>首页</a><br/>")
%>共[<%=rs1.recordcount%>]条<br/>复制


删除页面（ckwj_del.asp）：
程序代码：

<%if id="" then%>
注意：删除后将无法恢复！<br/>
<a href="ckwj_del.asp?sb=<%=sb%>&amp;file=<%=file%>&amp;id=<%=id%>">确认删除</a><br/>
<%else
file=request("file")   <!--获取url传送过来的文件绝对路径-->

dim filename
filename=file
filename = Server.MapPath(filename)
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
If (MyFileObject.FileExists(trim(filename))) Then
    MyFileObject.DeleteFile trim(filename)

end if

sql="delete from data Where CStr(id)='" & id & "'"
  conn.Execute(sql)

response.write("删除成功!")

end if
%>

1. <%else
   
2. file=request("file")   <!--获取url传送过来的文件绝对路径-->
   
3. 
   
4. dim filename
   
5. filename=file
   
6. filename = Server.MapPath(filename)
   
7. 
   
8. response.write filename
   
9. response.end
   
10. 
    
11. Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
    
12. If (MyFileObject.FileExists(trim(filename))) Then
    
13.     MyFileObject.DeleteFile trim(filename)
    
14. 
    
15. end if

复制代码

你打印下文件是否存在。