搜索
查看: 8355|回复: 0

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

[复制链接]
发表于 2011-8-12 09:46:45 | 显示全部楼层 |阅读模式

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

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.

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

热议作品
精华帖子排行
精彩推荐

虾皮社区,成立十年了!

站长自己也搞不懂想做个什么,反正就是一直在努力的做!

Copyright © 2007-2019 xp6.org Powered by Discuz

QQ|Archiver|手机版|小黑屋|虾皮社区 ( 鲁ICP备13006813号-1 ) 鲁公网安备 37021102000261号 |网站地图
返回顶部 返回列表