歡迎光臨~~您是本站第 <%
Set fsObject = Server.CreateObject ("Scripting.FileSystemObject")
FileName = Server.MapPath ("./Counter/DataFile/Counter.cnt")
Set txtsRead = fsObject.OpenTextFile(FileName, 1 ,False)
Num = txtsRead.ReadLine
for i = 1 to Len(num)
%>
 %>.gif)
<%
next
Set txtsWrite = fsObject.OpenTextFile(FileName, 2 ,False)
txtsWrite.WriteLine num + 1
%>位訪客！
<%
next
Set txtsWrite = fsObject.OpenTextFile(FileName, 2 ,False)
txtsWrite.WriteLine num + 1
%>位訪客！