ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Sergey Antropov                      2:5020/1842.7  07 May 2003  15:18:23
 To : All
 Subject : Господа, need help
 -------------------------------------------------------------------------------- 
 

 
 Вообщем сабж.
 Дело вот в чем, есть каталог с аватарами для форума.
 После прочтения имеем открывающийся список с названиями файлов в HTML виде.
 Встаёт вопрос, как сделать так, чтобы рядом со списком, при выборе значения,
 открывался iframe и показывался сама иконка аватара?
 Иль, модет как по другому сделать можно?
 #!/usr/bin/perl
 
 print qq~
 <script language="JavaScript" type="text/JavaScript">
 <!--
 function MM_jumpMenu(targ,selObj,restore){ //v3.0
   eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
   if (restore) selObj.selectedIndex=0;
 }
 
 //-->
 
 </script>
 ~;
 
 opendir (AVATARS,'../images/avatars');
 $avatars=readdir AVATARS;
 
 print qq~
 <form name=form1>
   <select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
 <option name=avatar value=''></option>
 ~;
 
 while ($avatars=readdir AVATARS) {
 if ($avatars ne '..') {print  "<option name=avatar
 value=$avatars>$avatars</option>";}
 }
 close AVATARS;
 print qq~
 </select>
 </form>
 ~;
  [ы] Пока, All, счастливого тебе коннекта ! ...
 --- GoldED+/W32 1.1.4.7, FastFTN v1.56
  * Origin: КЛАВУ топтать - это вам не с ДЖОЙСТИКОМ баловаться (2:5020/1842.7)
 
 

Вернуться к списку тем, сортированных по: