<%
'網頁人數計數
strPath = Server.Mappath("online.txt")
SET Fso = Server.CreateObject("Scripting.FileSystemObject")
Set InStream = FSO.OpenTextFile (strPath)
strInLine = Instream.ReadLine
if strInLine="" Then strInLine=00012345
strInLine=int(strInLine)+1
Application("Visitors")=strInLine
SET Act = Fso.CreateTextFile(strPath, true)
Act.Write(strInLine)
InStream.Close
Set InStream = Nothing
Visitors=Application("Visitors")
Function GCounter(Visitors)
Dim S, i, G
S = CStr(Visitors)
For i = 1 to Len(S)
G = G & ""
Next
GCounter = G
End Function
%>
閩南語典藏－歷史語言與分佈變遷資料庫
