有关文本操作的请教！

[cxx]

<%
testfile=Server.Mappath("testfile.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
set a=fs.opentextfile(testfile,1,false,false)
num=a.readline
a.close

testfile=Server.Mappath("testfile.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
set b=fs.opentextfile(testfile,true,false)
application.lock
num=num+1
b.writeline(num)
application.unlock
b.close



response.write(num)
%>


出错信息
HTTP 500 - 内部服务器错误
Internet Explorer

[fdzxb]

IE设置：工具>>Internet选项>>高级>>显示友好HTTP错误　选项不选中

这样能够看到详细的出错信息！

[lazywolf]

set b=fs.opentextfile(testfile,true,false)改为
set b=fs.opentextfile(testfile,8,false)

[cxx]

set b=fs.opentextfile(testfile,true,false)改为
set b=fs.createtextfile(testfile,true,false)

好了