[资料]WinHttp.WinHttpRequest.5.1使用

Demo:

<%
Dim APISite
APISite="http://127.0.0.1/XXXXX/"

Dim FreeHost_t1
Dim FreeHost_t2
Dim FreeHost_t3
Dim FreeHost_t4

FreeHost_t1=20000
FreeHost_t2=20000
FreeHost_t3=30000
FreeHost_t4=240000

Function GETOP(tar,req)
    Dim objXMLHTTP
    Set objXMLHTTP = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
    objXMLHTTP.Option(6)=0
    objXMLHTTP.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4
    objXMLHTTP.open  "GET",APISite&tar&"?"&req, False
    objXMLHTTP.send
    If objXMLHTTP.status=200 Then
        GETOP = bytes2BSTR(objXMLHTTP.responsebody)
    Else
        GETOP="HTTP Status:"&objXMLHTTP.status&" Information:"&bytes2BSTR(objXMLHTTP.responsebody)
    End If
    Set objXMLHTTP = Nothing
End Function

Function GETOPBYTE(tar,req)
    Dim objXMLHTTP
    Set objXMLHTTP = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
    objXMLHTTP.Option(6)=0
    objXMLHTTP.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4
    objXMLHTTP.open  "GET",APISite&tar&"?"&req, False
    objXMLHTTP.send
    If objXMLHTTP.status=200 Then
        GETOPBYTE = objXMLHTTP.responsebody
    Else
        GETOP="HTTP Status:"&objXMLHTTP.status&" Information:"&bytes2BSTR(objXMLHTTP.responsebody)
    End If
    Set objXMLHTTP = Nothing
End Function

Function POSTOP(tar,PostBody)
    Dim objXMLHTTP
    Set objXMLHTTP = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
    objXMLHTTP.Option(6)=0
    objXMLHTTP.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4
    objXMLHTTP.open  "POST",APISite&tar, False
    objXMLHTTP.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
    objXMLHTTP.setRequestHeader "Content-Length",Len(PostBody)
    objXMLHTTP.send PostBody

    If objXMLHTTP.status=200 Then
        POSTOP = bytes2BSTR(objXMLHTTP.responsebody)
    Else
        POSTOP="HTTP Status:"&objXMLHTTP.status&" Information:"&bytes2BSTR(objXMLHTTP.responsebody)
    End If
    Set objXMLHTTP = Nothing
End Function

Function Bytes2bStr(vin)
  Dim BytesStream,StringReturn
  Set BytesStream = Server.CreateObject("ADODB.Stream")
  BytesStream.Type = 2
  BytesStream.Open
  BytesStream.WriteText vin
  BytesStream.Position = 0
  BytesStream.Charset = "big5"
  BytesStream.Position = 2
  StringReturn =BytesStream.ReadText
  BytesStream.close
  Set BytesStream = Nothing
  Bytes2bStr = StringReturn
End Function
%>

''APIret=GETOP("index.asp","Act=StockMoveResetPdf&mid=" & mid_ & "&state1=" & state1 & "&state2=" & state2 & "&state3=" & state3)
''APIret=POSTOP("index.asp",Request.form)

参考资料:

http://www.docin.com/p-387428585.html