<%
countlong=8
count=server.mappath("count.txt")
set cou=server.createobject("scripting.filesystemobject")
set out=cou.opentextfile(count,1,false,false)
counter=out.readline
out.close
if session("in")<>"in" then
session("in")="in"
set out=cou.createtextfile(count,true,false)
application.lock
counter=counter+1
out.writeline(counter)
application.unlock
out.close
end if
co=cstr(counter)
response.write "
"
response.write "
"
response.write " 艇頁及"
for i=1 to countlong-len(co)
response.write ""
next
for i=1 to len(co)
response.write ""
next
response.write "了恵諒宀"
response.write "
"
next
for i=1 to len(co)
response.write "![](images/"& mid(co,i,1) &".gif)
"
next
response.write "了恵諒宀"
response.write "