ASP删除黑客建立的只读文件夹和文件

网络整理 - 09-04
最近网友的网站被入侵,黑客建立了一些只读属性的文件夹和文件,在很多页面挂上了**彩等违法信息,FTP无法打开也无法删除,虚拟主机售后又极度垃圾,在尝试N次以后,发现这样可以删除这些只读属性的文件夹和文件,代码如下:

<%
'这里一定要完整的绝对路径,前面再加上“\\?”
'delfolder "\\?\E:\www\liuhecai."'删除文件夹
'delfile "\\?\E:\www\user\liuhecai.\index.asp"'删除文件
function Delfolder(t0)
 'On Error Resume Next
 Set fso=Server.CreateObject("Scripting.FileSystemObject")
 If Instr(t0,":\")>0 Then
  f0=t0
 Else
  f0=Server.MapPath(t0)
 End If
 'IF fso.FolderExists(f0) Then 
 fso.DeleteFolder f0,true'加上true,强制删除只读属性的文件夹
 IF Err Then Response.write Err.Description:Err.Clear
End Function
function Delfile(t0)
 'On Error Resume Next
 Set fso=Server.CreateObject("Scripting.FileSystemObject")
 If Instr(t0,":\")>0 Then
  f0=t0
 Else
  f0=Server.MapPath(t0)
 End If
 'IF fso.FileExists(f0) Then 
 fso.DeleteFile f0,true'加上true,强制删除只读属性的文件
 IF Err Then Response.write Err.Description:Err.Clear
End function
%>