📄 counter1.asp

📁 项目开发对初学者来说非常重要

💻 ASP

字号:

<%
Dim Counter
Sub IncrementCounter()
    ' 建立一 FileSystemObject 对象
    Set fs = Server.CreateObject("Scripting.FileSystemObject")
    counter_file = Server.MapPath("/counter.txt")

    ' 启动 /counter.txt 文件，并且读取记录在文件中的 counter
    Set txt = fs.OpenTextFile(counter_file,1,true)
    Counter = txt.ReadLine
    txt.Close

    ' 将计数器加一
    Counter = Counter + 1

    ' 将计数器写入 /counter.txt 文件之中
    Set txt = fs.CreateTextFile( counter_file, True )
    txt.WriteLine(Counter)
    txt.Close
End Sub

Application.Lock
IncrementCounter   ' 将访问者计数器加一，并写入文件中
Application.UnLock
%>
<HTML>
<BODY BGCOLOR=WHITE>
<CENTER><H2>欢迎访问star的个人主页<HR></H2>
您是本站第<%=Counter%> 位贵宾！
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -