ASP學習之FSO組件操作執行個體技巧(5)

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，顯示讀取的資訊

  　　一、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