动网论坛Microsoft VBScript 运行时错误 错误 ’800a01a8’ 缺少对象Application(...)的解决方法

happyxp

今天早期按惯例打开论坛出现：

$ G- }7 y" d. J

Microsoft 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 `

动网论坛清理缓存文件

新建一个文本文档，把以下代码复制进去，然后另存为文件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

 

或者，如果可以连接远程服务器重启IIS服务器即可。

 

刷新访问，问题解决。

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.