主页 > 知识库 > 怎样读取一个文本文件的内容?

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

热门标签:电子围栏 团购网站 服务器配置 Mysql连接数设置 Linux服务器 科大讯飞语音识别系统 银行业务 阿里云
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.

标签:蚌埠 枣庄 萍乡 衢州 江苏 衡水 大理 广元

巨人网络通讯声明:本文标题《怎样读取一个文本文件的内容?》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266