Post-посылка средствами ASP

Set o = CreateObject('Msxml2.ServerXMLHTTP')
o.Open 'POST','http://www.microsoft.com',False
o.Send
Response.Write o.ResponseText

Set o = CreateObject('Msxml2.ServerXMLHTTP')
o.Open 'POST','http://localhost/pmg2/test2.asp',false
o.Send 'test=teststring'
Set o = Nothing

StrFile 'check.txt','REQUEST=' & Request('test')

Public Declare Function InternetReadFile Lib 'wininet.dll' (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
 
Public Declare Function InternetCloseHandle Lib 'wininet.dll' (ByVal hInet As Long) As Integer
 
Public Declare Function InternetQueryOption Lib 'wininet.dll' Alias 'InternetQueryOptionA' (ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long) As Integer
 
Public Declare Function InternetConnect Lib 'wininet.dll' Alias 'InternetConnectA' (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
 
Public Declare Function HttpOpenRequest Lib 'wininet.dll' Alias 'HttpOpenRequestA' (ByVal hHttpSession As Long, ByVal sVerb As String, ByVal sObjectName As String, ByVal sVersion As String, ByVal sReferer As String, ByVal something As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
 
Public Declare Function HttpSendRequest Lib 'wininet.dll' Alias 'HttpSendRequestA' (ByVal hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, sOptional As Any, ByVal lOptionalLength As Long) As Integer
 
Public Declare Function HttpQueryInfo Lib 'wininet.dll' Alias 'HttpQueryInfoA' (ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long, ByRef lIndex As Long) As Integer

Option Explicit
 
Private hInternetSession As Long
Private hInternetConnect As Long
Private hHttpOpenRequest As Long
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Name       : btClear_Click
' Purpose    : Click event for button
' Parameters : NA
' Return val : NA
' Algorithm  : Clears labels on form
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub btClear_Click()
On Error Resume Next
Dim ctrLabel As Control
For Each ctrLabel In Me.Controls
   Select Case TypeName(ctrLabel)
        Case 'Label':
            If CBool(ctrLabel.Tag) Then ctrLabel = vbNullString
        Case 'TextBox':
            ctrLabel = vbNullString
   End Select
Next ctrLabel
btSend.Enabled = True
SetStatus 'Ready'
End Sub
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Name       : btExit_Click
' Purpose    : Click event for button
' Parameters : NA
' Return val : NA
' Algorithm  : Exist application
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub btExit_Click()
On Error Resume Next
InternetCloseHandle (hHttpOpenRequest)
InternetCloseHandle (hInternetSession)
InternetCloseHandle (hInternetConnect)
Unload Me
End Sub
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Name       : btGet_Click
' Purpose    : Click event for button
' Parameters : NA
' Return val : NA
' Algorithm  : Gets resource identified in URL
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub btGet_Click()
Dim bDoLoop             As Boolean
Dim sReadBuffer         As String * 2048
Dim lNumberOfBytesRead  As Long
Dim sBuffer             As String
On Error Resume Next
btGet.Enabled = False
Screen.MousePointer = vbHourglass
ProgressBar1.Min = 0
If CBool(Val(lblContentLength)) Then ProgressBar1.Max = Val(lblContentLength)
ProgressBar1.Value = ProgressBar1.Min
SetStatus 'InternetReadFile'
bDoLoop = True
While bDoLoop
    sReadBuffer = vbNullString
    bDoLoop = InternetReadFile(hHttpOpenRequest, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
    sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
    If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
    If CBool(Val(lblContentLength)) Then ProgressBar1.Value = ProgressBar1.Value + lNumberOfBytesRead
Wend
SetStatus 'Ready'
Screen.MousePointer = vbDefault
txtHTML = sBuffer
ProgressBar1.Value = 0
End Sub
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Name       : btSend_Click
' Purpose    : Click event for button
' Parameters : NA
' Return val : NA
' Algorithm  : Sends request to server
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub btSend_Clic '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub CenterForm(theForm As Form)
Dim iLeft   As Integer
Dim iTop    As Integer
iLeft = (Screen.Width - theForm.Width) / 2
iTop = (Screen.Height - theForm.Height) / 2
If (iLeft < 0) Then iLeft = 0
If (iTop < 0) Then iTop = 0
theForm.Move iLeft, iTop
End Sub
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Name       : GetQueryInfo
' Purpose    : Retrieves header information
' Parameters : HttpRequest handle, label to put information in, and infolevel flag
' Return val : Success/Failure
' Algorithm  : Calls the HttpQueryInfo function and copies result into label
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function GetQueryInfo(ByVal hHttpRequest As Long, ByVal lblContentType As Object, ByVal iInfoLevel As Long) As Boolean
Dim sBuffer         As String * 1024
Dim lBufferLength   As Long
lBufferLength = Len(sBuffer)
GetQueryInfo = CBool(HttpQueryInfo(hHttpRequest, iInfoLevel, ByVal sBuffer, lBufferLength, 0))
lblContentType = sBuffer
End Function
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Name       : CheckUrl
' Purpose    : Checks for an URL
' Parameters : NA
' Return val : URL
' Algorithm  : If a URL is not specified it returns a default URL
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function CheckUrl() As String
If Len(txtURL) = 0 Then txtURL = 'www.microsoft.com'
CheckUrl = txtURL
End Function
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Name       : tabMain_Click
' Purpose    : Tabstrip control click event
' Parameters : NA
' Return val : NA
' Algorithm  : Sets Z-Order of picture control
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub tabMain_Click()
picMain(tabMain.SelectedItem.Index - 1).ZOrder 0
End Sub
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Name       : SetStatus
' Purpose    : Sets the status text in the status bar
' Parameters : New status message
' Return val : NA
' Algorithm  : Sets the text property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SetStatus(sStatus As String)
sbrMain.Panels(1).Text = sStatus
DoEvents
End Sub

<%
Response.Write Request.Form('a') & '<br />' & Request.Form('b')
%>

<%
Set oServerXMLHTTP = CreateObject('Msxml2.ServerXMLHTTP')
With oServerXMLHTTP
    .Open 'POST','http://localhost/test/testpost.asp',False
    .SetRequestHeader 'Content-Type','application/x-www-form-urlencoded'
    .Send 'a=1&b=1'
    Response.Write .ResponseText
End With
%>