当前位置：首页 > 资讯 > 技术文档

如何显示一个文本文件？

时间：2020-02-07 09:48 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何显示一个文本文件？

Write（StrING）　　 WriteLine（StrING）　　 WriteBlankLines（LINES）

　　〈html〉　　〈head〉　　〈http-equiv="Content-Type" content="text/html; 　　 charset=gb2312"〉　　〈title〉春风精彩之文本文件显示〈/title〉　　〈/head〉

　　〈body〉　　 <% LANGUAGE = VBScript %> 　　 <% Const ForReading = 1, ForWriting = 2, ForAppending = 3 ' 参数为可选，决定输入/输出模式：①ForReading=1只读；②ForWriting=2 可读写；③ForAppending=3追加. Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 ' 参数为可选，指出以何种格式打开文件：①忽略此参数，以 ASCII格式打开文件；②TristateUseDefault=-2 以系统默认格式打开文件；③TristateTrue=-1 以 Unicode 格式打开文件；④TristateFalse=0 以 ASCII 格式打开文件，当然我们也可用OpenTextFile方法打开文件. 　　　 Dim filename 　　 filename = "test.txt" ' 缺省路径c:\win.

　　 Set fs = CreateObject("Scripting.FileSystemObject") 　　 Set f = fs.GetFile(filename) 　　 Set readf = f.OpenAsTextStream(ForReading,TristateFalse)

　　 s = readf.ReadLine 　　 Do While readf.AtEndOfLine <> True 　　　　 s = readf.ReadLine 　　　　 Response.write s & "" ' 逐行读文件并写屏. 　　 Loop 　　 readf.close 　　 %> 　　 </body></html>

全部评论(0)

上一篇：如何检测字符串出现的次数？
下一篇：如何检测用户第一次访问我的网站并显示友好信息？

资讯排行榜
更多>>