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.Readystate<>4 then
   Set Http=Nothing
   Response.Write("該網頁無法訪問！")
   Exit function
  End if
  GetHttpPage=BytesToBSTR(Http.responseBody,"GB2312")
  Set Http=Nothing
  If Err.number<>0 then
   Err.Clear
  End If
 End Function