Размер файла: 2.4Kb
- <?
-
- header("Content-type:text/vnd.wap.wml;charset=UTF-8");
- print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
- <!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">
- <wml>
- <card id=\"tes\" title=\"CHAT\">";
-
- print"
- <a href=\"admin.php?trof=2\">Очистка</a>:
- <a href=\"stats.php\">Статистика</a>:
- <a href=\"admin.php?trof=1\">Написать в чат</a>:
- ";
-
-
- if($trof=="1")
-
- {
-
- print"
- <p>Ваш логин</p>
- <input title=\"login\" name=\"login\"/><br/>
- <p>Сообщение</p>
- <input title=\"mess\" name=\"mess\"/><br/>
- <anchor title=\"Ok\">GOTOBO
- <go href=\"admin.php?trof=ad\" method=\"post\">
- <postfield name=\"login\" value=\"$(login)\"/>
- <postfield name=\"mess\" value=\"$(mess)\"/>
- </go>
- </anchor>";
-
- }
-
- if($trof=="ad")
-
- {
-
- $text = "$login::$mess";
- $fp=@fopen("chat.txt","a");
- @fputs($fp,"$text \r\n");
- @fclose($fp);
-
- print"<p>Ваше сообщение показалось в чате!</p>";
-
- }
-
- if($trof=="2")
-
- {
-
- print"
- <br/>
- <a href=\"admin.php?trof=3\">Очистить базу чата</a><br/>
- <a href=\"admin.php?trof=4\">Очистка показаний счетчика</a><br/>";
-
- }
-
- if($trof=="3")
-
- {
-
- $fp = fopen("chat.txt","w+");
-
- echo "<p>Задача успешно выполнена!</p>";
- }
-
- if($trof=="4")
-
- {
-
- $fp = fopen("counter.txt","w+");
-
- echo "<p>Задача успешно выполнена!</p>";
- }
-
- print "
- </card>
- </wml>";
-
- ?>