每次第一次运行出现错误，刷新一下页面就OK了，怎么回事？？

hopefans 2003-12-04 08:53:01

源代码：
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<title></title>
</head>

<body>
<script language="VBScript" runat="server">
Sub Application_OnStart
Set fs = Server.CreateObject("Scripting.FileSystemObject")
counter_file = Server.MapPath("/counter.txt")
Set txt = fs.OpenTextFile( counter_file )
Application("counter") = txt.ReadLine

' 将FileSystemObject对象及counter.txt的实际路径
' 保存Application对象中
Set Application("fs") = fs
Application("counter_file") = counter_file
txt.Close
End Sub

Sub Application_OnEnd
' 将保存在 Application 对象中 FileSystemObject 对象
' 及counter.txt 的实际路径读出来
Set fs = Application("fs")
counter_file = Application("counter_file")

Set txt = fs.CreateTextFile( counter_file, True )
txt.WriteLine(Application("counter"))
txt.Close
End Sub

</script>
</body>
</html>
错误提示：
Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

应用程序对象错误 'ASP 0197 : 80004005'

不允许的对象使用

//global.asa，行21

不能添加 apartment 型的对象到应用程序的实质对象中。
每次第一次浏览时就会出现这些错误提示，但是刷新一下页面，第二次就能正常运行了。不知道是怎么回事？？？

...全文

62 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

hopefans 2003-12-05

打赏
举报

谢谢！

aspczlover 2003-12-04

打赏
举报

GLOBAL.ASA

xxrl 2003-12-04

打赏
举报

其实每一个文件夹底下都可以有一个global.asa文件,看楼主怎么用了
的确这种方法式不提倡的

xxrl 2003-12-04

打赏
举报

猫猫说的对

DeltaCat 2003-12-04

打赏
举报

问题不是上面各位说的，而是出在

Application_OnStart
Application_OnEnd

是默认在GLOBAL.ASA里执行的，对初始化和线程模式都有限制

楼主在普通页面里使用的时候

其实 GLOBAL.ASA 中的也会执行

这样就会出现线程冲突，当刷新的时候，GLOBAL.ASA 已经执行完毕了，有就不会出现错误了

楼主的这种代码方法，是极力不推荐的

fchxx 2003-12-04

打赏
举报

counter.txt是只读的吧！

rena2003tj 2003-12-04

打赏
举报

禁止页面缓存
<%
Response.Buffer=True
Response.ExpiresAbsolute=Now()-1
Response.Expires=0
Response.CacheControl="no-cache"
%>

monkeys 2003-12-04

打赏
举报

你禁止缓存试试看

甘泉123 2003-12-04

打赏
举报

缓存

bingofei 2003-12-04

打赏
举报

楼上的说的应该没错。试试看吧。缓存的问题。或者你在IE->工具->Internet选项->Internet临时文件->设置->每次访问此页时检查，应该也行。

vivisogood 2003-12-04

打赏
举报

最前面加上看看
'**************** 禁止页面缓存 ******************
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
'************************************************