<%
Set fsObject = Server.CreateObject ("Scripting.FileSystemObject")
'建立FileSystemObject物件,並設定由fsObject物件變數引用
FileName = Server.MapPath ("counter.txt")
'取得欲操作檔案的實際磁碟位置,
'所輸入的虛擬目錄是相對於ASP網頁目前所在目錄的相對路徑
Set txtsRead = fsObject.OpenTextFile(FileName, 1 ,False)
'將檔案開啟在唯讀模式, 並以txtsRead物件代表開啟的檔案
'若檔案不存在時並不新增檔案
Num = txtsRead.ReadLine '從檔案中讀取訪客人數資料
count=6
cNum=cstr(Num)
co=len(cNum)
for i= 1 to count-co
Response.Write " "
next
for i= 1 to co
cs=mid(cNum,i,1)
Response.Write "![](/counter/"+cs+".gif) "
next
'Response.Write co '顯示訪客人數
Set txtsWrite = fsObject.OpenTextFile(FileName, 2 ,False)
'將檔案開啟在唯寫模式, 並以txtsWrite物件代表開啟的檔案
'若檔案不存在時並不新增檔案
txtsWrite.WriteLine num + 1
'將訪客人數資料加1後回存至檔案
%>
|
|
