) |8 f* o+ J8 E
0 @. U! ~: d! v* K" R9 X- J" ?可以访问服务器,登陆远程桌面,本地机器也可以用的方法: 1、开始→运行→cmd然后输入rd E:\文件夹..\ /s /q 确定
2、将以下这段代码保存在记事本中
DEL /F /A /Q \\?\%1 RD /S /Q \\?\%1
然后另存为del.bat
把要删除的文件直接拖到这个文件图标上即可删除
不能登陆桌面的方法: 要求网站空间fso是开着的。
0 O1 s5 F8 g1 H7 R7 x3 z
(560 Bytes, 下载次数: 2)
1 E5 K0 @2 `+ ~8 k; [- E. i: m0 k这个文件,打开之后就是这个代码,修改相应位置。然后放到网站目录,运行一次即可,没有任何提示,简单的才是最实用的~~ 7 G& Z' ]& C$ y4 H5 X1 _4 {3 N0 G
<% '这里一定要完整的绝对路径,前面再加上“\\?” delfolder "\\?\d:\freehost\pengboxiu\web\new." '删除文件夹 'delfile "\\?\绝对路径\文件名.\index.asp" '删除文件
& p4 r4 E6 P( e" y4 Ufunction 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 / T- k. I& o& O/ U" E$ h+ o3 _6 [* g: r& Y
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 %>
5 h( E. i! z# ~ n0 i% S! ^
- v" u6 @8 W" ~! H' C" V, f+ N7 }5 ^
[此贴子已经被作者于2010-12-14 16:50:06编辑过] * q+ @' o! h* \* I1 e
|