今天早期按惯例打开论坛出现:
4 ?, n5 u+ M6 aMicrosoft VBScript 运行时错误 错误 ’800a01a8’
& r) K% T# X, c& v( w缺少对象: ’Application(...)’
3 Q* ?" b' D4 \) w5 Y: R* B/bbs/inc/Dv_ClsMain.asp 8 f* e a& W7 o
连接FTP查看文件Dv_ClsMain.asp,属性一切正常,突然想起来昨天往服务器上传过东西,是不是没更新缓存的原因。 - h6 x, i9 f" G) U& B7 I
- V" M2 j8 d- V1 u
动网论坛清理缓存文件 % H0 v: v, r, }) E& H
新建一个文本文档,把以下代码复制进去,然后另存为文件CleanCache.asp。(格式为.asp的,如果您的文件没有显示文件格式,请进行以下设置:打开我的电脑,选择最上面的:工具,然后选择里面的:文件夹选项,之后会弹出一个对话框来,选择:查看,在里面找到:隐藏已知文件类型的扩展名,将它前面的对勾去掉点确定既可.)
$ U7 U- N+ U3 X, j<% '------------------------------------------- ' 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访问,清除缓存即可。 7 p. n9 |- w+ {- ~( o
+ n& g( ?3 S8 Z* @+ k& `' t8 \1 A
或者,如果可以连接远程服务器重启IIS服务器即可。 1 y1 L, S* U, u% e- i+ D
9 i- t) Z' d$ V8 u$ N刷新访问,问题解决。
* p4 D' F4 v7 g
/ g3 b# q8 J5 Q0 q7 `总结: , B0 e2 S) n- g+ \& S9 A P: E8 }
/ S% F; U( k, Y! j/ A( y) \( s原因:缓存文件异常.
% G z7 s, ]: e, r- n+ R7 U& O0 _解决方法:更新缓存,把缓存文件删除或重启IIS. |