歡迎光臨您是第<%
COUNTERFILE=SERVER.MAPPATH("/counter/")+"\counter.txt"
SET FILEINSTANCE=SERVER.CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
SET TEXTINSTANCE=FILEINSTANCE.OPENTEXTFILE(COUNTERFILE,1,FALSE,FALSE)
VISITORNUM=TEXTINSTANCE.READLINE
%> <% IF REQUEST.QUERYSTRING("CHOICE")<>"2" THEN %><% VISITORNUM=VISITORNUM+1 %><% END IF %><%
NUMLENGTH=LEN(VISITORNUM)
%><% FOR I=1 TO NUMLENGTH STEP 1 %>
<% NEXT %> <%
SET TEXTINSTANCE=FILEINSTANCE.CREATETEXTFILE(COUNTERFILE,TRUE,FALSE)
TEXTINSTANCE.WRITELINE(VISITORNUM)%> 位訪客