20-3 ?厩鍂蝭�?銝�嚗𡁶雯?�?靘�赤甈⊥彍

本節將使用兩個小範例來說明如何使用 JavaScript 進行檔案讀取與目錄讀取的應用。
首先我們先看看計數器的範例。我們在前面幾個小節也曾經介紹過計數網頁的範例，那些範例是利用 Application 和 Session 變數來達到計數的功能，由於這些變數都儲存在記憶體中，因此這些計數資料會因伺服器的重開機而流失。而本小節中的計數網頁，是將計數資料儲存在一個計數檔案之中，比較穩定，請見此範例：
Example（fileAccess/pageHitCounter01.asp）：
在上述範例中，只要使用者按下瀏覽器的「重新整理」，計數器就會加 1。此範例的原始碼如下：
原始檔（fileAccess/pageHitCounter01.asp）：（灰色區域按兩下即可拷貝）
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
FullPath = Server.MapPath("/jang/courses/fintech/quiz")
Set fd = fso.GetFolder(FullPath)
url=Request.ServerVariables("URL")
thisFileName=fso.GetFileName(url)
parentPath=fso.GetParentFolderName(url)
rarFile=fso.GetFileName(parentPath) & ".rar"
rarPath=fso.GetParentFolderName(parentPath) & "/" & rarFile
'Response.Write(rarPath)
rarExist=fso.FileExists(Server.MapPath(rarPath))
'Response.Write(rarExist)
If rarExist Then
%>

<h3><img src="/jang/graphics/dots/redball.gif"> Download this directory in a compressed file:</h3>
<blockquote>
<a href="<%=rarPath%>"><%=rarFile%></a>
</blockquote>
<%End If%>

<%
' Compute no. of files
fileNum=0
for each f in fd.files
	fileNum=fileNum+1
Next
If fileNum>0 Then	' If fileNum=1 ===> Only this file exists
%>
<h3><img src="/jang/graphics/dots/redball.gif"> File listing:</h3>
<table border=1 align=center>
<tr>
<th>File name</th><th>Size (Bytes)</th><th>Last modified</th>
<%
for each f in fd.files
	If f.name<>thisFileName Then
		response.write("<tr align=center>")
		response.write("<td align=left><a target=_blank href=""" & f.name & """>" & f.name & "</a></td>")
		response.write("<td align=right>" & f.size & "</td>")
		response.write("<td>" & f.DateLastModified & "</td>")
		response.write("<tr>")
	End If
next
%>
</table>
<%End If%>

<%
' Compute no. of folders
folderNum=0
For Each f1 in fd.SubFolders
	folderNum=folderNum+1
Next
If folderNum>0 Then
%>
<h3><img src="/jang/graphics/dots/redball.gif"> Directory listing:</h3>
<table border=1 align=center>
<tr>
<th>Folder name</th>
<%
For Each f1 in fd.SubFolders
	response.write("<tr align=center>")
	response.write("<td align=left><a target=_blank href=""" & f1.name & """>" & f1.name & "</a></td>")
Next
%>
</table>
<%
End If
set fso=nothing
set fd=nothing
%>
由上述程式碼可看出，我們必須先產生一個 FileObject 的物件，再經由此物件的 OpenTextFile 方法來開啟計數檔案並回傳檔案指標 Out，然後再經由 Out 的 ReadLine 和 WriteLine 方法來對檔案進行讀取和寫入。但在使用此計數網頁之前，我們必須先準備一個計數檔案（在此例是 pageHitCounter.cnt），以便儲存計數資料。由於計數資料室儲存在檔案之中，因此並不會因為伺服器的重開機而造成計數資料的流失。
我們也可以將計數功能寫成一個函數，並讓程式碼自動去尋找計數檔案，這時候只要網頁導入包含此函數的檔案，就可以具備計數功能。例如：
Example（fileAccess/pageHitCounter02.asp）：
在上述範例中，只要使用者按下瀏覽器的「重新整理」，計數器就會加 1。此範例的原始碼如下：
原始檔（fileAccess/pageHitCounter02.asp）：（灰色區域按兩下即可拷貝）
<%@language=JScript%>
<% title="以檔案為主的計數器" %>

<hr>

<center>

您是本頁的第 <font color=green><%=pageHitCounter()%></font> 位訪客.！
<%counterFile=Request.ServerVariables("URL") + ".cnt";%>
<p>（本頁的計數資料儲存在 <a href="<%=counterFile%>"><%=counterFile%></a>。）
<p>（按「<a href="javascript:history.go(0)">重新整理</a>」以增加計數資料。）
</center>

<hr>

紀錄計數資料的檔案則是在
原始檔（fileAccess/pageHitCounter02.asp.cnt）：（灰色區域按兩下即可拷貝）
7677
而 counter.inc 的原始碼如下：
原始檔（fileAccess/counter.inc）：（灰色區域按兩下即可拷貝）
<script runat=server language=jscript>
function pageHitCounter(){
	fso = new ActiveXObject("Scripting.FileSystemObject");
	counterFile = Request.ServerVariables("PATH_TRANSLATED") + ".cnt";	// 找出記數檔案在硬碟中的實際位置
	fid = fso.OpenTextFile(counterFile, 1);			// 開啟唯讀檔案
	count = fid.ReadLine();					// 從檔案讀出記數資料
	fid.Close();						// 關閉檔案
	count++;						// 增加記數資料
	fid = fso.OpenTextFile(counterFile, 2);			// 開啟檔案並允許寫入
	fid.WriteLine(count);					// 寫入檔案
	fid.Close();						// 關閉檔案
	return(count);
}
</script>

<script runat=server language=vbscript>
Function pageHitCounter
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	counterFile=Request.ServerVariables("PATH_TRANSLATED") & ".cnt"	' 找出記數檔案在硬碟中的實際位置
	'Response.Write(counterFile)
	Set Out= fso.OpenTextFile(counterFile, 1, FALSE, FALSE)	' 開啟唯讀檔案
	count = Out.ReadLine					' 從檔案讀出記數資料
	Out.Close						' 關閉檔案
	count= count+1						' 增加記數資料
	Set Out= fso.CreateTextFile (counterFile, TRUE, FALSE)	' 開啟檔案並允許寫入
	Out.WriteLine(count)					' 寫入檔案
	Out.Close						' 關閉檔案
	pageHitCounter=count					' 回傳資料
End Function
</script>
在上述範例中，計數檔案的名稱都是原網頁檔案名稱再加上 ".cnt"，因此只要在原網頁導入 count.inc，此網頁就具有個別計數功能。此外，此檔案包含兩個函數，可以分別用在 JScript 和 VBScript。
JScript 程式設計與應用：用於伺服器端的 ASP 環境