ÎÄ×ÖºÍͼƬÈÎÑ¡¹¦ÄܼÇÊýÆ÷

<%
dim vistors,countfile,fsc,thisfile,countlen,i
countfile=server.mappath("counter.dat")
set fsc=server.createobject("scripting.filesystemobject")
set thisfile=fsc.opentextfile(countfile,1,FALSE,FALSE)
visitors=thisfile.readline
thisfile.close
set fsc=server.createobject("scripting.filesystemobject")
set thisfile=fsc.createtextfile(countfile,TRUE,FALSE)
if IsEmpty(session("connected")) then
application.lock
visitors=visitors+1
thisfile.writeline(visitors)
application.unlock
else
application.lock
visitors=visitors
thisfile.writeline(visitors)
application.unlock
end if
session("connected")=TRUE
countlen=len(visitors)
Èç¹ûÄú²»ÏëʹÓÃͼÐΣ¬
Îı¾¼ÆÊýÆ÷£º
response.write "&nbsp;"&"<font color=7B96C6>"&visitors&"</font>"&"&nbsp;"                  ÔÚ¶¯Ì¬Ò³ÏÔʾ
response.write "document.write(&nbsp;<font color=999999>"&visitors&"</font>&nbsp;</font>)" ÔÚ¾²Ì¬Ò³ÖÐÏÔʾ

ÖðλÏÔʾͼÐλ¯Êý×Ö£¬Õâ¸ù¾Ý×Ô¼ºµÄϲºÃÀ´Ñ¡ÔñͼÐλ¯»¹ÊÇÊý×ÖÏÔʾ¡£
ÕâÀï²»ÌṩÊý×ÖͼƬ£¡
for i=1 to countlen
response.write "<img src=skins/img/"&mid (visitors,i,1)&".gif></img>" ÔÚ¶¯Ì¬Ò³ÏÔʾ
response.write "document.write(<img src=skins/img/"&mid (visitors,i,1)&".gif></img>);"ÔÚ¾²Ì¬Ò³ÖÐÏÔʾ
next
thisfile.close
set fsc=nothing
%>