asp和php刪除自身的程式碼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
%>
這樣也行@_@