ASP和PHP删除自身文件的语句

此程序段可用于安全安装过程，如：完成安装后删除Install文件。
也可用于付费授权程序的安装设计，仅可执行一次，之后需向设计者寻求该文件。

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

这样也行@_@