[资料]WinHttp.WinHttpRequest.5.1使用

最新推荐文章于 2025-07-09 10:26:55 发布

转载最新推荐文章于 2025-07-09 10:26:55 发布 · 305 阅读

2 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/Athrun/archive/2012/12/12/ASP_WinHttpRequest.html

本文介绍如何在ASP中使用WinHttpRequest组件进行HTTP请求，包括GET和POST方法的实现方式，并提供了完整的VBScript示例代码。此外还介绍了如何设置超时时间和处理响应。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

转载于:https://www.cnblogs.com/Athrun/archive/2012/12/12/ASP_WinHttpRequest.html