asp.nettxt2html,ASP读取显示TXT文件内容

ASP读取显示TXT文件内容

作者:admin 日期:2013-03-07

字体大小: 小 中 大

基于文本的消息发布系统

最新消息

Set fso=Server.CreateObject("ing.FileSystemObject")

Set fp=fso.OpenTextFile(Server.MapPath("message.txt"))

'打开message.txt

Do While fp.AtEndOfStream<>true

s=fp.ReadLine '读取一条数据

p=Instr(s,"*") '取得*号的位置

Messagetitle=Mid(s,1,p-1) '取得*号前边的字符串(消息标题)

s=Mid(s,p+1,Len(s)-p) '设变量s为*号后边的字符串

p=Instr(s,"*")

MessageUrl=Mid(s,1,p-1) '取得*号后边的字符串(链接地址)

s=Mid(s,p+1,Len(s)-p)

ttime=s '设定消息发布时间ttime为s

%>

'>

Loop

Fp.close

Set fp=Nothing

Set fso=Nothing

%>

简单的方法

dim fso,f

set fso=server.CreateObject("Scripting.FileSystemObject")

Set f =  fso.OpenTextFile(Server.MapPath("1.txt"),1)

Do  While  Not  f.AtEndOfStream

response.write f.readline

loop

f.close

set f=nothing

set fso=nothing

%>

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.readline

response.write line & "
"

end if

%>

'ReadLine：从文件中读取一行数据

'Read(N)：从文件中读取N个字节的数据

'ReadAll：读取文件中的所有数

方法二、

Sub ReadFiles()

Dim objFSO

Dim objText

Dim ObjFile

Dim strTextContent

Dim objDrive

'创建一个文件操作对象实例

Set objFSO = CreateObject("Scripting.FileSystemObject")

'要打开的文件

ObjFile = "1.txt"

ObjFile=server.mappath(ObjFile)

Response.write ObjFile&"
" '输出文件完整路径及文件名

'Response.end

IF objFSO.FileExists(ObjFile) then

'打开TXT文件，并赋值给变量

Set objText = objFSO.OpenTextFile(ObjFile,1)

'strTextContent = objText.ReadAll()

'循环读取数据

i=0

redim a(0)'定义数组

'While not objText.AtEndOfStream '到文件的末尾

While not objText.AtEndOfLine '到一行的末尾

strTextContent = objText.ReadLine()

a(i)=strTextContent'将每行的值存入数组元素

b=split(a(i),"=")'将每行的值存入新数组元素，以=为分隔符

maxBound=Ubound(b)'获取每一行分割为多少个部分

for j=0 to maxBound

if j

Response.write(b(j)) &" "

else

Response.write(b(j)) &"
"

end if

next

'response.write a(i)&"_"&"
"

wend

i=i+1

Call objText.Close

else

response.write "文件不存在"

response.end

end if

End Sub

'调用过程，读取文件

readfiles()

%>

[本日志由 admin 于 2013-03-06 02:20 PM 编辑]

文章来自: 本站原创

引用通告地址: /trackback.asp?tbID=11

Tags: ASP，TXT内容

评论: 1 | 引用: 142 | 查看次数: 12989