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"/>
