home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / zz / fanyi.asp < prev    next >
Text File  |  2008-07-28  |  2KB  |  62 lines
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <% Option Explicit %>
  3. <% 
  4. Dim tqxxString,fxString'▒¿╬─╡τ┬δ╫╓╖√┤«
  5. Dim htqxxString,hfxString,hflString'╖¡╥δ│╔║║╫╓╫╓╖√┤«
  6. Dim tqxxArray,fxArray '▒¿╬─╡τ┬δ╩²╫Θ
  7. Dim htqxxArray,hfxArray,hflArray'╖¡╥δ│╔║║╫╓╩²╫Θ
  8. Dim y,z,k,h,m
  9. dim n
  10.  
  11. tqxxString = "00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31"
  12. fxString="0,1,2,3,4,5,6,7,8,9"
  13. htqxxString="╟τ,╢α╘╞,╥⌡,╒≤╙Ω,└╫╒≤╙Ω,└╫╒≤╙Ω░Θ╙╨▒∙▒ó,╙Ω╝╨╤⌐,╨í╙Ω,╓╨╙Ω,┤≤╙Ω,▒⌐╙Ω,┤≤▒⌐╙Ω,╠╪┤≤▒⌐╙Ω,╒≤╤⌐,╨í╤⌐,╓╨╤⌐,┤≤╤⌐,▒⌐╤⌐,╬φ,╢│╙Ω,╔││╛▒⌐,╨í╡╜╓╨╙Ω,╓╨╡╜┤≤╙Ω,┤≤╡╜▒⌐╙Ω,┤≤▒⌐╙Ω╡╜╠╪┤≤▒⌐╙Ω,╨í╡╜╓╨╤⌐,╓╨╡╜┤≤╤⌐,┤≤╡╜▒⌐╤⌐,╕í│╛,╤∩╔│,╟┐╔││╛▒⌐"
  14. hfxString="╛▓╖τ,╢½▒▒╖τ,▒Γ╢½╖τ,╢½─╧╖τ,─╧╖τ,╬≈─╧╖τ,▒Γ╬≈╖τ,╬≈▒▒╖τ,▒▒╖τ,╨²╖τ"
  15. hflString="╛▓╖τ,3-4╝╢,4-5╝╢,5-6╝╢,6-7╝╢,7-8╝╢,8-9╝╢,9-10╝╢,10-11╝╢,11-12╝╢"
  16.  
  17. tqxxArray= split(tqxxString,",")
  18. For y=0 to Ubound(tqxxArray)
  19. Response.write "tqxxArray"&(y)&tqxxArray(y) & "<br>"
  20. Next
  21.  
  22. fxArray= split(fxString,",")
  23. For z=0 to Ubound(fxArray)
  24. Response.write "fxArray"&z&fxArray(z) & "<br>"
  25. Next
  26.  
  27. htqxxArray= split(htqxxString,",")
  28. For k=0 to Ubound(htqxxArray)
  29. Response.write "htqxxArray"&k&htqxxArray(k) & "<br>"
  30. Next
  31.  
  32.  
  33.  
  34. hfxArray= split(hfxString,",")
  35. For h=0 to Ubound(hfxArray)
  36. Response.Write("hfxArray"&h& "<br>")
  37. 'Response.write "hfxArray"&h&hfxArray(h) & "<br>"
  38. Response.Write(hfxArray(h)& "<br>")
  39. Next
  40.  
  41. hflArray= split(hflString,",")
  42. For m=0 to Ubound(hflArray)
  43. Response.Write("hflArray"&m& "<br>")
  44. 'Response.write "hflArray"&m&hflArray(m) & "<br>"
  45. Response.Write(hflArray(m) & "<br>")
  46. Next
  47.  
  48. n=07
  49. dim b
  50.  
  51.  
  52.  
  53.   ' for y=0 to 31
  54. '       
  55. '       b=tqxxArray(y)
  56. '       if b=n then
  57. '        k=y
  58. '        n=htqxxArray(k)
  59. '   next
  60.  
  61.         
  62.  %>