利用xmlHTTP获取网页源码[asp]

<%
'利用xmlHTTP获取网页源码
strScriptCurrentDirectory = "http://"&request.serverVariables("SERVER_NAME")&":"&request.serverVariables("SERVER_PORT")_
 &request.serverVariables("SCRIPT_NAME")
strScriptCurrentDirectory = left(strScriptCurrentDirectory,len(strScriptCurrentDirectory)-len(split(strScriptCurrentDirectory,"/")(ubound(split(strScriptCurrentDirectory,"/")))))

Function funGetHTTPPage(priStrPath,priStrMothed)
    priT = funGetBody(priStrPath,priStrMothed)
    funGetHTTPPage = funBytesToBstr(priT, "GB2312")
End Function

Function funGetBody(priStrUrl,priStrMothed)
    'On Error Resume Next
    Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    With Retrieval
        .Open priStrMothed, priStrUrl, False, "", ""
        .Send
        funGetBody = .ResponseBody
    End With
    Set Retrieval = Nothing
End Function

Function funBytesToBstr(priBody, priCSet)
    Set objStream = Server.CreateObject("adodb.stream")
    objStream.Type = 1
    objStream.Mode = 3
    objStream.Open
    objStream.Write priBody
    objStream.Position = 0
    objStream.Type = 2
    objStream.CharSet = priCSet
    funBytesToBstr = objStream.ReadText
    objStream.Close
    Set objStream = Nothing
End Function
%>