ASP讀取網頁原始碼

<%
Function Bin2Str(Bin)
  Dim I, Str
  For I=1 to LenB(Bin)
   clow=MidB(Bin,I,1)
   if ASCB(clow)<128 then
    Str = Str & Chr(ASCB(clow))
   else
    I=I+1
    if I <= LenB(Bin) then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))
   end if
  Next
  Bin2Str = Str
End Function

Function GetHTML(strURL)
 Dim objXMLHTTP, strReturn
 Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
 objXMLHTTP.Open "GET", strURL, False
 objXMLHTTP.Send
 strReturn =objXMLHTTP.responseBody
 Set objXMLHTTP = Nothing
 strReturn=bin2str(strReturn)
 GetHTML = strReturn
End Function
%>
<%
Response.Write GetHTML("http://www.kimo.com.tw/")
%>