asp最简单实用的计数器
我只是找一个柜台。因为网站上的访问量太小，所以一个柜台相当简陋，所以他只能做一个简单的点，并记录一次来支持它。对于count.asp代码：
复制代码代码如下所示：
<
明确选择
昏暗的FS，文件名，TXT，内容全，counter_lenth
的counter_lenth = 1设置显示的数据的最小长度，如果实际长度小于实际长度。
设置FS = server.createobject（脚本。FileSystemObject ）
文件名= server.mappath（计数。txt）
如果不fs.fileexists（文件名）然后
fs.createtextfile文件名，真的，真的
集txt = fs.opentextfile（文件名，2，真的）
txt.write 0如果没有文件来保存数据，创建新文件和写入数据0
设置FS =无
最后如果
集txt = fs.opentextfile（文件名）
如果txt.atendofstream然后
如果文件中没有数据，则应用程序（计数器=0初始化应用程序（计数器）（用于容错）。
其他的
Application (Counter) =txt.readline
最后如果
锁的应用。
应用程序（计数器）=应用程序（计数器）+ 1
application.unlock
功能save_保存计数功能
设置FS = server.createobject（脚本。FileSystemObject ）
文件名= server.mappath（计数。txt）
内容=应用程序（计数器）
集txt = fs.opentextfile（文件名，2，真的）
txt.write内容
设置FS =无
端功能
save_呼叫保存功能保存数据
功能数字（计数器）显示数据功能
朦胧的我，mystr，scounter
scounter = CSTR（计数器）
我= 1 counter_lenth - Len（scounter）
mystr = mystr 0
mystr = mystr 如果有一张图片，使用该语句调用
下一个
我= 1 Len（scounter）
MyStr = MyStr Mid (sCounter, I, 1)
mystr = mystr 如果有一张图片，使用该语句调用
下一个
数字= mystr
端功能
功能count_show读计数功能
设置FS = server.createobject（脚本。FileSystemObject ）
文件名= server.mappath（计数。txt）
集txt = fs.opentextfile（文件名，1，真的）
txt.readline总=
总= Cint（总）
response.write总
response.write数字（总）的来电显示功能
设置FS =无
端功能
%>
然后创建一个新的count.txt（必须是相同的目录数。ASP）。打开文件后，输入任意数量（不要太无情），并将其添加到需要显示计数器的页面顶部。
复制代码代码如下所示：
最后，将代码添加到显示计数器的位置。
复制代码代码如下所示：
没关系.