如何用 PHP 和 ASP 跨站抓取别的站点的页面，今天我们来测试一下 ASP+
是怎么实现 跨站抓取 别的站点的页面
CODE LISTING
<%@ ASSEMBLY NAME="SYSTEM.NET" %>
<%@ IMPORT NAMESPACE="SYSTEM.NET" %>
<%@ IMPORT NAMESPACE="SYSTEM.IO" %>
<SCRIPT LANGUAGE="VB" RUNAT="SERVER">
SUB PAGE_LOAD(SRC AS OBJECT, E AS EVENTARGS)
DIM HTTPWRESP AS HTTPWEBRESPONSE
DIM SR AS STREAMREADER
DIM STRTEMP AS STRING
TEXT1.TEXT = ""
HTTPWREQ = WEBREQUESTFACTORY.CREATE("HTTP://WWW.ASP888.NET")
HTTPWREQ.KEEPALIVE = FALSE
HTTPWRESP = HTTPWREQ.GETRESPONSE()
SR = NEW STREAMREADER(HTTPWRESP.GETRESPONSESTREAM(), ENCODING.ASCII)
TRY
LINE=SR.READLINE()
DO WHILE LINE <> NULL
LINE = SR.READLINE()
LINEENC = SERVER.HTMLENCODE(LINE) & VBCRLF & "<BR>"
TEXT1.TEXT = TEXT1.TEXT & LINEENC
LOOP
CATCH EX AS EXCEPTION
TEXT1.TEXT = "发生错误: " & EX.MESSAGE
END TRY
END SUB
</SCRIPT>
<HTML><HEAD>
<TITLE>跨站</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<H3><FONT FACE="VERDANA">抓来得数据</FONT></H3>
<ASP:TEXTBOX ID="TEXT1" WIDTH="600PX" TEXTMODE="MULTILINE" ROWS="40"
RUNAT="SERVER"/>
</BODY></HTML>
|