wap!delphi能做到！—— 应用于移动电话的WML(Wireless Markup Language）开发

wap!delphi能做到！—— 应用于移动电话的WML(Wireless Markup Language）开发(6)   Response: TWebResponse; var Handled: Boolean);
var
  CustID, PassWord : string;
begin
  CustID := Request.ContentFields.Values['custid'];
  PassWord := Request.ContentFields.Values['passWord'];
 { Check validity of custid/passWord. }
  with Response do begin
    if IsValidCustID(CustID,PassWord) then
      begin
        DebugMessage('CustID/PassWord is valid.');
        MAWebModuleMainMenuAction(Sender, Request,
                                  Response, Handled);
      end
    else
      begin
        DebugMessage('Invalid CustID/PassWord pair.');
        ContentType := MIMETypeWML;
        Content := InvalidIDPageWML;
      end;
  end;
  Handled := True;
end;

---- 由于DBDEMOS数据库不包含真实的用户ID和相应的密码，例程使用客户表Customer 中的的CustNo字段来做ID,使用State字段来作相应的密码。为测试这个意图，你可以使用如下的ID 和PASSWord："1221" and "HI"; "1560" and "FL"; and "1680" and "GA." 返回到浏览器上的WML代码