今天早期按惯例打开论坛出现: % p' A! }3 A4 o, i1 S% Y
Microsoft VBScript 运行时错误 错误 ’800a01a8’ % J- O) w7 \$ z) E+ M, x
缺少对象: ’Application(...)’
9 A Y4 V1 } p' [# A$ ]- P
/bbs/inc/Dv_ClsMain.asp
0 L+ v3 M2 u- ]( o" U# {) t连接FTP查看文件Dv_ClsMain.asp,属性一切正常,突然想起来昨天往服务器上传过东西,是不是没更新缓存的原因。
6 M: z% L4 J' p7 y' n1 R# U' \6 G
( C1 F4 R4 {, r0 z9 p# O$ `# D动网论坛清理缓存文件 7 |8 m9 p: s0 ?( Y/ E% c% ]
新建一个文本文档,把以下代码复制进去,然后另存为文件CleanCache.asp。(格式为.asp的,如果您的文件没有显示文件格式,请进行以下设置:打开我的电脑,选择最上面的:工具,然后选择里面的:文件夹选项,之后会弹出一个对话框来,选择:查看,在里面找到:隐藏已知文件类型的扩展名,将它前面的对勾去掉点确定既可.) ! x+ _! b2 _$ L% b6 R% D: O% ?' W
<% '------------------------------------------- ' Dvbbs System Update Software Tools ' ClearCache File ' 动网先锋 [AspSky Software, Inc.] ' ScriptEditor Fssunwin ' 2005-03-25 '------------------------------------------- Call RemoveAllCache()
Sub RemoveAllCache() Dim cachelist,i Call InnerHtml("UpdateInfo","<b>开始执行清理当前站点缓存</b>:") Cachelist=split(GetallCache(),",") If UBound(cachelist)>1 Then For i=0 to UBound(cachelist)-1 DelCahe Cachelist(i) Call InnerHtml("UpdateInfo","更新 <b>"&cachelist(i)&"</b> 完成") Next Call InnerHtml("UpdateInfo","更新了"& UBound(cachelist)-1 &"个缓存对象<br>") Else Call InnerHtml("UpdateInfo","<b>当前站点全部缓存清理完成。</b>。") End If End Sub
Function GetallCache() Dim Cacheobj For Each Cacheobj in Application.Contents GetallCache = GetallCache & Cacheobj & "," Next End Function
Sub DelCahe(MyCaheName) Application.Lock Application.Contents.Remove(MyCaheName) Application.unLock End Sub
Sub InnerHtml(obj,msg) Response.Write "<li>"&msg&"</li>" Response.Flush End Sub %>
然后上传至服务器,通过http://你的域名/CleanCache.asp访问,清除缓存即可。 & x0 N8 p6 N. Z% G T
8 T( Z$ I8 Q5 B. z9 W
或者,如果可以连接远程服务器重启IIS服务器即可。
% F& M) g% m* V4 [% r # Y5 Q# r0 w& f% H8 y/ _/ h+ g9 ~
刷新访问,问题解决。
! n) w: h' S' } @5 H g0 F) b) X0 j7 }/ V
( T, J: U0 @3 q2 }1 t! j总结:
8 d5 u; z8 t# \, G+ h! ?
0 Q0 A; B+ u/ s0 D. Q/ z. f3 t. O原因:缓存文件异常.
8 k/ F% c: h. a2 [( E8 v ?解决方法:更新缓存,把缓存文件删除或重启IIS. |