Subversion Repositories wimsdev

Rev

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

  1.  
  2. !if $gotcnt=0
  3.  !if $srch=$empty
  4.   !exit
  5.  !endif
  6.  !if $module!=home
  7.   ±§Ç¸, ûÓÐÓÐ¹Ø <em><font color=red>$search</font></em> µÄÄÚÈÝ.
  8.  !endif
  9.   <p>
  10.  ´Ëµ¯³ö¼ÆËãÆ÷±í¸ñµÄÊý¾Ý¿âÉÐÔÚÊÔÑé½×¶Î. ·þÎñÆ÷ÒѾ­°ÑÕâ´Îʧ°Ü¼Ç¼ÏÂÀ´,
  11.  Ê¹µÃ×÷ÕßÖªµÀÓû§µÄÐèÇó, ÒÔ±ãÒÔºó¸Ä½ø. ¸ÐлÄãµÄÄÍÐÄ.
  12.  !exit
  13. !endif
  14. !set gotm1=!lines2items $gotm
  15. !set gotm1=!item 1 to 20 of $gotm1
  16. !if .. isin $gotm1
  17.  !reset gotm
  18. !endif
  19. !for s in $gotm1
  20.  !set vars=!record 5 of $formdir/$s.def
  21.  !set vars=!nonempty lines $vars
  22.  !if $vars!=$empty
  23.   !set n_=!linecnt $vars
  24.   !for i=1 to $n_
  25.    !set l_=!line $i of $vars
  26.    !set var_$i=!randitem $l_
  27.   !next i
  28.  !endif
  29.  
  30.  !set ops=!record 2 of $formdir/$s.def
  31.  !set submits=!record 3 of $formdir/$s.def
  32.  !set content=!record 4 of $formdir/$s.def
  33.  
  34.  !set ops=!nonempty lines $ops
  35.  !set ocnt=!linecnt $ops
  36.  !reset oplist
  37.  !for op=1 to $ocnt
  38.   !set ol=!line $op of $ops
  39.   !distribute items $ol into n_,v_
  40.   !set n_=!word 1 of $n_
  41.   !if $n_!=$empty and $v_!=$empty
  42.    !set op_$n_=$v_
  43.    !set oplist=!append item $n_ to $oplist
  44.   !endif
  45.  !next op
  46.  !set oplist=!listcomplement module,size,color,precision in $oplist
  47.  
  48.  !set submits=!translate internal " to $ $ in $submits
  49. !set submits=!nonempty lines $submits
  50. !set scnt=!linecnt $submits
  51. !for su=1 to $scnt
  52.  !set sl=!line $su of $submits
  53.  !distribute items $sl into n_,v_
  54.  !set n_=!word 1 of $n_
  55.  !if $v_!=$empty
  56.   !if $n_!=$empty
  57.    !set N_=NAME=$n_
  58.   !else
  59.    !reset N_
  60.   !endif
  61.   !set submit$su=<INPUT TYPE=SUBMIT $N_ VALUE="$v_" $jsdef>
  62.  !endif
  63. !next su
  64.  
  65. !default op_size=$default_size
  66. !default op_module=$default_module
  67. !default op_color=$default_color
  68. !default op_precision=$default_precision
  69. !set content=!nonempty lines $content
  70. <!--     Independent calculator form: $s     -->
  71. <FORM TARGET=$winname NAME=calcform ACTION="$wims_ref_name">
  72. <INPUT TYPE=HIDDEN NAME=session VALUE=popup> $sizeinput
  73. <INPUT TYPE=HIDDEN NAME=module VALUE=$op_module>
  74. <INPUT TYPE=HIDDEN NAME=precision VALUE=$op_precision>
  75. !for o in $oplist
  76. <INPUT TYPE=HIDDEN NAME=$o VALUE="$(op_$o)">
  77. !next o
  78. <TABLE WIDTH="90%" BORDER=0 CELLSPACING=0 CELLPADDING=3 BGCOLOR="$op_color">
  79. <TR>$content
  80. </TD></TR></TABLE></FORM>
  81. !reset op_module, op_color, op_size, op_precision
  82. !next s
  83.  
  84. !if noremark notwordof $wims_read_parm
  85. <p><small><b>¸½×¢.</b>
  86. ÉÏÊö±í¸ñÊǶÀÁ¢ÓÚ Wims ·þÎñÆ÷µÄ, Ò²ÊÇÏ໥¶ÀÁ¢µÄ.
  87. ËùÒÔËüÃÇÒ²ÄÜÔÚÄã×Ô¼ºµÄÍøÒ³ÄÚÕý³£¹¤×÷ (µ«ÊÇÄãµÄ»úÆ÷±ØÐëÔÚÏß).
  88. Äã¿ÉÒÔ°ÑÕâ¸öÒ³Ãæ±£´æÏÂÀ´, ¸ù¾ÝÐèÒªÐÞ¸Ä, Ò²¿ÉÒÔ°ÑÆäÖеÄÄÚÈݽØÈ¡ÏÂÀ´·Åµ½×Ô¼ºµÄÍøÒ³ÉÏ.
  89. </small>
  90. !endif
  91. <p>
  92.  
  93.