|
您是第<%
Set fsObject = Server.CreateObject ("Scripting.FileSystemObject")
FileName = Server.MapPath ("./DataFile/Counter.cnt")
Set txtsRead = fsObject.OpenTextFile(FileName, 1 ,False)
Num = txtsRead.ReadLine
for i = 1 to Len(num)
%>
<%
next
Set txtsWrite = fsObject.OpenTextFile(FileName, 2 ,False)
txtsWrite.WriteLine num + 1
%>
位访问者 |
|
仪器之窗
|
广告投放 |
联系我们
| |
|