happyxp 发表于 2011-8-12 09:46:45

<p>今天早期按惯例打开论坛出现:</p>
<p>Microsoft VBScript 运行时错误 <font size="2" face="宋体">错误 ’800a01a8’</font> </p>
<p><font size="2" face="宋体">缺少对象: ’Application(...)’</font><br/></p>
<p><font size="2" face="宋体">/bbs/inc/Dv_ClsMain.asp</font></p>
<p>连接FTP查看文件Dv_ClsMain.asp,属性一切正常,突然想起来昨天往服务器上传过东西,是不是没更新缓存的原因。&nbsp;<wbr></p>
<p>&nbsp;<wbr></p>
<p>动网论坛清理缓存文件</p>
<p>新建一个文本文档,把以下代码复制进去,然后另存为文件CleanCache.asp。(格式为.asp的,如果您的文件没有显示文件格式,请进行以下设置:打开我的电脑,选择最上面的:工具,然后选择里面的:文件夹选项,之后会弹出一个对话框来,选择:查看,在里面找到:隐藏已知文件类型的扩展名,将它前面的对勾去掉点确定既可.)</p>
<p>&lt;%<br/>'-------------------------------------------<br/>' Dvbbs System Update Software Tools<br/>' ClearCache File<br/>' 动网先锋 <br/>' ScriptEditor Fssunwin<br/>' 2005-03-25<br/>'-------------------------------------------<br/>Call RemoveAllCache()<br/><br/>Sub RemoveAllCache()<br/>&nbsp;<wbr>Dim cachelist,i<br/>&nbsp;<wbr>Call InnerHtml("UpdateInfo","&lt;b&gt;开始执行清理当前站点缓存&lt;/b&gt;:")<br/>&nbsp;<wbr>Cachelist=split(GetallCache(),",")<br/>&nbsp;<wbr>If UBound(cachelist)&gt;1 Then<br/>&nbsp;<wbr>&nbsp;<wbr>For i=0 to UBound(cachelist)-1<br/>&nbsp;<wbr>&nbsp;<wbr>&nbsp;<wbr>DelCahe Cachelist(i)<br/>&nbsp;<wbr>&nbsp;<wbr>&nbsp;<wbr>Call InnerHtml("UpdateInfo","更新 &lt;b&gt;"&amp;cachelist(i)&amp;"&lt;/b&gt; 完成")<br/>&nbsp;<wbr>&nbsp;<wbr>Next<br/>&nbsp;<wbr>&nbsp;<wbr>Call InnerHtml("UpdateInfo","更新了"&amp; UBound(cachelist)-1 &amp;"个缓存对象&lt;br&gt;")<br/>&nbsp;<wbr>Else<br/>&nbsp;<wbr>&nbsp;<wbr>Call InnerHtml("UpdateInfo","&lt;b&gt;当前站点全部缓存清理完成。&lt;/b&gt;。")<br/>&nbsp;<wbr>End If<br/>End Sub<br/><br/>Function&nbsp;<wbr> GetallCache()<br/>&nbsp;<wbr>Dim Cacheobj<br/>&nbsp;<wbr>For Each Cacheobj in Application.Contents<br/>&nbsp;<wbr>&nbsp;<wbr>GetallCache = GetallCache &amp; Cacheobj &amp; ","<br/>&nbsp;<wbr>Next<br/>End Function<br/><br/>Sub DelCahe(MyCaheName)<br/>&nbsp;<wbr>Application.Lock<br/>&nbsp;<wbr>Application.Contents.Remove(MyCaheName)<br/>&nbsp;<wbr>Application.unLock<br/>End Sub<br/><br/>Sub InnerHtml(obj,msg)<br/>&nbsp;<wbr>Response.Write "&lt;li&gt;"&amp;msg&amp;"&lt;/li&gt;"<br/>&nbsp;<wbr>Response.Flush<br/>End Sub<br/>%&gt;<br/><br/>然后上传至服务器,通过http://你的域名/CleanCache.asp访问,清除缓存即可。</p>
<p>&nbsp;</p>
<p>或者,如果可以连接远程服务器重启IIS服务器即可。</p>
<p>&nbsp;</p>
<p>刷新访问,问题解决。</p>
<p>&nbsp;</p>
<p>总结:</p>
<p><wbr></p>
<p><font size="2" face="宋体">原因:缓存文件异常.</font></p>
<p><font size="2" face="宋体">解决方法:更新缓存,把缓存文件删除或重启IIS.</font></p>
页: [1]
查看完整版本: 动网论坛Microsoft VBScript 运行时错误 错误 ’800a01a8’ 缺少对象Application(...)的解决方法