<%
COUNTERFILE=SERVER.MAPPATH("/js.txt")
SET FILEINSTANCE=SERVER.CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
SET TEXTINSTANCE=FILEINSTANCE.OPENTEXTFILE(COUNTERFILE,1,FALSE,FALSE)
VISITORNUM=TEXTINSTANCE.READLINE
if IsEmpty(Session("Connected")) then
VISITORNUM=VISITORNUM+1
else VISITORNUM=VISITORNUM
end if
numlength=LEN(VISITORNUM)
session("Connected")=True
%>
<%
FOR I=1 TO numlength STEP 1
G = G & "![](/pic/") "
%>
<%next%>
<%
set textinstance=fileinstance.createtextfile(counterfile,true,false)
textinstance.writeline(visitornum)
%>
<%=G%> |
