asp 获取页面源代码函数xmlhttp

'==============================
 '函 数 名：GetHttpPage
 '作    用：获取页面源代码函数
 '参    数：采集链接HttpUrl
 '============================== 
 Public Function GetHttpPage(HttpUrl)
  If IsNull(HttpUrl)=True Then
   Response.Write("请输入网址！")
   Exit Function
  End If
  On Error Resume Next
  Dim Http
  Set Http=Server.CreateObject("MSX"&"ML2.XML"&"HTTP")
  Http.Open "GET",HttpUrl,False
  Http.Send()
  If Err Then
   Err.clear
   Response.Write(SiteCloseStr)
   Response.End()
  End If
  If Http.Readystate4 then
   Set Http=Nothing
   Response.Write("该网页无法访问！")
   Exit function
  End if
  GetHttpPage=BytesToBSTR(Http.responseBody,"GB2312")
  Set Http=Nothing
  If Err.number0 then
   Err.Clear
  End If
 End Function