|
|
asp获取网页源码 |
作者:admin 发表时间:2014/9/23 人气: |
|
|
<% ================================================== '函数名:GetHttpPage '作 用:获取网页源码 '参 数:HttpUrl ------网页地址 '================================================== Function GetHttpPage(HttpUrl) If IsNull(HttpUrl)=True Or Len(HttpUrl)<5 Then GetHttpPage="$False$" Exit Function End If Dim Http Set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",HttpUrl,False Http.Send() If Http.Readystate<>4 then Set Http=Nothing GetHttpPage="False" Exit function End if GetHTTPPage=BytesToBstr(Http.responseBody,"GB2312") Set Http=Nothing If Err.number<>0 then Err.Clear End If End Function %>
文章来源:www.sensheng.net.cn |
文章点评 |
|
|
|
|
|