注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

小新之家

心灵的放松地点

 
 
 

日志

 
 

asp远程读取网页源代码  

2009-09-07 11:03:35|  分类: 学习资料 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

'asp远程读取网页源代码

'读取数据

Function GetURL(URL)

Set http=Server.CreateObject("Microsoft.XMLHTTP")

     On Error Resume Next

     http.Open "GET",URL,False

     http.send()

     if Err then

     Err.Clear

     Response.Write("没有找到网页!")

     Response.End()

     End if

     getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")

set http=nothing

GetURL=getHTTPPage

End Function

'转换编码

Function BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

'调用方法

Content=GetURL(http://www.baidu.com)

Response.Write(Content)

  评论这张
 
阅读(586)| 评论(1)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017