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

  • 相关阅读:
    代码 自动化部署
    java 反射工具
    springBoot 简化读取配置 Configuration Processor
    docker 安装redis
    怎么用mybatis
    shiro框架
    Nginx 负载均衡的几种方式
    CSS Reset
    两种CSS3圆环进度条详解
    兼容全浏览器的本地图片预览
  • 原文地址:https://www.cnblogs.com/Athrun/p/ASP_WinHttpRequest.html
Copyright © 2011-2022 走看看