您正在使用 IPV4 [44.211.31.134] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】2核2G4M云服务器新老同享99元/年,续费同价      
[公益] 地球是我家,绿化靠大家      
2024年 七夕节 028
2025年 高 考 329
2025年 元 旦 172
2025年 春 节 200
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
使用ASP读出文本文件并显示
内容摘要: 使用ASP读出文本文件并显示      读取一个文本文件并写出 Sun Aug 2 06:34:07 1998      (注:textStream有关写的METHOD      Write(STRING)      WriteLine(STRING)      WriteBlankLines(LINES)      )      这是一个完整的程序    ......
使用ASP读出文本文件并显示

读取一个文本文件并写出 Sun Aug 2 06:34:07 1998

(注:textStream有关写的METHOD

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 = 8

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Dim filename

filename = "test.txt" ’缺省相对路径是c:winnt

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(filename)

Set readf = f.OpenAsTextStream(ForReading,TristateFalse)

’第一个参数可选。输入/输出模式,是下列三个常数之一:

’ ForReading=1只读、ForWriting=2 可读写或 ForAppending=3追加

’第二个参数也为可选。三个 Tristate 值之一,

’ 指出以何种格式打开文件。忽略此参数,则文件以 ASCII

’格式打开。 TristateUseDefault=-2 以系统默认格式打开文件、

’TristateTrue=-1 以 Unicode 格式打开文件或TristateFalse=0

’以 ASCII 格式打开文件。

’也可用OpenTextFile方法打开文件

s = readf.ReadLine

Do While readf.AtEndOfLine <> True

s = readf.ReadLine

Response.write s & "" ’逐行读文件并写出

Loop

readf.close

% >

< /body>

< /html>

这样就可以将文本文件读出并显示了。

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:ASP中双引号单引号和&连接符使用技巧

 

下一篇:asp显示文件夹属性的函数

发布日期:2021/6/15
手机扫二维码直达本页
发布时间:12:34:56
点  击:11
录  入:齐天大圣
相关文章
Baidu
YiJiaCMS 7.5.1 build240527(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,速盾网络提供加速防护
运行时间载入中.....