Grab HTML -- inetserver asp components

inetserver asp components : Grab HTML

David Taylor
11/23/2003 8:04:55 AM

I'm looking for a way to grab the HTML behind one of my pages and display it
to the user. The page I'm trying to get the HTML from is an ASP page, so
obviously I'm looking for the post-asp processing results. Basically I want
the same HTML that the user could get if they had done a "View Source" in
their browser on the page.

Does IIS/ASP provide a way to do this natively, or do I have to buy a third
party component?

TIA
David

Ray at <%=sLocation%
11/23/2003 12:40:45 PM

http://www.aspfaq.com/5003

Ray at home

[quoted text, click to view]

el.c. - myLittleTools.net
11/24/2003 11:39:44 AM

Hi

[quoted text, click to view]

You can do it using XMLHTTP component, which is a standard component in
IIS.

hth

--
// myLittleTools.net : leading provider of web-based applications.
// myLittleAdmin : online MS SQL manager
// http://www.mylittletools.net
// webmaster@mylittletools.net

learnhubremthisonly NO[at]SPAM singnet.com.sg
11/29/2003 4:37:42 PM

Use FileSystemObject

On Mon, 24 Nov 2003 11:39:44 +0100, "el.c. - myLittleTools.net"
[quoted text, click to view]

Roland Hall
12/11/2003 4:00:57 AM

[quoted text, click to view]

strURL is what you change and will display any text file. DO NOT pass
strURL as a variable because then anyone can read the source of all of your
ASP files. Also, test before you provide this to anyone. If it has a
connection to a SQL DB and had UID and PW in there, it will be displayed.

I make a separate file for each one I want to display. It is this file with
the strURL modified and I label it the same as the file with a prefix:
Ex. source_somefile.asp

<%@ Language=VBScript %>
<%
Dim strURL
strURL = "/somefolder/somefile.asp"
Dim strDir, strFileName
strDir = Request.ServerVariables("APPL_PHYSICAL_PATH")
strFileName = Replace(strURL,"/","\")
strFileName = strDir & strFileName

Const ForReading = 1
Dim objFSO, objTextStream
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(strFileName, ForReading)

Response.Write "<HTML><BODY>"
Response.Write "<XMP>" & objTextStream.ReadAll & ""
Response.Write ""
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
%>

--
Roland

This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose.

Got something to say? Click here to post a reply to this thread.

Don't see what you're looking for? Try a search.

View other messages about inetserver asp components

View Other Months
June 2003
July 2003
August 2003
September 2003
October 2003
November 2003
December 2003
January 2004
February 2004
March 2004
April 2004
May 2004
June 2004
July 2004
August 2004
September 2004
October 2004
November 2004
December 2004
January 2005
February 2005
March 2005
April 2005
May 2005
June 2005
July 2005
August 2005
September 2005
October 2005
November 2005
December 2005
January 2006
February 2006
March 2006
April 2006
May 2006
June 2006
July 2006
August 2006
September 2006
October 2006
November 2006
December 2006
January 2007
February 2007
March 2007
April 2007
May 2007
June 2007
July 2007
August 2007
September 2007

home · blog · groups

Questions? Comments? Contact the dn