counter.asp

来自「系里的网站设计」· ASP 代码 · 共 33 行

ASP
33
字号
<%@Language=VBScript%> 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>计数器</title>

</head>

<body><% 
Set FSobj=Server.CreateObject("Scripting.FileSystemObject") 
fpfile=Server.MapPath("fpcount.txt") 
Set fp=FSobj.OpenTextFile(fpfile,1,False,False) 
hits=fp.ReadLine 
fp.Close 
Set fp=FSobj.CreateTextFile(fpfile,True,False) 
Application.Lock 
hits=hits+1 
fp.WriteLine(hits) 
Application.UnLock 
fp.Close 
%> 

<hr>
<%=hits%> 
<hr>

</body>

</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?