home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / zz / suzu-1.asp < prev    next >
Text File  |  2008-07-31  |  1KB  |  83 lines
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <% Option Explicit %>
  3.  
  4. <% 
  5.  
  6. Dim objFSO
  7. Dim objTS1,objTS2
  8. Dim FilePath1,FilePath2
  9. Dim zd,zdhz
  10. Dim z1,z2
  11. Dim Num
  12. Dim zdArray(2432)
  13. Dim zdhzArray(2432)
  14. Dim AtEndOfStream
  15.  
  16. FilePath1 = "zd.asp"
  17. FilePath1 = Server.MapPath(FilePath1)
  18. FilePath2 = "zdhz.asp"
  19. FilePath2 = Server.MapPath(FilePath2)
  20.  
  21.  
  22. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  23. Set objTS1 = objFSO.OpenTextFile(FilePath1, 1)
  24.  
  25.  
  26.  
  27. Num = 2432
  28. For z1 = 0 to Num
  29. '    objTS.SkipLine
  30. zd = objTS1.ReadLine
  31. zdArray(z1)=zd 
  32. 'Response.Write("╒╛╡π"&"("&z1&")"&zdArray(z1)&"<br>")
  33. Next
  34.  
  35. Set objTS2 = objFSO.OpenTextFile(FilePath2, 1)
  36.  
  37.  
  38. Num = 2432
  39. For z2 = 0 to Num
  40. '    objTS.SkipLine
  41. zdhz = objTS2.ReadLine
  42. zdhzArray(z2)=zdhz 
  43. 'Response.Write("╒╛╡π"&"("&z2&")"&zdhzArray(z2)&"<br>")
  44. Next
  45.  
  46.  
  47. Set objTS2 = nothing
  48. Set objTS1 = nothing
  49. Set objFSO = nothing
  50.  
  51. dim n
  52. dim t1
  53. dim t2
  54. n=55578
  55. n=CStr(n)
  56.  for z1=0 to 2432
  57.        
  58.        zdArray(z1)
  59. '╘┌╒Γ└∩╝╙╕÷╧╘╩╛╙∩╛Σ,┐┤╘┌╤¡╗╖╓╨B╩╟╩▓├┤╓╡.
  60. 'Response.Write("t1:"&t1& "<br>")
  61.        if n=zdArray(z1)then
  62.         z2=z1
  63.         Response.Write("z1:"&z1& "<br>")
  64.         t2=zdhzArray(z2)
  65.             '╒Γ└∩╥▓╝╙╥╗╕÷╧╘╩╛C╡─
  66.     
  67.         Response.Write("t2:"&t2&"<hr  Color=red>")
  68.         Exit for
  69.         End if
  70.   Next
  71.  
  72. '╫≈╥╡ú║
  73. '1.▓╗╩╣╙├╫╖╝╙─ú╩╜(8)ú¼╓╗╘╩╨φ╩╣╙├╢┴╗≥╨┤─ú╩╜ú¼═Ω│╔╘┌╘¡└┤─┌╚▌╧┬╥╗╨╨╫╖╝╙66666╬σ╕÷╩²╫╓íú
  74. '2.╘┌╣▓5╨╨╘¡╬─╝■try.asp╓╨╡┌╢■╨╨╡─╡┌╢■╕÷╬╗╓├▓σ╚δBú¼╩╟╕├╨╨─┌╚▌▒Σ│╔2B2222
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83. %>