ASP教程之ASP进修之FSO组件操作实例技能(5)

问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.fso|技能        本法式中采取的是mid函数，该函数的感化是前往某字符串中从第几位字符入手下手的几个字符。格局即为：Mid(string,start,length)
  <script language=VBs>
  cn_string= "cnbruce love cnrose"
  cn_start = 9
  cn_length = 4
  alert (mid(cn_string,cn_start,cn_length))
  </script>
  学会了FSO提取文件值，也学会了将信息输出到文件中，那上面就再来使用使用下。
  　　不晓得你有无如许的习气：看到一个文件，不盲目的右键选择用记事本翻开。呵呵，几近没有哪一个文件是不成以的。所以如今，可以默许一切文件都是文本，只是后缀名分歧罢了；那末也就是说，如今可以提取任一文件的内容信息。OK，就来想象一下：
  　　1，提取一个文件的途径（采取file按钮停止查找定位）
  　　2，将该途径文件翻开，并读取一切行
  　　3，显示读取的信息
  　　1、viewcode.ASP
  <%Function ShowCode(filename)
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set cnrs = fso.OpenTextFile(filename, 1)
  While Not cnrs.AtEndOfStream
  rsline = cnrs.ReadLine
  rsline = server.HTMLEncode(rsline)
  Response.Write(rsline & "<br>")
  Wend
  end Function%>
  <form action="viewcode.asp" method="post">输出文件名
  <input type="file" name="filename">
  <input type="submit" value="检查源法式">
  </form>
  <%file=request.form("filename")
  response.write (file & "源法式以下<hr>")
  If trim(file)<> "" then
  Call ShowCode(file)
  End If%>
  　　以上法式调试时，可以选择html，asp页面，也能够翻开任一使用法式等。
  　　界说的ShowCode函数，次要感化是翻开、读取并显示文件中一切信息内容。注重添加了server.HTMLEncode(rsline)，针对含有尺度HTML代码的文件。
  　　显示文件中一切行即用一前提轮回停止遍历显示了。
   
  While Not cnrs.AtEndOfStream...Wend
asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！