|
|
主题: 新手,代码错在哪
|
杨子
职务：普通成员
等级：1
金币：0.0
发贴：17
|
#12004/1/2 11:26:17
<%
If not request.Form("NextLine")="" then
Set mFileObject=Server.CreateObject("Scripting.FileSystemobject")
set mFile=mFileObject.OpenTextFile(Server.MapPath("\ocean\Story.txt"),8,True)
测试说第四句错,没有权限,也就是写入数据出错,请高手点拔,谢谢.
mFile.WriteLine(Request.Form("NextLine"))
mFile.Close
end if
%>
<Html>
<Head>
<Title>
在线故事接龙
</Title>
</Head>
<Body>
<Center><h2>在线故事接龙</h2></Center>
<hr>
<%
Set mFileObject=Server.CreateObject("Scripting.FileSystemObject")
set mFile=mFileObject.OpenTextFile(Server.MapPath("\ocean\Story.txt"))
while not mFile.AtEndOfStream
Response.Write " " & mFile.ReadLine
wend
mFile.close
%>
<hr>
<h3>请输入这个故事的新行:</h3>
<form method="post" action="story.asp">
<input name="NextLine" type=text size=70>
<input type=submit value=确认添加本句>
</form>
</html>
|
yukous
职务：普通成员
等级：1
金币：0.0
发贴：76
|
#22004/1/2 13:40:54
页面怎么提示你也说清楚点呀
可能是你的数据库是只读属性的
页面怎么报错的???
|
yukous
职务：普通成员
等级：1
金币：0.0
发贴：76
|
#32004/1/2 13:47:48
打错了，是系统虚拟目录里的文件夹的属性。如果本地调试的系统是XP
请看：www.5d.cn/bbs/newsdetail.asp?id=774242&posts=currentposts
|
悲伤的设计
职务：普通成员
等级：1
金币：1.0
发贴：158
|
#42004/1/3 21:24:12
虽然没看代码,但看出错信息应该是代码没错的,错的是,空间支持不支持FSO,及磁盘权限设置
|
杨子
职务：普通成员
等级：1
金币：0.0
发贴：17
|
#52004/1/4 9:51:52
感谢楼上几位大侠的点拔,因刚学ASP,所以有些问题一时不懂,此问题是在文件设置为只读,去掉只读属性后问题解决,非常感谢,
|
