如何读取文本文件的内容？_编程10000问

<%
Dim write
Dim fileSysObj, tf, read
read = "intels.txt"
' 读取intels.txt.

read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), "\")) & read
' 检索要读的文件的完整路径.

Set fileSysObj = createObject("Scripting.FileSystemObject")
' 创建一个 FileSystem Object 实例,并把它保存到 fileSysObj 的变量中

IF (fileSysObj.FileExists(read)) Then
Set tf = filesysobj.OpenTextFile(read, 1)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

' 如果文件在,就打开读取.

read = tf.ReadLine
tf.Close
ELSE
read = "噢,找不到这个文件!"
' 如果文件不存在,发出错误提示.
END IF
%>

<html>

<body>

<p align="center">千花飞舞之读取文本内容</p>

 

<div align="center">

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

</table>

</center></div>

</body></html>

时间： 2024-08-04 04:01:16

如何读取文本文件的内容？_编程10000问的相关文章

如何制作一个文本文件编辑器？_编程10000问

newdoc.asp<%@ Language=VBScript %><script id=DebugDirectives runat=server language=javascript>//Set these to true to enable debugging or tracing@set @debug=false@set @trace=false</script><html><head><META name=VI60_default

为什么有的留言簿不需要数据库？_编程10000问

< html> < body> < form action="manage.asp" method="post"> < input type="text" size="10" name="username"> < input type="text" size="10" name="homepage&quo

如何一行行地读取文件？_编程10000问

dim input(30) <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 定义一个数组,大小可随时更改.这里为了显示方便. file_path=Server.Mappath("index.html") Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f

如何用下拉列表显示数据库里的内容？_编程10000问

<%Dim objDC, objRS Set objDC = Server.CreateObject("ADODB.Connection")objDC.ConnectionTimeout = 15objDC.CommandTimeout = 30<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 创建数据库连接 objDC.Open "

如何显示一个文本文件？_编程10000问

 Write(StrING) WriteLine(StrING) WriteBlankLines(LINES)  <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> 〈html〉 〈head〉 〈http-equiv="Content-Type" content="text/html; charset=gb2312"〉 〈title〉

如何决定是否将登录内容保存到Cookie里？_编程10000问

login.htm<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <% @ Language=javascript %><%if (Request.Cookies("SavedLogin").HasKeys) {    Response.Redirect("checklogin.asp?Cookie=1")}%&

如何读取一个.ini文件？_编程10000问

<OBJECT ID="agobjOraSession" RUNAT="Server" PROGID="OracleInProcServer.XOraSession" SCOPE="Application"></OBJECT><script LANGUAGE=VBScript RUNAT=Server>Const CONST_FL_NAME = "\GetAttributeCode

ASP问答集_编程10000问

问:为什么我的记录集的RecordCount值总是返回-1? 答:你应当使用这种模式来打开存取数据库的记录集:   rec.open strSQL,conn,1,1   其中的strSQL是操作数据库的SQL语句;conn是联接数据库的Connection 变量. 问:我在ASP脚本中写了很多的注释,这会不会影响服务器处理ASP文件的速度? 答:经国外技术人员测试,带有过多注释的ASP文件整体性能仅仅会下降0.1%,也就是说基本上不会影响到服务器的性能下降的. 问:我需不需要在每个ASP文件的开

如何创建Word文件？_编程10000问

creatdoc.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <!DOCTYPE html PUBLIC "-//W3C/Dtd html 3.2 Final//EN"><head><title>星河影动之创建Word文件</title><META HTTP-EQUIV="Re