<%@ ASSEMBLY NAME="SYSTEM.NET" %>
<%@ IMPORT NAMESPACE="SYSTEM.NET" %>
<%@ IMPORT NAMESPACE="SYSTEM.IO" %>
<SCRIPT LANGUAGE="VB" RUNAT="SERVER">
DIM STRTEMP AS STRING
SUB PAGE_LOAD(SRC AS OBJECT, E AS EVENTARGS)
DIM HTTPWRESP AS HTTPWEBRESPONSE
DIM SR AS STREAMREADER
'DIM STRTEMP AS STRING
DIM BUILD AS NEW STRINGBUILDER
HTTPWREQ = WEBREQUESTFACTORY.CREATE("HTTP://WWW.FUNINSPACE.COM")
HTTPWREQ.KEEPALIVE = FALSE
HTTPWRESP = HTTPWREQ.GETRESPONSE()
SR = NEW STREAMREADER(HTTPWRESP.GETRESPONSESTREAM(), ENCODING.ASCII)
TRY
LINE=SR.READLINE()
LINEENC = SERVER.HTMLENCODE(LINE) & VBCRLF & "<BR>"
BUILD.APPEND (LINEENC)
DO WHILE NOT ISNOTHING(LINE)
LINE = SR.READLINE()
LINEENC = SERVER.HTMLENCODE(LINE) & VBCRLF & "<BR>"
BUILD.APPEND (LINEENC)
LOOP
CATCH EX AS EXCEPTION
PROBLEM.TEXT =EX.MESSAGE
END TRY
LABELSCRAPE.TEXT=BUILD.TOSTRING()
END SUB
</SCRIPT>
<HTML><HEAD>
<TITLE>SCRAPING A WEBSITE</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<H3><FONT FACE="VERDANA">SCRAPED DATA</FONT></H3>
<ASP:LABEL ID=PROBLEM RUNAT="SERVER"/>
<FONT FACE="COURIER NEW" SIZE="2">
<ASP:LABEL ID=LABELSCRAPE RUNAT="SERVER"/>
</FONT>
</BODY></HTML>
|