Question

请问如何使用asp读取txt文件内容,并显示在textarea中呢

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

Answer 1

whichfile=server.mappath("txt.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(whichfile,1)
dim rline1=""
While Not txt.AtEndOfStream
rline =txt.ReadLine'读取一行
rline1=rline1&rline

<textarea name='neirong' cols='60' rows='4' id='111' value='<%=rline1%>'>

Answer 2

whichfile=server.mappath("txt.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(whichfile,1)
While Not txt.AtEndOfStream
rline =txt.ReadLine'读取一行

....

下面他就循环读了呀、看你怎么处理读出来的内容了.
是放页面上?还是弄个textbox控件?
还是怎么样、然后自己处理下吧.

Answer 3

whichfile=server.mappath("txt.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(whichfile,1)
TextStr=txt.readall() '读取文本文件中所有内容
set txt=nothing
set fso=nothing

<textarea name='neirong' cols='60' rows='4' id='111'><%=TextStr%></textarea>

Answer 4

<%
'文件内容读取.
Function LoadFile(ByVal File)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile Server.MapPath(File)
If Err.Number<>0 Then
Response.Write "<div align='center'>文件<font color='#ff0000'>"&File&"</font>无法被打开，请检查是否存在!</font></div>"
Err.Clear
Response.End
End If
.Charset = "GB2312"
.Position = 2
LoadFile = .ReadText
.Close
End With
Set objStream = Nothing
End Function

TextStr = LoadFile("1.txt")
%>

<textarea name='neirong' cols='60' rows='4' id='111'><%=TextStr%></textarea>