<%
Dim Filex,step
Filex = "aaa.txt" '文本文件相对此处理页面的相对路径
step = 10 '每行显示多少个字,可以自己定义
dim FSO, F, content,l
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Server.MapPath(Filex)) Then
'文件存在,读取内容
Set F = FSO.OpenTextFile(Server.MapPath(Filex), 1)
content = F.ReadAll
Set F=nothing
l = 1
do while l <= len(content)
response.Write(mid(content,l,step)&"<br>")
l = l + step
loop
Else
response.Write("文件不存在")
End If
Set FSO = Nothing
%>
联系客服