 网站总访问量：<%
'一个简单的计数器程序
dim a1
Set fs=CreateObject("Scripting.FileSystemObject")
Set a=fs.openTextFile(server.mappath("1/count.txt"))
count=a.readline
count=trim(count)
for i=1 to len(count)
a1=mid(count,i,1)
response.write "![](1/"&a1&".gif) "
next
'response.write a1
count=count+1
Set fs = CreateObject("Scripting.FileSystemObject")
Set a=fs.createTextfile(server.mappath("1/count.txt"))
a.writeline (count)
%>
88286次 |
 本页采用FLASH动画技术，如无法看见动画，请 安装插件 或 直接进入 |
| If you are not able to view animates picture,please install plug-in first or Enter. |
| Copyright @2007 ALL Rights Reserved |
| 粤ICP备05033398号 |
|