xmlhttp.inc

来自「网络办公系统源码」· INC 代码 · 共 39 行

<%
Function OpenURL(url)
	dim obj,BytesStream
    Set obj = Server.CreateObject("Microsoft.XMLHTTP")
    Call obj.Open("GET", url, False)
    Call obj.send
    Set BytesStream = Server.CreateObject("ADODB.Stream")
    BytesStream.Type = 2
    BytesStream.Open
    BytesStream.WriteText obj.ResponseBody
    BytesStream.Position = 0
    BytesStream.Charset = "GB2312"
    BytesStream.Position = 2
    OpenURL = BytesStream.ReadText
    BytesStream.Close
    Set BytesStream = Nothing
    Set obj = Nothing
End Function

Public Function PostURL(url,SendData)
	dim obj,BytesStream
    Set obj = CreateObject("Microsoft.XMLHTTP")
    Call obj.Open("POST", url, False)
    Call obj.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    Call obj.setRequestHeader("Content-Length", Len(SendData))
    Call obj.send(SendData)
    Set BytesStream = CreateObject("ADODB.Stream")
    BytesStream.Type = 2
    BytesStream.Open
    BytesStream.WriteText obj.ResponseBody
    BytesStream.Position = 0
    BytesStream.Charset = "GB2312"
    BytesStream.Position = 2
    PostURL = BytesStream.ReadText
    BytesStream.Close
    Set BytesStream = Nothing
    Set obj = Nothing
End Function
%>