一个简单的FSO组件读写文件出现了错误求助!!!!
我要使用FSO组件读写文本内容到网页,IIS提示我程序内部错误,save.asp我已经建立,test.txt我也建好了,并且它们在同一目录下!现在还没有积分,没法给分,希望大家包涵下!下面是原代码,请各位大虾们指点!<html>
<head>
<title>read.asp</title>
</head>
<body>
<%
dim oFSO
const ForReading=1
const ForWriting=2
const ForAppending=8
set oFSO=Server.CreateObject("Scripting.FileSystemObject")
%>
<%
dim sFileName,oFile,sFileContent
sFileName="test.txt"
oFile=oFSO.OpenTextFile(Server.MapPath(sFileName),ForReading)
sFileContent=oFile.ReadAll()
oFile.Close
set oFile=nothing
set oFSO=nothing
%>
<form action="save.asp" method="post">
<textarea rows="10" clos="10"name="FileContent"><%=sFileContent%></textarea>
<input type="submit" value="ok" />
</form>
</body>
</html>