拳皇帅气图片:如何写入数据到文本文件(ASP)能够读出 不能写入(计数器)

来源:百度文库 编辑:高校问答 时间:2024/05/07 04:38:51
<%@LANGUAGE="VBSCRIPT"runat=server CODEPAGE="936"%>
<html>
<head>
<title>ASP图形计数器</title>
</head>

<body>
<%
Session("visitors")=""
If Request.cookies("count1")="" Then '//防刷
file=server.mappath("counter.txt")
Set files = CreateObject("Scripting.FileSystemObject")'使用方法CreateObject定义对象FileSystemObject
Set openfile = files.OpenTextFile(file,1)
count1=openfile.readline'其中openfile.ReadLine为从文件中读取的一行数据
count1= count1 + 1

openfile.close
end if
response.write(count1)
%>
<%file=server.mappath("counter.txt")

Set txt = files.OpenTextFile(file,2) '打开为只写文件
'Data为要写入文件的数据变量
txt.write(count1)
txt.close
%>
</body>
</html>
运行结果显示:1
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

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

没有权限

/hongye/yehong/counter.asp,行23
记事本里初始值为0
主要问题是不能写入
仍然不行 我已在IIS里把权限改为读取和写入了 但还是不行
iis 的权限也有写入的权限 我打勾了

可能是你这个文本文件没有写入的权限,在属性-安全-user的权限设置为完全控制

没有写权限
在iis里把你的目录-右键-属性-然后把写入的复选框勾上

没有给iis用户写的权限