How to Read Text file in ASP

sincethe2004 · Feb 5, 2004

Hi, I'm write an asp to include part of a text file into my asp output html,
I use FileSystemObject to get the content of the text file,
but the asp just hang when it runs,
the source code is listed below if anyone could help:
--------------------
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
if (String(Request.QueryString("page")) == "undefined" ||
String(Request.QueryString("page")) == "")
{
Response.Write("Please specify the page data.");
Response.End()
}

var sFile = Server.MapPath(String(Request.QueryString("page")));
var fso = new ActiveXObject("Scripting.FileSystemObject");
if (!fso.FileExists(sFile)) {
Response.Write("No Such File : " + String(Request.QueryString("page")));
//Response.Redirect(".");
Response.End();
}

var f = fs

penTextFile(sFile, 1); //1 -- ForReading
var sFileTxt = f.ReadAll();
f.Close();

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
</head>
<body>
<%= sFileTxt %>
</body>
</html>
--------------------

Steven Burn · Feb 5, 2004

<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim FileObject, SomeFile, InputStream, PrintLine, LineCount
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
SomeFile = Server.MapPath("myfile.ext")
Set InputStream = FileObject.OpenTextFile(SomeFile, ForReading, False)
LineCount = 0
Do While Not InputStream.AtEndOfStream
LineCount = LineCount + 1
PrintLine = InputStream.ReadLine() + "<br>" + PrintLine
'do something with the contents......
Loop
InputStream.Close
Set OutputStream = Nothing
Set FileObject = Nothing
%>

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

Disclaimer:
I know I'm probably wrong, I just like taking part ;o)

sincethe2004 · Feb 6, 2004

thanks for your help.

Steven Burn said:
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim FileObject, SomeFile, InputStream, PrintLine, LineCount
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
SomeFile = Server.MapPath("myfile.ext")
Set InputStream = FileObject.OpenTextFile(SomeFile, ForReading, False)
LineCount = 0
Do While Not InputStream.AtEndOfStream
LineCount = LineCount + 1
PrintLine = InputStream.ReadLine() + "<br>" + PrintLine
'do something with the contents......
Loop
InputStream.Close
Set OutputStream = Nothing
Set FileObject = Nothing
%>

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

Disclaimer:
I know I'm probably wrong, I just like taking part ;o)

In javascript, XML File Create, File Save	2	Jul 17, 2023
How to save JSON Data to a file using fetch() api?	2	Apr 28, 2022
How do I fix this issue in sqaurespace code block?	1	Jul 2, 2024
How to retrive payment result value after secure paytabs payment done in PayTabs payment gateway in asp.net	0	May 11, 2023
I want to Display Excel As HTML In js	2	Feb 24, 2023
How to wrap <td> content .	16	Sep 28, 2023
How to use PDF-lib and how to center each line of texts on the page?	1	Aug 16, 2023
I am trying to make an audio player, how do I get the selected file to be playable?	5	Mar 29, 2022

How to Read Text file in ASP

sincethe2004

Steven Burn

sincethe2004

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads