我抄书上的,怎么不对?
hfyou 2000-08-09 11:54:00 这是《Active server pages & web 数据库》书中的计数器例子,基中的global.asa文件是这样的:
---global.asa---
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
sub Application_OnStart
set fs=Server.CreateObject("Scripting.FileSystemObject")
countfile=server.MapPath("/counter/count.txt")
set txt=fs.OpenTextFile(countfile)
Application("counter")=txt.ReadLine
txt.Close
set Application("fs")=fs
Application("countfile")=countfile
end sub
sub Application_OnEnd
set fs=Application("fs")
countfile=Application("countfile")
set txt=fs.CreatTextFile(countfile,true)
txt.WriteLine(Application("counter"))
txt.close
end sub
</SCRIPT>
但是报错, 说是行9 不能添加 apartment 型的对象到应用程序的实质对象中。
请大家帮忙改正。谢谢