Subversion Repositories wimsdev

Rev

Rev 1336 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !exit
  2. !!$wims_html_header
  3. !!<body $wims_htmlbody>
  4. !header1
  5. <p><center><h3>
  6. !href module=$module&cmd=intro WIMS
  7.  $module_title<br>
  8. <font size=-1>--- ´òÓ¡°æ ---</font></h3></center> <p>
  9. !!<div class=wimsbody>
  10.  
  11. !if $error!=$empty
  12.  !changeto oef/msg.phtml
  13. !endif
  14.  
  15. !for i=1 to $n
  16.  <p>
  17.  <b>Á·Ï°</b> $i. (<u><em>$(title_$i)</em></u>)
  18.  !if $(question_$i)=$empty
  19.   (²»¿É´òÓ¡)
  20.  !else
  21.   !if __EXECUTED_ isin $(question_$i) and _EXERCISE__ isin $(question_$i)
  22.    !set thisexo=$(name_$i)
  23.    !readproc oef/imagedir.proc
  24.    !for k=1 to $(varcnt_$i)+5
  25.     !set val$k=!line $k of $(var_$i)
  26.    !next k
  27.    !read $(class_header)def/$(name_$i).def question
  28.   !else
  29.    $(question_$i)
  30.   !endif
  31.   !!</a></tt></font></center>
  32.  !! </h1></h2></h3></h4></b></i></em>
  33.   $(chce_$i)
  34.  !endif
  35. !next i
  36.  
  37. !if $wims_user!=$empty and $wims_user!=supervisor
  38.  !goto noans
  39. !endif
  40.  
  41. <p><p><hr>
  42. <div class="wims_solution">
  43. <center><h3>½â´ð</h3></center> <p>
  44. !for i=1 to $n
  45.  !set t=!linecnt $(ans_$i)
  46.  !if $t>0
  47.   <p><b>Á·Ï°$iµÄ½â´ð.</b><ul>
  48.   !for k=1 to $t
  49.    <li>
  50.    !line $k of $(ans_$i)
  51.   !next k
  52.   </ul>
  53.  !endif
  54. !next i
  55. </div>
  56.  
  57. :noans
  58. </div>
  59. !!<div class="wims_noprint"><hr>
  60. !!!href cmd=reply&print=yes ÔÙÒ»´Î
  61. !!&nbsp;&nbsp;
  62. !!!href module=$module&cmd=intro ·µ»Ø
  63. !!</div>
  64. !!</body></html>
  65. !set wims_menu_items=!append line renew,1,cmd=reply&print=yes  to $wims_menu_items
  66. !tail
  67.