1个回答
展开全部
<%
dim ss(20)
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("qq.txt")
set txt=fs.opentextfile(file,1,true)
for n=1 to 20 ‘读取前二十行
if txt.atendofstream then exit for
'do not txt.atendofstream
line=txt.readline
'a=instr(line,"-")
's=left(line,a)
response.write line & "<br>"
'loop
next
%>
'ReadLine:从文件中读取一行数据
'Read(N):从文件中读取N个字节的数据
'ReadAll:读取文件中的所有数据
dim ss(20)
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("qq.txt")
set txt=fs.opentextfile(file,1,true)
for n=1 to 20 ‘读取前二十行
if txt.atendofstream then exit for
'do not txt.atendofstream
line=txt.readline
'a=instr(line,"-")
's=left(line,a)
response.write line & "<br>"
'loop
next
%>
'ReadLine:从文件中读取一行数据
'Read(N):从文件中读取N个字节的数据
'ReadAll:读取文件中的所有数据
更多追问追答
追问
我新建一个asp文件,直接加这个就可以?,是显示到网页上的吗?
追答
是的。。。
file=server.mappath("qq.txt")
这个QQ。txt就是你的文本文件。。
改成你自己需要的。也可以直接就命名为QQ。txt。。
需要和这个ASP放在一起,你试下哈。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询