如何在Classic ASP中将数据发布到远程URL？

<%
Dim objXMLHTTP, strURL, strPostData, strResponse

' 设置远程URL
strURL = "https://example.com/post.asp"

' 设置要发送的数据
strPostData = "key1=value1&key2=value2"

' 创建ServerXMLHTTP对象
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")

' 设置请求方法和URL
objXMLHTTP.Open "POST", strURL, False

' 设置请求头
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

' 发送请求
objXMLHTTP.Send strPostData

' 获取响应
strResponse = objXMLHTTP.ResponseText

' 输出响应
Response.Write strResponse

' 释放对象
Set objXMLHTTP = Nothing
%>