如果利用XMLHTTP.SEND提交并利用ASP在后台接收所提交数据

XMLHTTP.SEND(varBody)varBody：指令集。可以是XML格式数据，也可以是字符串，流，或者一个无符号整数数组。也可以省略，让指令通过Open方法的URL参数代入。 发送数据的方式分为同步和异步两种。在异步方式下，数据包一旦发送完毕，就结束Send进程，客户机执行其他的操作；而在同步方式下，客户机要等到服务器返回确认消息后才结束Send进程。
方法一：varBody省略，让指令通过Open方法的URL参数代入

 var post="id=1000&page=1";  
 var doUrl="t.asp"+post
 XMLHttp.open("POST", doUrl, false);
 XMLHttp.send(null);

 这种方法在ASP中直接利用Request.QueryString("参数名称")
方法二：varBody为字符串，Open方法定义为POST，以表单方式上传

  var post="id=1000&page=1";  
  var doUrl="t.asp";
  XMLHttp.open("POST", doUrl, false);
  XMLHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
  XMLHttp.send(post);

 这种方法在ASP中直接利用Request.Form("参数名称")
方法三：varBody为XML格式数据

  var xmlDom=new ActiveXObject("MSXML2.DOMDocument");
  xmlDom.loadXML("<userInfo><userName>用户名称</userName><userSex>男</userSex><userTel>028</userTel><userEmail></userEmail></userInfo>");
  XMLHttp.open("POST", "t.asp", false);
  XMLHttp.send(xmlDom.xml);

 当以这种方法传递时，服务端用
  <%
  Response.ContentType="text/xml"
  Response.Charset="gb2312"
  Dim xmlDom
  Set xmlDom = Server.CreateObject("Microsoft.XMLDOM")
  xmlDom.async = True
  xmlDom.load(Request)
  Response.Write xmlDom.xml
  %> 

即可，在此XM中L获取相关内容

 

客户端用delphi，服务器用dot net的MVC架构获取参数的例子：

delphi客户端：

 
   
   unit Unit1;

 
   interface 
   

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls;

type
  TForm1  
   = 
     
   class 
   (TForm)
    ButtonOK: TButton;
    EditURL: TEdit;
    EditParam: TEdit;
    LabelURL: TLabel;
    LabelParam: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    procedure ButtonOKClick(Sender: TObject);
   
   private 
   
    { Private declarations }
   
   public 
   
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R  
   * 
   .dfm}

procedure TForm1.ButtonOKClick(Sender: TObject);
var
  url:  
   string 
   ;
  xmlHttp, param: Olevariant;
  responseText: Widestring;
begin
   
   try 
   
    url : 
   = 
     
   ' 
   http://localhost/SiteWeb/Authentication/LogOnX 
   ' 
   ;
    param : 
   = 
     
   ' 
   registerNo=123456&code=Kingly&password=1 
   ' 
   ;
    xmlHttp : 
   = 
    CreateOleObject( 
   ' 
   Msxml2.XMLHTTP.3.0 
   ' 
   );
    xmlHttp.Open( 
   ' 
   POST 
   ' 
   , url,  
   false 
   );
    xmlHttp.setRequestHeader( 
   ' 
   Content-Type 
   ' 
   ,  
   ' 
   application/x-www-form-urlencoded 
   ' 
   ); 
   // 
   这句很关键，否则服务器检测不到参数 
   
 
       xmlHttp.send(param);
    responseText: 
   = 
   xmlHttp.responseText; 
   // 
   返回的结果 
   
 
       Showmessage(responseText);
  except on E: exception  
   do 
   
    Showmessage(E.Message);
  end;
end;

end.
 
   
 

dot net服务器写法：

 
   
    
   [AcceptVerbs(HttpVerbs.Post)]
        [ExceptionFilter()]
         
   public 
     
   void 
    LogOnx()
        {
             
   string 
    ErrMsg  
   = 
     
   string 
   .Empty;
            Guid LoginId  
   = 
    Guid.Empty;
            Response.ContentType  
   = 
     
   " 
   text/xml 
   " 
   ;

             
   if 
    (Request.Form[ 
   " 
   registerNo 
   " 
   ]  
   == 
     
   null 
   )
                ErrMsg  
   = 
     
   " 
   registerNo为空 
   " 
   ;
             
   if 
    (Request.Form[ 
   " 
   code 
   " 
   ]  
   == 
     
   null 
   )
                ErrMsg  
   = 
     
   " 
   code为空 
   " 
   ;
             
   if 
    (Request.Form[ 
   " 
   password 
   " 
   ]  
   == 
     
   null 
   )
                ErrMsg  
   = 
     
   " 
   password为空 
   " 
   ;
             
   if 
    ( 
   ! 
   string 
   .IsNullOrEmpty(ErrMsg))
            {
                Response.Write(ErrMsg);
                Response.End();
            }
             
   string 
    registerNo  
   = 
    Request.Form[ 
   " 
   registerNo 
   " 
   ].ToString();
             
   string 
    code  
   = 
    Request.Form[ 
   " 
   code 
   " 
   ].ToString();
             
   string 
    password  
   = 
    Request.Form[ 
   " 
   password 
   " 
   ].ToString();

             
   if 
    ( 
   ! 
   ValidateLogOn(registerNo, code, password))
            {
                ErrMsg  
   = 
     
   " 
   参数为空 
   " 
   ;
                Response.Write(ErrMsg);
                Response.End();
            }

             
   try 
   
            {
                 
   // 
   调用服务器登录接口，获取LoginId的值... 
   
 
               }
             
   catch 
    (Exception ex) 
            {
                ErrMsg  
   = 
    ex.Message;
            }

             
   if 
    ( 
   ! 
   string 
   .IsNullOrEmpty(ErrMsg))
                Response.Write(ErrMsg);
             
   else 
   
                Response.Write(LoginId);
            Response.End();