index16.asp

来自「这是一个压缩包」· ASP 代码 · 共 31 行

ASP
31 行
字号 
<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>

index16.asp - 源码说明

本页面展示了「这是一个压缩包」中的 index16.asp 源码文件，采用 ASP 编程语言编写，共 31 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?