Set Http = Server.CreateObject("MSXML2.XMLHttp")
Http.Open "GET","http://www.booksky.biz/Book.aspx?BookID=244",False
Http.Send
ReSult = Http.ResponseText
Response.Write ReSult
Response.end
你的结果读取不要使用responsetext,而是要用ResponseBody,把结果视用二进制流处理
然后用下面的函数进行内容转换就行。
示例:
Set Http = Server.CreateObject("MSXML2.XMLHttp")
Http.Open "POST", Url, False
Http.Send
ReSult = bytes2BSTR(Http.ResponseBody)
Response.Write ReSult
Function bytes2BSTR(vIn)
Dim strReturn
Dim I, ThisCharCode, NextCharCode
strReturn = ""
For I = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn, I, 1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn, I + 1, 1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
I = I + 1
End If
Next
bytes2BSTR = strReturn
End Function