内容载入中...
很多朋友问到这样的问题,这里提供代码,该代码以只读方式打开,并可以显示行号,如果想修改的话,只需把打开时的属性改一下即可
<%
strtextfile = server.mappath("your_file.txt") '取得文本文件的绝对路径
set objfso = server.createobject("scripting.filesystemobject") '创建一个FSO对象的实例
%>
<textarea name="txtcontent" rows=10 cols=50 wrap="physical">
<%
set objstream = objfso.opentextfile(strtextfile,foreading) '以只读方式打开文本文件
do while not objstream.atendofstream '如果当前指针不在objstream流末尾
intlineNum = objstream.line '获取文本文件的行数
strlinenum = right("00" & cstr(intlinenum,3)) '对行数进行格式化
strlinetext = objstream.readline '逐行读取文本内容
response.write strlinenum &":" & strlinetext & vbCrLf '以行号:文本内容这种形式输出+回车换行
loop
objstream.close '关闭stream对象
%>
</textarea>
