📄 counter.asp

📁 系里的网站设计

💻 ASP

字号:

<%@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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -