WML (Wireless Markup Language) developed to mobile phones

Format = "* m" EMPTYOK = "true" />

---- The login screen includes two input fields, one is the user ID, and the other is a password. These two fields are created using the WML identifier, and the various names entered by the user are defined by the Name property. ---- identifier defines a role, which points to the DLLS of the ISAPI of the routine (indeed the provincial path is /scripts/ma_ooqs.dll). uses standard HTTP's post command to send user input data into this DLL. Note The identifier automatically indicates that the browser translates the $ (CustID) and $ (Password) variable entered by the user through the HTTP protocol.

---- When the user clicks on the login command, this WAP phone is connected to this DLL, which makes this DLL executes the login action as shown. First, the code extracts the CustID and Password fields from the request.contentFields property. After being confirmed, (also specifically a dedicated database to save this information, by traversing the database, the function of this traversal is isvalidcustid, as follows

Function TMAWebmodule.issalidCustid

(Custid, Password: String): Boolean;

Begin

DebugMessage ('isvalidcust:' # 13'custid = " Custid

# 13'password = "' password '");

Result: = FALSE;

WITH CUSTOMER Do Begin

Try

Open;

IF locate ('Custno', Custid, []) THEN

if (Customerstate.Asstring) =

Lowercase (Password)) THEN

RESULT: = TRUE;

Finally

CLOSE;

END;

END;

END;

Procedure Tmawebmodule.mawebmoduleLoginAction

Sender: TOBJECT; Request: TWEbRequest;

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.');

MaWebmoduleMainuaction (Sender, Request,

Response, Handled);

end

Else

Begin

DEBUGMESSAGE ('Invalid Custid / Password Pair.');

ContentType: = mimetypewml;

Content: = InvalidPageWML;

END;

END;

Handled: = true;

---- Since the DBDemos database does not contain real user IDs and corresponding passwords, the routine uses the CustNo field in the Customer Table Customer to do ID, using the State field to perform the corresponding password. To test this intent, you can use the following ID and password: "1221" and "hi"; "1560" and "fl"; and "1680" and "ga." Return to the WML code on the browser

---- General, WebBroker Apply returns some simple HTML code to your browser by control over the RESPONSE object in the onaction event handle. The TWEBRESPONSE class is represented by a Content property of the Response parameter, which can receive HTML code created by this event handle.

---- When the user's browser receives data, it handles it according to its MULTIPURPURPOSE Internet Mail Extensions. The MIME Type of the TWebResponse class is "text / html", which specifies the data type of the Content property, and it is true that HTML code.

--- However, the WAP application requires the MIME type "text / vnd.wap.wml" text / vnd.wap.wml of WML (Version 1.1), "therefore needs to be changed. Note that the ContentType property can be changed to any valid MIME type. For example: Changing this property is "image / gif" will allow the action to return to the image data of a bitmap (binary.gif).

---- When defining the correct MIME type, the handle of this action event will clearly set the Content property to include a valid WML code. Since each of the WML pages generated by Application requires a public head, this routine defines a name that is WmlHeader to contain this information.

---- Store data returned to the database After the user is successfully logged in, the user returns to the main menu of marine adventure. Through this menu, the user can choose to view the information of the customer or the status of the order. If the customer selects the hyperlink of user information, this defined method of the CustInfoAction method of the MAWEBModule web module will be executed.

---- First, the code returns to the CustNO parameter of the post http command, when the information of the logged in user is found in the client table, the code creates a WML code that includes three input fields. Initially, three input fields include the customer's ZIP number, city, and state, (Remember, this state is a password). Users can adjust these three fields, he can save new one by selecting the "Modify Info" command The value returns to the database. When the user selects this command, the ModifyCustAction method will be executed. (See below)

---- MAWEB module in Delphi IDE

Procedure Tmawebmodule.mawebmoduleModifyCustAction

Sender: TOBJECT; Request: TWEbRequest;

Response: TWebResponse; var handled: boolean;

Var Custid, State, City, Zip: String

Begin

Custid: = Request.contentFields.Values ​​['CustId']; state: = request.contentfields.values ​​['State'];

City: = request.contentfields.values ​​['City'];

Zip: = Request.contentFields.Values ​​['Zip'];

With response do begin

ContentType: = mimetypewml;

Try

If LocateCustomer (Custid) THEN

Begin

DebugMessage ('Saving Customer Data:' # 13

'CustId = "' Custid '" # 13

'State = "' state '" # 13

'City = "' city '" # 13

'Zip = "' zip '" # 13);

Customer.edit;

Customerstate.Asstring: = State;

CustomerCity.Asstring: = city;

Customerzip.Asstring: = zip;

Customer.post;

Content: = WMLHEADER

' CRLF

'' CRLF

'

'href = "/ scripts / ma_ooqs.dll / mainmenu">

CRLF '

'value = "' httpencode (custom) '" /> CRLF

'' CRLF ' CRLF

' CRLF '

'

CRLF ' Customer Info SuccesFully'