<% '網頁人數計數 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 %> 閩南語典藏-歷史語言與分佈變遷資料庫

您是第到訪人次 位到訪者

 

 

中文 English

 

語言典藏

  
中央研究院語言所 版權所有