home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / 410.asp < prev    next >
Text File  |  2008-04-10  |  725b  |  30 lines
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  3. <html xmlns="http://www.w3.org/1999/xhtml">
  4. <head>
  5. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  6. <title>╬▐▒Ω╠Γ╬─╡╡</title>
  7. </head>
  8.  
  9. <body>
  10. <% 
  11. dim rline,a1,a2,a20,a3
  12. whichfile=server.mappath("zz.txt")
  13. Set fso = CreateObject("Scripting.FileSystemObject")
  14. Set txt = fso.OpenTextFile(whichfile,1)
  15. rline = txt.ReadLine 
  16. 'rline = rline &;amp; "<br>" &;amp; txt.ReadLine
  17. Response.Write rline
  18. a1=Left(rline, 4)
  19. a20=Left(rline, 8)
  20. a2=Right(a20, 4)
  21. Response.Write a1
  22. Response.Write a2
  23. txt.Close
  24.  
  25.  
  26.  
  27.  %>
  28. </body>
  29. </html>
  30.