繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP.NET实现HTTP方式获取功能
- ASP
- ASP漏洞集-跨站Script攻击和防范
- 利用JSP的思想来做ASP
- asp的19个基本技巧
- 自定义aspnet_client的位置
- 编码的风格和如何设置调试代码
- RS.GETROWS使用详解
- Adodb.Stream 组件的使用说明
- 在ASP.Net中实现RSA加密
- 关于水晶报表10 的字报表数据填充和显示
- DataList里套DataGrid，DataBind
- ASP.NET验证控件详解
- ASP网站漏洞解析及黑客入侵防范方法
- 产生一个密码，并记录到数据库，然后发送给用户
- ASP内置对象 Request对象 详解
- ASP 中 DateDiff 函数详解
- 几个常用的小函数
- 在记录集中加入判断使之灵活
- 会员系统“找回密码”的制作方法
- 一个分页代码例子
- 常见的错误及其解决方法
ASP.NET实现HTTP方式获取功能
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 83 ::
收藏到网摘: n/a
<%@ 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>
评论 (0) All
