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