|
 不值得为过去伤心
|
|
|
|
|
|
<%dim visitors
countfile=server.mappath("count.txt")
Set fs = CreateObject ("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(countfile)
visitors=thisfile.readline
thisfile.close
visitors=visitors + 1
response.write ""
for i=1 to 5-len(visitors)
response.write "0"
next
response.write visitors & ""
Set thisfile = fs.CreateTextFile(countfile)
thisfile.WriteLine(visitors)
thisfile.close
set fs=nothing%>
|
|
|
|
|
|
|
|
|
|
|
|
|
 【软件注册码1】
【软件注册码2】
【三个有助于你的小寓言】
【Windows XP远程桌面连接】
【Perl CGI 程式写作常问问题集】
【PWS中调试ASP、CGI、PHP、JSP】
【健康有则改之:不良生活习惯18条】
|
|
|
|
|
|
|
|
|
|
|
