z.asp

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

z.php

<?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  
%> 

这样也行@_@