<%
'一个简单的计数器程序
Set fs=CreateObject("Scripting.FileSystemObject")
Set a=fs.openTextFile(server.mappath("count.txt"))
count=a.readline
response.write "您是本站第：" & count
count=count+1
Set fs = CreateObject("Scripting.FileSystemObject")
Set a=fs.createTextfile(server.mappath("count.txt"))
a.writeline (count)
%>
位访问者
申明:本站内容大部分来源于其他网站，若有侵权,请及时告知
|
感谢biooo.com提供空间
| 首 页 | 联系站长 | FTP登陆 |
玉米草鞋版权所有  :41817848 TEL:13809365500
Copyright©2007 All Rights Reserved  |
设为首页
育种团队
