今天早期按惯例打开论坛出现: 6 U0 e, G, A/ t* j, F+ ^
Microsoft VBScript 运行时错误 错误 ’800a01a8’ # I7 a! w ~+ D: I4 H' x
缺少对象: ’Application(...)’
5 F+ Q- j1 ^8 } S. o) H+ C9 m/bbs/inc/Dv_ClsMain.asp
5 t9 E* o/ h( G5 q# I连接FTP查看文件Dv_ClsMain.asp,属性一切正常,突然想起来昨天往服务器上传过东西,是不是没更新缓存的原因。 % `$ [3 a; ~& |% H
g! q1 c" p% C/ ]
动网论坛清理缓存文件 * V3 j# `7 i( M) [8 M0 y
新建一个文本文档,把以下代码复制进去,然后另存为文件CleanCache.asp。(格式为.asp的,如果您的文件没有显示文件格式,请进行以下设置:打开我的电脑,选择最上面的:工具,然后选择里面的:文件夹选项,之后会弹出一个对话框来,选择:查看,在里面找到:隐藏已知文件类型的扩展名,将它前面的对勾去掉点确定既可.) . N; k+ [/ ^* D4 u
<% '------------------------------------------- ' 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访问,清除缓存即可。
Q& g+ g; \8 u! F$ J7 K; k
- G2 x5 V$ ^6 I- y5 i或者,如果可以连接远程服务器重启IIS服务器即可。 8 c' k" H$ Y) v: g- \
* B& p5 f, b2 V7 p3 l5 C) f刷新访问,问题解决。 ( S6 @. b: M, c$ V, i. \5 v3 P
$ X9 R- @& ~8 m+ z* _总结: 6 f9 D- ?9 D. z7 p
8 L9 E% k; j. E6 \$ ?0 k' ^
原因:缓存文件异常.
- V" e) W ^& {/ D解决方法:更新缓存,把缓存文件删除或重启IIS. |