歡迎光臨您是第<% 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)%> 位訪客