Пособие по написанию WAP-сайтов


Подробнее о приложении CurrencyConvert.wml - часть 4


elsif ($Currency eq "Euro") { $USDollar = (int(($Value * $EuroToDollar) * 100)) / 100; $Euro = $Value; $UKPound = (int(($Value * $EuroToPound) * 100)) / 100; $JapanYen = (int(($Value * $EuroToYen) * 100)) / 100; }

elsif ($Currency eq "UKPounds") { $USDollar = (int(($Value * $PoundToDollar) * 100)) / 100; $Euro = (int(($Value * $PoundToEuro) * 100)) / 100; $UKPound = $Value; $JapanYen = (int(($Value * $PoundToYen) * 100)) / 100; }

elsif ($Currency eq "JapanYen") { $USDollar = (int(($Value * $YenToDollar) * 100)) / 100; $Euro = (int(($Value * $YenToEuro) * 100)) / 100; $UKPound = (int(($Value * $YenToPound) * 100)) / 100; $JapanYen = $Value; }

$Deck = "Content-type: text/vnd.wap.wml

&lt?xml version=\"1.0\"?&gt &lt!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\"&gt

&ltwml&gt

&lthead&gt

&ltmeta http-equiv=\"Cache-Control\" content=\"max-age=0\" forua=\"true\"/&gt

&lt/head&gt

&ltcard id=\"Result\"&gt

&ltdo type=\"accept\" label=\"Done\"&gt &ltgo href=\"../CurrencyConvert/CurrencyConvert.wml\" /&gt &lt/do&gt

&ltp align=\"center\"&gt

Currency Converter

&lt/p&gt

&ltp align=\"left\" mode=\"nowrap\"&gt

&lttable align=\"left\" columns=\"2\"&gt

&lttr&gt &lttd&gtUS Dollars:&lt/td&gt &lttd&gt$USDollar&lt/td&gt &lt/tr&gt

&lttr&gt &lttd&gtEuro:&lt/td&gt &lttd&gt$Euro&lt/td&gt &lt/tr&gt

&lttr&gt &lttd&gtUK Pounds:&lt/td&gt &lttd&gt$UKPound&lt/td&gt &lt/tr&gt

&lttr&gt &lttd&gtJapan Yen:&lt/td&gt &lttd&gt$JapanYen&lt/td&gt &lt/tr&gt

&lt/table&gt




- Начало -  - Назад -  - Вперед -