|
今天早期按惯例打开论坛出现:
$ G- }7 y" d. JMicrosoft VBScript 运行时错误 错误 ’800a01a8’
# `. M L# z+ F s缺少对象: ’Application(...)’
5 S, g4 G) K: _1 |* A1 }1 |/bbs/inc/Dv_ClsMain.asp
: R* A" a a9 J' J0 z# U连接FTP查看文件Dv_ClsMain.asp,属性一切正常,突然想起来昨天往服务器上传过东西,是不是没更新缓存的原因。
6 q6 x7 P6 ^4 a+ X+ n1 ~
6 g4 h/ u% `- Z0 H' e. S `动网论坛清理缓存文件 / n! L7 p! J' E
新建一个文本文档,把以下代码复制进去,然后另存为文件CleanCache.asp。(格式为.asp的,如果您的文件没有显示文件格式,请进行以下设置:打开我的电脑,选择最上面的:工具,然后选择里面的:文件夹选项,之后会弹出一个对话框来,选择:查看,在里面找到:隐藏已知文件类型的扩展名,将它前面的对勾去掉点确定既可.)
) G* m) H3 @0 ` w7 m$ ?- a, n<% '------------------------------------------- ' 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访问,清除缓存即可。
6 f, x) c: S* C/ S" H# l 6 P4 m* K& Z4 p2 e+ q: U
或者,如果可以连接远程服务器重启IIS服务器即可。 ' L0 _) a3 j" ?+ Y7 `
0 M# C! K; T* A- y+ G/ z4 d8 Y+ X, C
刷新访问,问题解决。
7 e+ K5 o" d- x. `5 A4 A7 l
9 u, @2 t) Y1 w# s总结:
/ i! T4 `1 W4 f" D
1 v# n2 y! u7 p* r7 s* o, N$ Z/ V7 {原因:缓存文件异常.
$ Q- f4 ~% [7 T- a0 D0 h解决方法:更新缓存,把缓存文件删除或重启IIS. |