自制的點擊計數器
代碼：
<%Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 1, False)
fcount=RS.ReadLine
RS.Close
fcount=fcount+1
'This code is disabled due to the write access security on our server:
'Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 2, False)
'RS.Write fcount
'RS.Close
Set RS=Nothing
Set FS=Nothing
%>
<!DOCTYPE html>
<html>
<body>
<p>
This page has been visited <%=fcount%> times.
</p>
</body>
</html>
結果：
This page has been visited 12345 times.
相關文章
- ASP 程序
- ASP Application 對象
- ASP Dictionary 對象
- ASP Column 屬性
- ASP ReadLine 方法
- ASP Write 方法
- ASP Expires 屬性
- ASP Redirect 方法
- ASP Form 集合
- ASP LCID 屬性
- ASP DeleteFolder 方法
- ASP FolderExists 方法
- ASP GetFileName 方法
- ASP GetParentFolderName 方法
- ASP GetSpecialFolder 方法
- ASP MoveFolder 方法
- ASP.NET HtmlAnchor 控件
- ASP.NET HtmlButton 控件
- ASP.NET HtmlSelect 控件
- VB 實例 可重復使用的頭部和底部
ASP基礎