Asp抓取页面函数

Dim Retrieval,Domain,Ext,TakenHTML,pagebefore,pageafter,zyj

Function GetURL(url)
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
    With Retrieval
    .Open "GET", url, False, "", ""
    .Send
    GetURL = .ResponseText
    GetURL = bytes2BSTR(.Responsebody)
    End With
    Set Retrieval = Nothing
End Function

Private Function bytes2BSTR(vIn)
    Dim i, ThischrCode, NextchrCode
    strReturn = ""
    For i = 1 To LenB(vIn)
        ThischrCode = AscB(MidB(vIn, i, 1))
        If ThischrCode < &H80 Then
            strReturn = strReturn & Chr(ThischrCode)
        Else
            NextchrCode = AscB(MidB(vIn, i + 1, 1))
            strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))
            i = i + 1
        End If
    Next
    bytes2BSTR = strReturn
End Function