asp读取一个文本文件的内容--asp 编程技术

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

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

Dim write
Dim fileSysObj‚ tf‚ read

' 读取文本read.txt
'获得文件名字
read = "read.txt"
'读取文件的完整路径

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


'新建一个fileSysObj对象

Set fileSysObj = createObject("Scripting.FileSystemObject")

'读取整个文本文件

IF (fileSysObj.FileExists(read)) Then
'如果文件存在，则打来并读取文件
Set tf = filesysobj.OpenTextFile(read‚ 1)
read = tf.ReadLine
tf.Close
ELSE
'如果找不到read.txt文件，则显示下面的信息！
read = "I can't find the file read.txt! So this is my default message."

END IF
%>

'在下面表格中显示read.txt

<div align="center">
<center>
<table border="0" width="40%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#EEEECC"><%=read%>
</td>
</tr>
<tr>
<td width="100%">


<!-- End of the ASP -->

您的姓名： 匿名发送

电子邮件：

评论内容：
不能超过100个字符

所有留言只代表网友个人观点，不代表本站观点。
请各位遵纪守法并注意语言文明。