どのようにカウンタを新規加入者だけカウントしますか？
どのようにカウンタを新規加入者だけカウントしますか？script laguage=vbscript runal=server>sub appication_onstartfilepath=server.mappath(「count」)filename=filepath+「\counter.txt」set fs=createobject(「scripting.filesysteemoject」)if not fs.fileexists(filename)then fs.creat extfile(filename) set f=fs.getfile(filename) s=1 Set ts=f.OpenAsText Stream(2、-2)ts.writeline(cstr(s)ts.close else set f=fs.getfile(filename) Set ts=f.OpenAsTextStream(1,-2) s=ts.readline+1 ts.closeend ifplication（「visitor」）=send sub sub session_onstartsession.timeout=5 appplication(「visitor」)=appication(「visitor」)+1 set f=fs.getfile(filename) Set ts=f.OpenAsTextStream(2、-2) ts.writeline(「visitor」)ts.closeend sub<%s=cstr(apple)+10^6)s=mid(s，2,6)for=1 to 6 レスポンス.write"
flashdays/liyanbang/imags/"&mid(s，i，1)&'.gif'width='18'height='25''next%
flashdays/liyanbang/imags/"&mid(s，i，1)&'.gif'width='18'height='25''next%