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
%>
这样也行@_@