ASP和PHP删除自身的程序

heimao

z.asp

1. <%
   
2. s= Server.MapPath("z.asp")
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. If fso.FileExists(s) Then
   
5. fso.Deletefile(s)
   
6. End If
   
7. Set fso = Nothing
   
8. %>

复制代码

z.php

1. <?php
   
2. $file = "z.php";
   
3. if (file_exists($file)) {
   
4. @unlink ($file);
   
5. }
   
6. ?>

复制代码

运行一下,自己被删除了，不存在了...

1. <%
   
2. s2= Server.MapPath("z2.asp")
   
3. s= Server.MapPath("z.asp")
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. fso.CopyFile s2,s
   
6. Set fso = Nothing
   
7. %>

复制代码

定位

这个某些场合还是需要的，运行过，立马删除