文章导航PC6首页软件下载单机游戏安卓资源苹果资源

pc软件新闻网络操作系统办公工具编程服务器软件评测

安卓新闻资讯应用教程刷机教程安卓游戏攻略tv资讯深度阅读综合安卓评测

苹果ios资讯苹果手机越狱备份教程美化教程ios软件教程mac教程

单机游戏角色扮演即时战略动作射击棋牌游戏体育竞技模拟经营其它游戏游戏工具

网游cf活动dnf活动lol周免英雄lol礼包

手游最新动态手游评测手游活动新游预告手游问答

您的位置:首页网页设计ASP实例 → Asp读取文本文件并显示

Asp读取文本文件并显示

时间:2010/2/5 17:48:00来源:本站整理作者:我要评论(1)

Asp读取文本文件并显示: 

<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下面javascript上传图片限制格式大小方法ie6下面asp.net mvc3 部署应用程序ASP网站安装不成功的解决办法asp的日期转换星座函数快速掌握ASP连接11种数据库的常用语法ASP将access数据导出为excel电子表的方法技巧:用ASP在线创建Word与Excel文档ASP木马密码加密的破解方法

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 迅雷新手完全入门手册 asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法

人气排行 总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码