home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / yubao12.asp < prev    next >
Text File  |  2008-11-17  |  7KB  |  234 lines
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <% Option Explicit %>
  3. <% 
  4. '╢┴│÷╒╛╡π╩²╛▌
  5. Dim objTS1
  6. Dim FilePath1
  7. Dim zd
  8. Dim z1,z2,z3,z4
  9. Dim Num
  10. Dim zdArray(2442)
  11. Dim zdhzArray(2442)
  12. Dim shqArray(2442)
  13. 'Dim sjhzArray(86)
  14. 'Dim sjywArray(86)
  15. 'Dim sjzdArray(86)
  16. 'Dim sjzdhzArray(86)
  17. Dim AtEndOfStream
  18. FilePath1 = "zd.asp"
  19. FilePath1 = Server.MapPath(FilePath1)
  20.  
  21. Set objTS1 = objFSO.OpenTextFile(FilePath1, 1)
  22.  
  23. Num = 2442
  24.   For z1 = 0 to Num
  25.     zd = objTS1.ReadLine
  26.     zdArray(z1)=zd 
  27. 'Response.Write("╒╛╡π"&"("&z1&")"&zdArray(z1)&"<br>")    
  28.    Next
  29. Set objTS1 = nothing
  30.  
  31. FilePath1 = "zdhz.asp"
  32. FilePath1 = Server.MapPath(FilePath1)
  33.  
  34. Set objTS1 = objFSO.OpenTextFile(FilePath1, 1)
  35.  Num = 2442
  36.  For z1 = 0 to Num
  37.   zd = objTS1.ReadLine
  38.    zdhzArray(z1)=zd
  39.   ' Response.Write("╒╛╡π"&"("&z1&")"&zdhzArray(z1)&"<br>") 
  40.  Next
  41.  Set objTS1 = nothing
  42.  
  43.  FilePath1 = "sqhz.asp"
  44. FilePath1 = Server.MapPath(FilePath1)
  45. Set objTS1 = objFSO.OpenTextFile(FilePath1, 1)
  46. Num = 2442
  47. For z1 = 0 to Num
  48. zd = objTS1.ReadLine
  49. shqArray(z1)=zd
  50. 'Response.Write("╒╛╡π"&"("&z1&")"&shqArray(z1)&"<br>")
  51. Next
  52. Set objTS1 = nothing
  53. 'í¬í¬í¬í¬í¬í¬í¬í¬í¬í¬í¬í¬í¬í¬í¬í¬í¬í¬í¬í¬╖¡╥δ╘ñ▒¿╡τ┬δ
  54. '╧┬├µ╩╟╠∞╞°╡τ┬δ║═╠∞╞°╧╓╧≤
  55.  
  56. Dim tqxxString,fxString'▒¿╬─╡τ┬δ╫╓╖√┤«
  57. Dim htqxxString,hfxString,hflString'╖¡╥δ│╔║║╫╓╫╓╖√┤«
  58. Dim tqxxArray,fxArray '▒¿╬─╡τ┬δ╩²╫Θ
  59. Dim htqxxArray,hfxArray,hflArray'╖¡╥δ│╔║║╫╓╩²╫Θ
  60. Dim y1,y2,y3,y4,y5
  61.  
  62.  
  63. 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"
  64. fxString="0,1,2,3,4,5,6,7,8,9"
  65. htqxxString="╟τ,╢α╘╞,╥⌡,╒≤╙Ω,└╫╒≤╙Ω,└╫╒≤╙Ω░Θ╙╨▒∙▒ó,╙Ω╝╨╤⌐,╨í╙Ω,╓╨╙Ω,┤≤╙Ω,▒⌐╙Ω,┤≤▒⌐╙Ω,╠╪┤≤▒⌐╙Ω,╒≤╤⌐,╨í╤⌐,╓╨╤⌐,┤≤╤⌐,▒⌐╤⌐,╬φ,╢│╙Ω,╔││╛▒⌐,╨í╡╜╓╨╙Ω,╓╨╡╜┤≤╙Ω,┤≤╡╜▒⌐╙Ω,┤≤▒⌐╙Ω╡╜╠╪┤≤▒⌐╙Ω,╨í╡╜╓╨╤⌐,╓╨╡╜┤≤╤⌐,┤≤╡╜▒⌐╤⌐,╕í│╛,╤∩╔│,╟┐╔││╛▒⌐"
  66. hfxString="╬ó╖τ,╢½▒▒╖τ,╞½╢½╖τ,╢½─╧╖τ,─╧╖τ,╬≈─╧╖τ,╞½╬≈╖τ,╬≈▒▒╖τ,▒▒╖τ,╨²╖τ"
  67. hflString="╬ó╖τ,3╡╜4╝╢,4╡╜5╝╢,5╡╜6╝╢,6╡╜7╝╢,7╡╜8╝╢,8╡╜9╝╢,9╡╜10╝╢,10╡╜11╝╢,11╡╜12╝╢"
  68.  
  69. tqxxArray= split(tqxxString,",")
  70.    For y1=0 to Ubound(tqxxArray)
  71. Next
  72.  
  73. fxArray= split(fxString,",")
  74.    For y2=0 to Ubound(fxArray)
  75. Next
  76.  
  77. htqxxArray= split(htqxxString,",")
  78.    For y3=0 to Ubound(htqxxArray)
  79. Next
  80.  
  81. hfxArray= split(hfxString,",")
  82.    For y4=0 to Ubound(hfxArray)
  83. Next
  84.  
  85. hflArray= split(hflString,",")
  86.   For y5=0 to Ubound(hflArray)
  87. Next
  88.  
  89. '---------------------------------------------------------╢┴│÷╬─▒╛╩²╛▌
  90. Dim objFSO
  91. Dim objTS
  92. Dim FilePath
  93. Dim Text
  94. Dim Text1,Text2,Text3,Text4,Text5,Text6,Text7,Text8,Text9,Text10
  95. Dim i
  96. Dim Numzd'╒╛╡π╫▄╩²
  97. Redim tq(37)
  98. FilePath = "yubao1/data.txt"
  99. FilePath = Server.MapPath(FilePath)
  100. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  101. Set objTS = objFSO.OpenTextFile(FilePath, 1)
  102. 'Text11 = objTS.ReadAll
  103. 'Response.Write("<font color=Green>╚½▓┐╬─╝■</font>"&text11&"<br>")
  104. objTS.SkipLine
  105. objTS.SkipLine
  106. objTS.SkipLine
  107. objTS.SkipLine
  108. Numzd = objTS.ReadLine
  109. Numzd = CInt(Numzd)
  110. 'Response.Write(Num&"<br>")
  111. Response.Write("<font color=Green>╬─╝■╕÷╩²</font>"&Numzd&"<br>")
  112.  
  113. For i = 0 to Numzd-1
  114.  
  115. Text = objTS.ReadLine
  116. tq(0)=mid(Text,1,5)
  117.  
  118. Response.Write("<font color=Blue>╒╛╡π╨╨</font>"&tq(0)&"<br>")
  119. Text1 = objTS.ReadLine
  120. tq(1)=mid(Text1,115,6)
  121. tq(1)=CInt(tq(1))
  122. tq(3)=mid(Text1,121,6)
  123. tq(3)=CInt(tq(3))
  124. tq(5)=mid(Text1,127,6)
  125. tq(5)=CInt(tq(5))
  126. 'Response.Write(Text1&"<br>")
  127. Response.Write("<font color=red>╡┌1╨╨</font>"&Text1&"<br>")
  128. Response.Write("<font color=Green>12╨í╩▒╠∞╞°╧╓╧≤</font>"&tq(1)&"<br>")
  129. Response.Write("<font color=Green>12╨í╩▒╖τ╧≥</font>"&tq(3)&"<br>")
  130. Response.Write("<font color=Green>12╨í╩▒╖τ╦┘</font>"&tq(5)&"<br>")
  131. Text2 = objTS.ReadLine
  132. tq(2)=mid(Text2,115,6)
  133. tq(2)=CInt(tq(2))
  134. tq(4)=mid(Text2,121,6)
  135. tq(4)=CInt(tq(4))
  136. tq(6)=mid(Text2,127,6)
  137. tq(6)=CInt(tq(6))
  138. tq(7)=mid(Text2,71,6)
  139. tq(7)=CInt(tq(7))
  140. tq(8)=mid(Text2,65,6)
  141. tq(8)=CInt(tq(8))
  142. 'Response.Write(Text2&"<br>")
  143. Response.Write("<font color=red>╡┌2╨╨</font>"&Text2&"<br>")
  144. Response.Write("<font color=Green>24╨í╩▒╠∞╞°╧╓╧≤</font>"&tq(2)&"<br>")
  145. Response.Write("<font color=Green>24╨í╩▒╖τ╧≥</font>"&tq(4)&"<br>")
  146. Response.Write("<font color=Green>24╨í╩▒╖τ╦┘</font>"&tq(6)&"<br>")
  147. Response.Write("<font color=Green>24╨í╩▒╡═╬┬</font>"&tq(7)&"<br>")
  148. Response.Write("<font color=Green>24╨í╩▒╕▀╬┬</font>"&tq(8)&"<br>")
  149. Text3 = objTS.ReadLine
  150. tq(9)=mid(Text3,115,6)
  151. tq(9)=CInt(tq(9))
  152. tq(11)=mid(Text3,121,6)
  153. tq(11)=CInt(tq(11))
  154. tq(13)=mid(Text3,127,6)
  155. tq(13)=CInt(tq(13))
  156. 'Response.Write(Text3&"<br>")
  157. Response.Write("<font color=red>╡┌3╨╨</font>"&Text3&"<br>")
  158. Response.Write("<font color=blueviolet>36╨í╩▒╠∞╞°╧╓╧≤</font>"&tq(9)&"<br>")
  159. Response.Write("<font color=blueviolet>36╨í╩▒╖τ╧≥</font>"&tq(11)&"<br>")
  160. Response.Write("<font color=blueviolet>36╨í╩▒╖τ╦┘</font>"&tq(13)&"<br>")
  161. Text4 = objTS.ReadLine
  162. tq(10)=mid(Text4,115,6)
  163. tq(10)=CInt(tq(10))
  164. tq(12)=mid(Text4,121,6)
  165. tq(12)=CInt(tq(12))
  166. tq(14)=mid(Text4,127,6)
  167. tq(14)=CInt(tq(14))
  168. tq(15)=mid(Text4,71,6)
  169. tq(15)=CInt(tq(15))
  170. tq(16)=mid(Text4,65,6)
  171. tq(16)=CInt(tq(16))
  172. 'Response.Write(Text4&"<br>")
  173. Response.Write("<font color=red>╡┌4╨╨</font>"&Text4&"<br>")
  174. Response.Write("<font color=blueviolet>48╨í╩▒╠∞╞°╧╓╧≤</font>"&tq(10)&"<br>")
  175. Response.Write("<font color=blueviolet>48╨í╩▒╖τ╧≥</font>"&tq(12)&"<br>")
  176. Response.Write("<font color=blueviolet>48╨í╩▒╖τ╦┘</font>"&tq(14)&"<br>")
  177. Response.Write("<font color=blueviolet>48╨í╩▒╡═╬┬</font>"&tq(15)&"<br>")
  178. Response.Write("<font color=blueviolet>48╨í╩▒╕▀╬┬</font>"&tq(16)&"<br>")
  179. Text5 = objTS.ReadLine
  180. tq(17)=mid(Text5,115,6)
  181. tq(17)=CInt(tq(17))
  182. tq(19)=mid(Text5,121,6)
  183. tq(19)=CInt(tq(19))
  184. tq(21)=mid(Text5,127,6)
  185. tq(21)=CInt(tq(21))
  186. 'Response.Write(Text5&"<br>")
  187. Response.Write("<font color=red>╡┌5╨╨</font>"&Text5&"<br>")
  188. Response.Write("<font color=dodgerblue>60╨í╩▒╠∞╞°╧╓╧≤</font>"&tq(17)&"<br>")
  189. Response.Write("<font color=dodgerblue>60╨í╩▒╖τ╧≥</font>"&tq(19)&"<br>")
  190. Response.Write("<font color=dodgerblue>60╨í╩▒╖τ╦┘</font>"&tq(21)&"<br>")
  191. Text6 = objTS.ReadLine
  192. tq(18)=mid(Text6,115,6)
  193. tq(18)=CInt(tq(18))
  194. tq(20)=mid(Text6,121,6)
  195. tq(20)=CInt(tq(20))
  196. tq(22)=mid(Text6,127,6)
  197. tq(22)=CInt(tq(22))
  198. tq(23)=mid(Text6,71,6)
  199. tq(23)=CInt(tq(23))
  200. tq(24)=mid(Text6,65,6)
  201. tq(24)=CInt(tq(24))
  202. 'Response.Write(Text6&"<br>")
  203. Response.Write("<font color=red>╡┌6╨╨</font>"&Text6&"<br>")
  204. Response.Write("<font color=dodgerblue>72╨í╩▒╠∞╞°╧╓╧≤</font>"&tq(18)&"<br>")
  205. Response.Write("<font color=dodgerblue>72╨í╩▒╖τ╧≥</font>"&tq(20)&"<br>")
  206. Response.Write("<font color=dodgerblue>72╨í╩▒╖τ╦┘</font>"&tq(22)&"<br>")
  207. Response.Write("<font color=dodgerblue>72╨í╩▒╡═╬┬</font>"&tq(23)&"<br>")
  208. Response.Write("<font color=dodgerblue>72╨í╩▒╕▀╬┬</font>"&tq(24)&"<br>")
  209. Text7 = objTS.ReadLine
  210. 'Response.Write(Text7&"<br>")
  211. 'Response.Write("<font color=red>╡┌7╨╨</font>"&Text7&"<br>")
  212. Text8 = objTS.ReadLine
  213. 'Response.Write(Text8&"<br>")
  214. 'Response.Write("<font color=red>╡┌8╨╨</font>"&Text8&"<br>")
  215. Text9 = objTS.ReadLine
  216. 'Response.Write(Text9&"<br>")
  217. 'Response.Write("<font color=red>╡┌9╨╨</font>"&Text9&"<br>")
  218. Text10 = objTS.ReadLine
  219. 'Response.Write(Text10&"<br>")
  220. 'Response.Write("<font color=red>╡┌10╨╨</font>"&Text10&"<br>")
  221.  
  222. Next
  223.  %>
  224.  
  225.  <html>
  226. <head>
  227. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  228. <title>╛½╧╕╗»╘ñ▒¿┤ª└φ▒¿╬─</title>
  229. </head>
  230.  
  231. <body>
  232. </body>
  233. </html>
  234.