曾经想知道如何使用ASP显示文本文档的内容。这是一种简单的阅读方式
从文本文件中
<! - ASP代码的开始---->
<%
'詹姆斯·西摩(James Seymour),http://jamesdot.org
昏暗写
Dim FilesySobj,TF,阅读
'阅读read.txt
'存储信息名称,其中将信息存储到一个称为read的变量中
读取= read.txt
'检索读取文件的全部路径
read = left(server.mappath(request.servervariobles(path_info))),instrrev(server.mappath
(request.servervariobles(path_info)), /)&读取
'创建文件系统对象的实例,然后将其存储到一个称为filesysobj的变量中
set filesysobj = createObject(scripting.filesystemobject)
'检查是否存在读取文件
如果(filesysobj.fileexists(read))
'如果文件存在,请打开它以进行阅读
设置tf = filesysobj.opentextfile(读,1)
读取= tf.readline
tf.close
别的
'如果找不到read.text,请显示默认消息
读=我找不到文件read.txt!因此,这是我的默认消息。
如果结束
%>
'表显示read.txt文件
<div align =中心>
<center>
<table border = 0宽度= 40%cellspacing = 0 cellpadding = 0>
<tr>
<td width = 100%bgcolor =#eeeecc> <b> <%= read%> </b>
</td>
</tr>
<tr>
<td宽度= 100%>
<! - ASP结束 - >
使用上面的代码,单击并将鼠标拖到代码上以突出显示。然后右键单击
突出显示代码,然后单击复制。现在,您可以将其粘贴到代码编辑器中。