ASP编程

asp最简单最实用的计数器

网络 2007-09-17ASP编程10215

刚才找一个计数器，由于网站的访问量太少，放个计数器在那里确实有点寒酸了，于是呼只能搞一个简单点的，可以访问一次就记录一次的来撑撑门面先。本来以前我有一个，但是郁闷的是居然找不到了，在网上SO了一圈，总算是搞定了，具体程序代码如下。　　count.asp的代码为：复制代码代码如下:<% &n...

刚才找一个计数器，由于网站的访问量太少，放个计数器在那里确实有点寒酸了，于是呼只能搞一个简单点的，可以访问一次就记录一次的来撑撑门面先。本来以前我有一个，但是郁闷的是居然找不到了，在网上SO了一圈，总算是搞定了，具体程序代码如下。
　　count.asp的代码为：

复制代码代码如下:

<%  
    option explicit  
  dim fs,filename,txt,content,total,counter_lenth  
  counter_lenth=1  '设置显示数据的最小长度，如果小于实际长度则以实际长度为准  
  set fs=Server.CreateObject("Scripting.FileSystemObject")  
  filename=server.MapPath("count.txt")  
  if not fs.FileExists(filename) then  
    fs.CreateTextFile filename,True,True  
    set txt=fs.OpenTextFile(filename,2,true)  
    txt.write 0 '如不存在保存数据的文件则创建新文件并写入数据0  
    set fs=nothing  
  end if  

  set txt=fs.OpenTextFile(filename)  
  If txt.AtEndOfStream Then  
    Application("Counter")=0 '如果文件中没有数据，则初始化Application("Counter")的值（为了容错）  
  else  
    Application("Counter")=txt.readline  
  end if  

  Application.Lock   
  Application("Counter") = Application("Counter") + 1  
  Application.UnLock  


  Function save_ '保存计数函数  
  set fs=Server.CreateObject("Scripting.FileSystemObject")  
  filename=server.MapPath("count.txt")  
  content=Application("Counter")  
  set txt=fs.OpenTextFile(filename,2,true)  
  txt.write content  
  set fs=nothing  
  End Function  

  save_  '调用保存函数保存数据  

  Function Digital ( counter )  '显示数据函数  
    Dim i,MyStr,sCounter  
     sCounter = CStr(counter)  
    For i = 1 To counter_lenth - Len(sCounter)  
      MyStr = MyStr & "0"  
    'MyStr = MyStr & "<IMG SRC=改成你自己的图片存放的相对目录\0.gif>" '如有图片，可用此语句调用  
    Next  
    For i = 1 To Len(sCounter)  
      MyStr = MyStr & Mid(sCounter, i, 1)  
    'MyStr = MyStr & "<IMG SRC=改成你自己的图片存放的相对目录\" & Mid(sCounter, i, 1) & ".gif>" '如有图片，可用此语句调用  
    Next  
    Digital = MyStr  
  End Function  

  Function count_show  '读取计数函数  
  set fs=Server.CreateObject("Scripting.FileSystemObject")  
  filename=server.MapPath("count.txt")  
    set txt=fs.opentextfile(filename,1,true)  
  total=txt.readline  
  total=cint(total)  
  'response.write total  
  response.write Digital (total) '调用显示函数  
  set fs=nothing  
  End Function  

%>