如果利用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();

 

 

转载于:https://www.cnblogs.com/Kingly/archive/2009/12/03/1616277.html