怎样读取一个文本文件的内容?


Ever want to know how to display the contents of a text document using ASP. Here is a easy way to read
from a text file

<!--Start of ASP Code---->

<%
'by James Seymour, http://jamesdot.org

Dim write
Dim fileSysObj, tf, read

' Read the read.txt

' Store the file name where the Information is stored into a variable called read

read = "read.txt"

' Retrieve the fullpath of the read file

read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath
(Request.ServerVariables("PATH_INFO")), "\")) & read

' Create an instance of FileSystem Object and store it into a variable called fileSysObj

Set fileSysObj = createObject("Scripting.FileSystemObject")

' Check whether the read file exists

IF (fileSysObj.FileExists(read)) Then
' if the file exists, then open it for reading
Set tf = filesysobj.OpenTextFile(read, 1)
read = tf.ReadLine
tf.Close
ELSE
' if you can't find read.text, display default message
read = "I can't find the file read.txt! So this is my default message."

END IF
%>


' table the displays the read.txt file
<div align="center">
<center>
<table border="0" width="40%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#EEEECC"><B><%=read%></B>
</td>
</tr>
<tr>
<td width="100%">


<!-- End of the ASP -->


use the code above, click and drag your mouse over the code to highlight it. Then right click on the
highlighted code and click "Copy." Now you may paste it into your code editor.



相关阅读:
javascript addBookmark 加入收藏 多浏览器兼容
CSS教程:使用ul进行网页的多列布局
用Javascript数组处理多个字符串的连接问题
Windows XP手动安装IPv6协议的方法
网友原创的PHP模板类代码
ajax 乱码的一种解决方法
HTML基础教程:网页的动态、多媒体效果
REPLICATE 以指定的次数重复字符表达式
DIV+CSS技术适合中国中小网站吗
HTML和CSS在Flash中的应用
Linux中文化之RH7.1汉化详细过程
3种Linux测试工具使用介绍
rails制作rss feed代码
多图幻灯Wipe擦洗效果
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4