原来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

　　%>