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

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



GetURL("www.lovezhao.com")