今天早期按惯例打开论坛出现:
3 h d$ J" R: {. ]% z' e& `1 YMicrosoft VBScript 运行时错误 错误 ’800a01a8’
8 S+ r0 Q3 g+ h; @* ~' u缺少对象: ’Application(...)’
6 c4 U9 H* A* N& Z/bbs/inc/Dv_ClsMain.asp
, P0 A: o, Q2 j( ?) w! G& x连接FTP查看文件Dv_ClsMain.asp,属性一切正常,突然想起来昨天往服务器上传过东西,是不是没更新缓存的原因。
4 C5 Y6 o1 G$ o- x7 ]# R $ Q7 J4 M& i: t+ K+ U% Y9 C2 M: e
动网论坛清理缓存文件
0 q* U. t9 d5 m0 r新建一个文本文档,把以下代码复制进去,然后另存为文件CleanCache.asp。(格式为.asp的,如果您的文件没有显示文件格式,请进行以下设置:打开我的电脑,选择最上面的:工具,然后选择里面的:文件夹选项,之后会弹出一个对话框来,选择:查看,在里面找到:隐藏已知文件类型的扩展名,将它前面的对勾去掉点确定既可.)
0 k+ ~- ^" B/ p+ f1 Y( t1 k, |<% '------------------------------------------- ' 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访问,清除缓存即可。 & v& ^9 X& h: Y. S7 @0 R' ^9 A
1 J/ z" D6 s. @% @% j& T- c. Z或者,如果可以连接远程服务器重启IIS服务器即可。 : p7 [8 ]2 y' n9 q- _+ p
; s# j8 b" I) Q* x/ s& V( f
刷新访问,问题解决。 . o+ c) x$ @) `% E( t
' V% H- O O. g% U B( Z/ S s: A总结: 5 K4 \+ A) a2 F- _
( W; V! X, E0 {! s8 _) i/ `, t
原因:缓存文件异常.
2 @4 f# |! Q' C$ Z; V; {解决方法:更新缓存,把缓存文件删除或重启IIS. |