今天早期按惯例打开论坛出现:
) p- E9 B0 ?6 rMicrosoft VBScript 运行时错误 错误 ’800a01a8’ # ^" t1 t% {1 L# x( h, S- b* ^
缺少对象: ’Application(...)’
$ ?4 ]! t W( @* V; K/bbs/inc/Dv_ClsMain.asp * m' G y: i0 X" o2 p! L
连接FTP查看文件Dv_ClsMain.asp,属性一切正常,突然想起来昨天往服务器上传过东西,是不是没更新缓存的原因。 . [9 A* D/ C4 c( D+ M( X% x: b
6 `; Y, O2 O$ u8 T+ m# w动网论坛清理缓存文件
# w6 E q7 F" k+ e. M% L2 X) N0 S8 ]6 _新建一个文本文档,把以下代码复制进去,然后另存为文件CleanCache.asp。(格式为.asp的,如果您的文件没有显示文件格式,请进行以下设置:打开我的电脑,选择最上面的:工具,然后选择里面的:文件夹选项,之后会弹出一个对话框来,选择:查看,在里面找到:隐藏已知文件类型的扩展名,将它前面的对勾去掉点确定既可.) " e) O- i% r( d( L- m# ^5 a
<% '------------------------------------------- ' 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访问,清除缓存即可。 9 y/ s, t8 s0 ^% F, [
$ [7 q' s$ K9 U$ H- t或者,如果可以连接远程服务器重启IIS服务器即可。
! K& u8 N/ H' b# S! N' s; y . J5 }1 f3 {, D. d: h- n
刷新访问,问题解决。
3 z2 U" X: v- E: x' L3 A$ T 9 K' C/ p' W, a! d1 v1 q
总结:
' G; u5 s- a" }% c1 z- A 0 K2 |& C4 h& H. H! S
原因:缓存文件异常. ( h/ I n! [( x4 ^
解决方法:更新缓存,把缓存文件删除或重启IIS. |