zoukankan      html  css  js  c++  java
  • [资料]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

  • 相关阅读:
    原码、反码、补码之间的相互关系
    在用 JavaScript 工作时,我们经常和条件语句打交道,这里有5条让你写出更好/干净的条件语句的建议。
    冒泡排序最佳情况的时间复杂度
    path的join和resolve的使用区别
    SCSS入门
    webpack 前后端分离开发接口调试解决方案,proxyTable解决方案
    JS中原型链的理解
    30分钟,让你彻底明白Promise原理
    状态码常用对照表
    前端性能优化方案都有哪些?
  • 原文地址:https://www.cnblogs.com/Athrun/p/ASP_WinHttpRequest.html
Copyright © 2011-2022 走看看