ASP读取显示TXT文件内容

最新推荐文章于 2020-12-25 23:51:25 发布

glslian

最新推荐文章于 2020-12-25 23:51:25 发布

阅读量1.4k

点赞数 3

本文链接：https://blog.csdn.net/glslian/article/details/7656222

版权

asp 读取txt 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

<html><head><title>基于文本的消息发布系统</title></head>
<body>
<table border="1" cellspacing="0" cellpadding="1" bordercolorlight="#dfdfdf" bordercolordark="#ffffff" style="text-align:center"]>
<tr bgcolor="#cccce6">
<td algin="center" colspan="2">最新消息</td>
</tr>
<%
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
%>
<tr>

简单的方法
<%
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 & "<br>"
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"