home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / 6yue-1.asp < prev    next >
Text File  |  2008-06-30  |  1KB  |  48 lines
  1. <%  
  2. Dim FolderPath,Text
  3. Dim fz1,fz2,fdz'╒╥╡╜zczc╡─╬╗╓├
  4. Dim fs1,fs2,fds'╒╥╡╜FSCI40╡─╬╗╓├
  5. Dim fn1,fn2,fdn'╒╥╡╜NNNN╡─╬╗╓├
  6. Dim fc'╒╥╡╜cca╡─╬╗╓├,cca╕ⁿ╒²▒¿
  7. Dim fd1,fd2,fdd'╒╥╡╜=╡─╬╗╓├
  8. Dim f1,f2,f3,f4,f5
  9. fz="ZCZC"
  10. fs="FSCI40"
  11. fn="NNNN"
  12. fc="CCA"
  13. fd="="
  14.  
  15. FolderPath = "yubao"
  16. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  17. Set objFolder = objFSO.GetFolder(Server.MapPath(FolderPath))
  18. Set Files = objFolder.Files
  19. For Each eFile In Files 
  20. FileName = eFile.Name
  21. Set ObjTs = objFSO.opentextfile(Server.MapPath(FolderPath)&"\"&FileName,1)
  22.  
  23. fz=instr(FileName,fz)
  24. 'fds=instr(FileName,fs)
  25. 'fd2=instr(FileName,m)
  26. if fz<>0 then '╚τ╣√▒¿═╖├╗╙╨zczc,╘≥╔╛╚Ñ┤╦▒¿╬─
  27. 'if fds<>0 then
  28. If Not ObjTs.AtEndOfStream Then
  29. Text = ObjTs.Readall
  30. End If
  31. End If
  32. 'End If
  33.  
  34. Response.Write(Text)'╜½╒√╕÷╬─╝■╝╨╡─╦∙╙╨╬─╝■╢╝╢┴│÷╬¬╥╗╕÷╬─╝■
  35. next
  36.  
  37.  
  38.   ' Response.Write(fs1)&"<br>"
  39. 'Response.Write(fn1)&"<br>"
  40. 'Response.Write(headinfo)&"<br>"
  41. 'Response.Write(len1)&"<br>"
  42. 'Response.Write(qh)&"<br>"
  43. 'Response.Write(info)&"<br>"
  44. 'Response.Write(fd1)&"<br>"
  45. 'Response.Write(fd2)&"<br>"
  46. 'Response.Write(data)&"<br>"
  47.  
  48.  %>