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

 

 


posted on 2009-12-03 15:49  Kingly  阅读(3065)  评论(0编辑  收藏  举报