asp set fso=server.createobject("scripting.filesystemobject") 执行不了
<html><head></head><body><%dimfsosetfso=server.createobject("scripting.filesystemobje...
<html>
<head>
</head>
<body>
<% dim fso
set fso=server.createobject("scripting.filesystemobject")
response.write fso.driveexists("c:")
%>
</body>
</html>
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A01AD)
ActiveX 部件不能创建对象
/8-3.asp, 第 6 行
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
dim fso,ts,counter'声明变量
'建立一个服务器文件存取组件的实例,名称为:FSO
set fso=server.createobject("scripting.filesystemobject")
'建立一个可以打开的文本文件的方法
'这个文本文件只读,如果没有这个文件,就建立
set ts=fso.opentexfile(server.mapptath("counter.txt"),1,true)
'从COUNTER.TXT这个文件里取出值,赋给COUNTER
'判断文本文件是否为空,(如果超出文件尾,就是空)
if not ts.atendofstream then'如果没有到达文本文件夹的结尾说明有数据
counter=ts.readline'给里面的数据赋值给COUNTER
else
counter=1'没有数据，说明是刚刚建立的，那么，给COUNTER个初值
end if
ts.close
set ts=nothing
'如果第一个访问了,COUNTER就有初值,是1
'然后再将1写入COUNTER.TXT这个文本文件就行啦
'现在我要写入文件，那么参数就是2
set ts2=fso.opentextfile(sever.mappth("counter.txt"),2,true)
'写入之前，做个累计即可
counter=counter+1
ts2.write(counter)'写入COUNTER最新的统计值
ts2.close
set ts2=nothing
response.write"目前有"&counter&"个访问者"
set fso=nothing
%>
</body>
</html>
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A01AD)
ActiveX 部件不能创建对象
/9-2.asp, 第 11 行 展开
<head>
</head>
<body>
<% dim fso
set fso=server.createobject("scripting.filesystemobject")
response.write fso.driveexists("c:")
%>
</body>
</html>
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A01AD)
ActiveX 部件不能创建对象
/8-3.asp, 第 6 行
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
dim fso,ts,counter'声明变量
'建立一个服务器文件存取组件的实例,名称为:FSO
set fso=server.createobject("scripting.filesystemobject")
'建立一个可以打开的文本文件的方法
'这个文本文件只读,如果没有这个文件,就建立
set ts=fso.opentexfile(server.mapptath("counter.txt"),1,true)
'从COUNTER.TXT这个文件里取出值,赋给COUNTER
'判断文本文件是否为空,(如果超出文件尾,就是空)
if not ts.atendofstream then'如果没有到达文本文件夹的结尾说明有数据
counter=ts.readline'给里面的数据赋值给COUNTER
else
counter=1'没有数据，说明是刚刚建立的，那么，给COUNTER个初值
end if
ts.close
set ts=nothing
'如果第一个访问了,COUNTER就有初值,是1
'然后再将1写入COUNTER.TXT这个文本文件就行啦
'现在我要写入文件，那么参数就是2
set ts2=fso.opentextfile(sever.mappth("counter.txt"),2,true)
'写入之前，做个累计即可
counter=counter+1
ts2.write(counter)'写入COUNTER最新的统计值
ts2.close
set ts2=nothing
response.write"目前有"&counter&"个访问者"
set fso=nothing
%>
</body>
</html>
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A01AD)
ActiveX 部件不能创建对象
/9-2.asp, 第 11 行 展开
2个回答
展开全部
加我扣扣4479812，你的程序我已调试成功。 这上面说话不太方便。
---------------------------------------------------------------
第一个问题你的FSO可能没注册，你在“开始”---“运行”中输入“regsvr32.exe %windir%/system32/scrrun.dll”然后回车，重新注册一下FSO控件。
第二段程序代码有几个拼写错误：修改后的程序代码如下：
------------------------代码开始-------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
dim fso,ts,counter'声明变量
'建立一个服务器文件存取组件的实例,名称为:FSO
set fso=server.createobject("scripting.filesystemobject")
'建立一个可以打开的文本文件的方法
'这个文本文件只读,如果没有这个文件,就建立
set ts=fso.opentextfile(server.mappath("counter.txt"),1,true)
'从COUNTER.TXT这个文件里取出值,赋给COUNTER
'判断文本文件是否为空,(如果超出文件尾,就是空)
if not ts.atendofstream then'如果没有到达文本文件夹的结尾说明有数据
counter=ts.readline'给里面的数据赋值给COUNTER
else
counter=1'没有数据，说明是刚刚建立的，那么，给COUNTER个初值
end if
ts.close
set ts=nothing
'如果第一个访问了,COUNTER就有初值,是1
'然后再将1写入COUNTER.TXT这个文本文件就行啦
'现在我要写入文件，那么参数就是2
set ts2=fso.opentextfile(server.mappath("counter.txt"),2,true)
'写入之前，做个累计即可
counter=counter+1
ts2.write(counter)'写入COUNTER最新的统计值
ts2.close
set ts2=nothing
response.write"目前有"&counter&"个访问者"
set fso=nothing
%>
</body>
</html>
-------------------代码结束--------------------------------
---------------------------------------------------------------
第一个问题你的FSO可能没注册，你在“开始”---“运行”中输入“regsvr32.exe %windir%/system32/scrrun.dll”然后回车，重新注册一下FSO控件。
第二段程序代码有几个拼写错误：修改后的程序代码如下：
------------------------代码开始-------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
dim fso,ts,counter'声明变量
'建立一个服务器文件存取组件的实例,名称为:FSO
set fso=server.createobject("scripting.filesystemobject")
'建立一个可以打开的文本文件的方法
'这个文本文件只读,如果没有这个文件,就建立
set ts=fso.opentextfile(server.mappath("counter.txt"),1,true)
'从COUNTER.TXT这个文件里取出值,赋给COUNTER
'判断文本文件是否为空,(如果超出文件尾,就是空)
if not ts.atendofstream then'如果没有到达文本文件夹的结尾说明有数据
counter=ts.readline'给里面的数据赋值给COUNTER
else
counter=1'没有数据，说明是刚刚建立的，那么，给COUNTER个初值
end if
ts.close
set ts=nothing
'如果第一个访问了,COUNTER就有初值,是1
'然后再将1写入COUNTER.TXT这个文本文件就行啦
'现在我要写入文件，那么参数就是2
set ts2=fso.opentextfile(server.mappath("counter.txt"),2,true)
'写入之前，做个累计即可
counter=counter+1
ts2.write(counter)'写入COUNTER最新的统计值
ts2.close
set ts2=nothing
response.write"目前有"&counter&"个访问者"
set fso=nothing
%>
</body>
</html>
-------------------代码结束--------------------------------
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
