原来ASP和PHP都是可以删除自身的

<%  
s= Server.MapPath("z.asp")  
Set fso = CreateObject("Scripting.FileSystemObject")  
If fso.FileExists(s) Then  
  fso.Deletefile(s)  
End If  
Set fso = Nothing  
%>

<?php  
$file = "z.php";  
if (file_exists($file)) {  
     @unlink ($file);  
}  
?>

<%  
s2= Server.MapPath("z2.asp")  
s= Server.MapPath("z.asp")  
Set fso = CreateObject("Scripting.FileSystemObject")  
fso.CopyFile s2,s  
Set fso = Nothing  
%>