众所周知,FileSystemObject组件的强大功能及破坏性是它屡屡被免费主页 a".uS4x
提供商(那些支持ASP)的禁用的原因,我整理了一下,本来只找到两种方法,后来 QPfS3%p`
被某人一刺激,硬是想到第三种不为人所知的方法,呵呵,也不知道是不是这样的。 S!n
9A
SS;QPWRZ
第一种:用RegSrv32 /u C:\WINDOWS\SYSTEM\scrrun.dll(win98路径)来注销该组 FBcF
件。此方法过于狠毒,属于同归于尽的方法,大家都没得用,是下招 yX(6C]D
%d9UW Q
第二种:修改Progid的值,在ASP里调用组件的方式通常是 Set 对象名=Server. $0Y&r]'
CreateObject("Progid"),这时候我们就可以通过修改注册表中的Progid值从达 0PnW|N0
到禁用该组件的方法。在 开始-运行中敲入regedit,然后找到HKEY_CLASSES_ROO ~R cd
T\Scripting.FileSystemObject,这时候我们就可以更改该Progid的值了,如改 z~xN]=
成Scripting.FileSystemObject8。这样在ASP页里就这样调用了: ?Ib/}JST
h tn2`
V|.aud=7z
以下是代码片段: E `)p,{T
<%@ Language=Vbscript%> ]Nvtiw 6
<% 0n,5"B
Set Fs=Server.CreateObject("Scripting.FileSystemObject8") [j0I}+@4H
%> BifA&o%
~&~%q u
%1]2+_6
(如果你前面没有调用过该组件的话,则无须重启,就可以看到效果了,否则请重 l1N{ujM
启后看效果。) ;NRT
a*
这时候我们看看还是用原来的调用方法的结果: 43-%")bH
~]/X,Cf
以下是代码片段: Hk\+;'PrN
<%@ Language=Vbscript%> #~.i\|VL
<% H+3I[`v
Set Fs=Server.CreateObject("Scripting.FileSystemObject") <'
%g $"
%> *ftJ(
fT8Id\6js
@WU_GQas3
@U:T}5)wc
这时候的运行结果为: ZZE
服务器对象 错误 'ASP 0177 : 800401f3' q'2PG@
&bj :,$@
Server.CreateObject 失败 c)SSi@<
cv
2>O2#53ls0
/aspimage/testfile2.asp, 行3 _'H<zZo
S53%*7K.
800401f3 H8K<.RY
(OK,达到我们的要求) J5Fg]O*
该方法由于本人迟了两步,结果就让别人抢着回答了,这样极大的刺激了我,结 '{cN~A2b4
果就产生了第三种方法。 z[v5hhI)4
%1VMwqC]E
第三种:细心的高手们会想,既然能通过修改Progid值来禁用该组件,那Clsid是 MQY1he2M
否也可以来修改呢?(OK,你想得和我一样)我们知道,除了CreateObject方法以 %T6#c7U_
外,也可以使用一般的标注建立一个组件,我们可以在ASP里面使用HTM ''BP4=r5n
L的标注,以便在网页中加入一个组件。方法是: >W'SG3Hmc
2c%}p0<;|?
以下是代码片段: ,0 &lag
<object runat=server id=fs1 scope=page progid="Scripting.FileSystemObj XU9=@y+|v
ect"></object> \Zf&&7v
hCT%1R}rKr
#4//2N
-t6d`p;dR
Runat表示是在服务端执行,Scope表示组件的生命周期,可以选用Session,Appl /"CKVQ
ication或page(表示当前页面,也可缺省) HxY,R^
这种写法对我们没用,还有一种写法是: h0.Fstf]
.4!N#'
以下是代码片段: N`Bt|#R
<object runat=server id=fs1 scope=page classid="clsid:clsid的值"></obj a
LmVOL{
ect> ?3}UO:B
Xe+&/J5b
:GK{JP
fr#lH3
我们也可以通过修改该Clsid的值而禁用该组件,如将注册表中HKEY_CLASSES_RO pXFNK"jm
OT\Scripting.FileSystemObject\CLSID的值0D43FE01-F093-11CF-8940-00A0C90
kw-/h+lG
54228改成0D43FE01-F093-11CF-8940-00A0C9054229(改了最后面一位),这时候的 Rc6
)v
写法为: BE"nyTQ
uaPBM<
以下是代码片段: Msd!4TrBJ
<object runat=server id=fs1 scope=page classid="clsid:0D43FE01-F093-11 8nnkv,wa
CF-8940-00A0C9054229"></object> M?cKt.t
K%=n \Y
}=;>T)QmMO
看运行结果,没问题,OK。这时候我们再用 {my=Li<