三种禁用FileSystemObject(FSO)组件的方法

众所周知，FileSystemObject组件的强大功能及破坏性是它屡屡被免费主页 [\Nmm4  
提供商(那些支持ASP)的禁用的原因，我整理了一下，本来只找到两种方法，后来 H9i7y,[*  
被某人一刺激，硬是想到第三种不为人所知的方法，呵呵，也不知道是不是这样的。 d:>'c=y  
-iY-rzW  
第一种：用RegSrv32 /u C:\WINDOWS\SYSTEM\scrrun.dll(win98路径)来注销该组 "'@D\e}  
件。此方法过于狠毒，属于同归于尽的方法，大家都没得用，是下招 S=.%aB  
RgJbM\`}?  
第二种：修改Progid的值，在ASP里调用组件的方式通常是 Set 对象名=Server. S'W,AkT  
CreateObject("Progid")，这时候我们就可以通过修改注册表中的Progid值从达 023uAaI^3r  
到禁用该组件的方法。在 开始-运行中敲入regedit,然后找到HKEY_CLASSES_ROO N)Q.P'`N  
T\Scripting.FileSystemObject，这时候我们就可以更改该Progid的值了，如改 XjP&  
成Scripting.FileSystemObject8。这样在ASP页里就这样调用了： [Cf
ZE  
]7>#YKH.  
J/E''*  
以下是代码片段： v\MQ?VC  
<%@ Language=Vbscript%> g|->W]q@;  
<% x?lRObHK  
Set Fs=Server.CreateObject("Scripting.FileSystemObject8") jDTG15_=  
%> 9<toDg_  
cWZ uph\  
TC44*BHq  
(如果你前面没有调用过该组件的话，则无须重启，就可以看到效果了，否则请重 esE!i0%  
启后看效果。) 2boyBz}=S  
这时候我们看看还是用原来的调用方法的结果： &0\:MJc  
?U[6X|1  
以下是代码片段： ^Y;,c
LXJ  
<%@ Language=Vbscript%> U`8Er48X  
<% zPybPE8  
Set Fs=Server.CreateObject("Scripting.FileSystemObject") 7l/lY-zO  
%> @ext6cFe3<  
4lpcJ+:o  
Lu:*nJ%1[  
| 4}Y:d  
这时候的运行结果为： s]6;*mI2  
服务器对象 错误 'ASP 0177 : 800401f3' 9}a$0H h  
jO5R~O`  
Server.CreateObject 失败 On~KTt3Mp  
rNo/H<J%+j  
/aspimage/testfile2.asp, 行3 o _l_Yi  
.5!`wwVi  
800401f3 >o{JG(Rn  
(OK，达到我们的要求) (ER9.k2  
该方法由于本人迟了两步，结果就让别人抢着回答了，这样极大的刺激了我，结 oF]]Pl{W  
果就产生了第三种方法。 r-L& ee  
)u28:+8  
第三种：细心的高手们会想，既然能通过修改Progid值来禁用该组件，那Clsid是 b=\chCRJJ  
否也可以来修改呢？(OK，你想得和我一样)我们知道，除了CreateObject方法以 @mxaZ5Vv}  
外，也可以使用一般的标注建立一个组件，我们可以在ASP里面使用HTM *`wz  
L的标注，以便在网页中加入一个组件。方法是： v0! 1W  
H25Qx;(dTk  
以下是代码片段： RXcN<Y&  
<object runat=server id=fs1 scope=page progid="Scripting.FileSystemObj j$XaO%y)  
ect"></object> 0gW{6BtPWm  
1n&%L8]  
4%8den,|  
DCZG'eb  
Runat表示是在服务端执行，Scope表示组件的生命周期，可以选用Session,Appl CadIux^  
ication或page(表示当前页面，也可缺省) kSc~gJrne  
这种写法对我们没用，还有一种写法是: U9^1
A*  
ok:L]8UN3  
以下是代码片段： kh=<M{-t  
<object runat=server id=fs1 scope=page classid="clsid:clsid的值"></obj 7)[Ve1;/N  
ect> [xrsa!$   
chUYLX}45  
GiM-8y~  
WwZ3hd  
我们也可以通过修改该Clsid的值而禁用该组件，如将注册表中HKEY_CLASSES_RO ){#INmsF  
OT\Scripting.FileSystemObject\CLSID的值0D43FE01-F093-11CF-8940-00A0C90 X0^@E  
54228改成0D43FE01-F093-11CF-8940-00A0C9054229(改了最后面一位)，这时候的 [a!AKkj  
写法为： NQ[X=a8N  
@~|;/OY>"  
以下是代码片段： YZ8[h`z  
<object runat=server id=fs1 scope=page classid="clsid:0D43FE01-F093-11 I;E?;i  
CF-8940-00A0C9054229"></object> Ly^bP>2i  
/ILd|j(e  
{5X,xdzR  
看运行结果，没问题，OK。这时候我们再用 Q8h0.(#-  
G,$nq4  
以下是代码片段： $.d,>F6  
<object runat=server id=fs1 scope=page classid="clsid:0D43FE01-F093-11 S ;rd0+J  
CF-8940-00A0C9054228"></object> b/R7Mk1  

:*|Ua%L_  
aZ_3@I{d`  
m>P\}A^N  
这时候就出错了。 ,K\7y2/  

6.
KEe^[-  
新建一用户：iusr_domain #|Lsi`]+  
IIS里设置对应站点的匿名用户IUSR_DOMAIN P/1YN  
CACLS： 设置目录权限 2#^g] o-N  
1_f+! ns#  
这样FSO可用，但不会影响别人