28,391
社区成员
发帖
与我相关
我的任务
分享
Set HTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
HTTP.setTimeouts 10000,10000,10000,30000
HTTP.Open "GET", nSrc, false, "", ""
HTTP.Send
If HTTP.Readystate = 4 then
If HTTP.Status = 200 Then
Value = BytesToBSTR(HTTP.ResponseBody,nCharset)
Else
Value = ""
End If
Else
Value = ""
End If
Public Function BytesToBSTR(Body,nCharset)
Dim ObjStream
Set ObjStream = Server.CreateObject("Adodb.Stream")
ObjStream.Type = 1
ObjStream.Mode = 3
ObjStream.Open
ObjStream.Write body
ObjStream.Position = 0
ObjStream.Type = 2
ObjStream.Charset = nCharset
BytesToBSTR = ObjStream.ReadText
ObjStream.Close
set ObjStream = Nothing
End Function