ASP读取显示TXT文件内容
2009-07-23 18:12
741 查看
ASP读取显示TXT文件内容
<html><head><title>基于文本的消息发布系统</title></head><body>
<table border="1" cellspacing="0" cellpadding="1" bordercolorlight="#dfdfdf" bordercolordark="#ffffff" 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>
<td><a href='<%=MessageUrl%>'><%=Messagetitle%></a></td>
<td><%=ttime%></td>
</tr>
<!--生成表格,把消息显示出来-->
<%
Loop
Fp.close
Set fp=Nothing
Set fso=Nothing
%>
</table>
</body></html>
简单的方法
<%
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:读取文件中的所有数据
相关文章推荐
- ASP读取显示TXT文件内容
- ASP读取显示TXT文件内容
- 用ASP读取显示TXT文件内容的代码
- ASP读取显示TXT文件内容
- 【ASP.NET 进阶】定时执行任务实现 (定时读取和修改txt文件数字内容,无刷新显示结果)
- jsp读取txt文件后,将txt文件内容分页显示
- asp.net mvc中读取input file上传的txt文件内容,但不需要把文件保存到服务器上
- Asp.Net读取并显示Excel文件中的内容(OleDb方式)
- asp.net读取txt文件内容
- asp 读取txt文件内容
- 使用Robot从txt文件中读取不同行的内容并显示
- asp.net 上传XML,txt 直接读取文件内容
- java读取excel、txt 文件内容,传到、显示到另一个页面的文本框里面。
- 使用Robot从txt文件中读取不同行的内容并显示(续)
- java读取excel、txt 文件内容,传到、显示到另一个页面的文本框里面。
- asp.net读取txt文件内容
- java 读取显示txt内容(Swing)
- UltraEdit中Python语法高亮显示:将下面内容复制到wordfile.txt文件中
- C# 如何在textbox里显示txt文件的内容