Question

200分求帮助:如何使用asp读取txt文件内容,并显示在textarea中

比如有一个文件为1.txt,那么如何使用asp读出来,并且能够显示在下面textarea里呢?
<textarea name='neirong' cols='60' rows='4' id='111'>txt文件中读出的内容</textarea>
问题补充：不要网上拷贝下就给我呀,请帮忙说的仔细些,怎么把txt读出的内容放到textarea中........

Answer 1

<%
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("1.txt")
set txt=fs.opentextfile(file,1,true)

if not txt.atendofstream then
line=txt.readall
response.write "<textarea name='neirong' cols='60' rows='4' id='111'>"&line&"</textarea>"
end if
%>

Answer 2

<%
file=server.mappath("1.txt")'操作同一个目录中的文件
Const ForReading = 1, ForWriting = 2
Dim fso, f,str

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(file, ForReading)
ReadAllTextFile = f.ReadAll'读出所有内容

%>
<textarea name='neirong' cols='60' rows='4' id='111'><%response.write ReadAllTextFile%></textarea>