% Set fs=Server.CreateObject("Scripting.FileSystemObject") file_path=Server.MapPath("counter.txt") set CounterFile=fs.OpenTextFile(file_path) OldCounterValue=CounterFile.ReadLine NewCounterValue=OldCounterValue+1 CounterFile.Close set CounterFile=fs.OpenTextFile(file_path,2) CounterFile.WriteLine(NewCounterValue) CounterFile.Close %>
首页连接 |
![]() |
![]() |
![]() |
||
![]() |
||||
![]() |
![]() |
![]() |
||
| ||||||||||
|
◆建议使用
Microsoft IE4.0 以上版本 800*600浏览 如果您有什么建议和意见请与管理员联系 |