如何显示一个文本文件？

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)

相关推荐

  • 如何显示一个文本文件？

    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,

  • BootStrap点击下拉菜单项后显示一个新的输入框实现代码

    我的页面上有一个下拉菜单,页面上有一个文本输入框,一个图像上传框,文本输入框默认是显示的,而图片上传框是隐藏的. 假设下拉菜单有两项A和B,我想实现这样的效果:点击A时显示文本输入框,隐藏图像输入框:点击B时显示图像上传框,隐藏文本输入框,请问怎么实现? 用firebug调试的时候发现只有在加载html页面的时候几个click函数才会执行,页面加载好后点击下拉菜单项,这些断点都不会被执行,求解是怎么回事. 我的js代码如下(定义在<head>部分中): <script type=&quo

  • 用vbscript实现在消息框中显示一个超链接

    问: 嗨,Scripting Guy!可以在消息框中包含指向某个 Web 页面的超链接吗? -- CB 答: 嗨,CB.听起来您好像想要向用户显示一个消息框,并且希望在消息框中包含一个超链接,以便用户可以点击这个链接,从而获得更多信息.例如,假设某个用户试图访问一些资源,但被拒绝了.这种情况下,您可以弹出一个消息框,告诉用户访问被拒绝,然后向他们提供一个链接,这个链接指向的页面会告诉用户访问所需的权限.一般说来,这种办法会比简单地说"访问被拒绝"好得多. 那么,是否可以用脚本编写语言实

  • Java中Socket下载一个文本文件

    废话不多说了,直接给大家贴代码了,具体代码如下所示: package com.lanqiao.demo2; import java.io.BufferedInputStream; import java.io.FileInputStream; import java.io.IOException; import java.io.OutputStream; import java.net.ServerSocket; import java.net.Socket; /** * @author * @

  • 解决py2exe打包后,总是多显示一个DOS黑色窗口的问题

    setup.py: #!/usr/bin/env python # coding=utf-8 from distutils.core import setup import py2exe setup( description = 'software', version = '0.0.1', console=[{"script": "main.py", "icon_resources": [(1, "icon.ico")]}],

  • mysql分组后合并显示一个字段的多条数据方式

    mysql分组后合并显示一个字段的多条数据方式

    目录 mysql分组合并显示一个字段多条数据 表中数据如下 mysql多字段分组 mysql多字段分组 GROUP BY与ORDER BY一起使用(分组排序) 使用having过滤分组 mysql分组合并显示一个字段多条数据 首先我们有一张学生兴趣表(student_hobby),字段包括主键(id).姓名(name).兴趣(hobby) 表中数据如下 id name hobby 0 小明 篮球 1 小明 跑步 2 小华 读书 然后我们想让他显示成如下效果. name hobbies 小明 篮球

  • JavaScript 显示一个倒计时广告牌的实现示例

    JavaScript 显示一个倒计时广告牌的实现示例

    本文主要介绍了JavaScript 显示一个倒计时广告牌的实现示例,分享给大家,具体如下: <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="vi

  • java获取一个文本文件的编码(格式)信息

    前言: 文本文件是我们在windows平台下常用的一种文件格式, 这种格式会随着操作系统的语言不同,而出现其默认的编码不同 那么如何使用程序获取“文本文件”的编码方式呢? 文件编码的格式决定了文件可存储的字符类型,所以得到文件的类型至关重要 下文笔者讲述获取一个文本文件的格式信息的方法分享,如下所示: 现思路: 通过获取文件流的前3个字节 判断其值的方式,即可获取文本文件的编码方式 例: package com.java265.other; import java.io.File; import

  • IIS多个协议 显示一个问号问题的修改方法

    IIS左侧列表中,网站标题上多了个问号,鼠标移上去会提示“多个协议”.虽然对网站使用没有什么影响,但多个问号就是不顺眼,所以这里给大家分享一下如何解决的. 多个协议 IIS多个协议修复方法 右键站点>>编辑绑定>>删除不需要的绑定即可 删除前: 删除后: 这样就可以了 到此这篇关于IIS多个协议 显示一个问号问题的修改方法的文章就介绍到这了,更多相关IIS多个协议内容请搜索我们以前的文章或继续浏览下面的相关文章希望大家以后多多支持我们!

  • 用vbscript实现从后到前阅读一个文本文件

    问: 嗨,Scripting Guy!我有一个日志文件,新的数据总是被添加到文件的底部:也就是说最近的条目总是位于文件的末尾处.我想从最后一行开始读取内容,直到文件的第一行,但是我不知道怎样实现. -- MB, Milwaukee, WI 答: 您好,MB.FileSystemObject 非常有用,但是它也具有它自己的一些限制:主要限制之一便是它只能从前向后读取文件内容.和 Tail 工具不同,您不能要求 FileSystemObject 从后向前读取文件.(好,我们假定您要求这么做,但是它肯

随机推荐