ASP生成静态网页中实现阅读次数的程序示例

************************调用********************* 
  '* <script language="JavaScript" src="xxx.ASP?max=8"></script> 
  '************************************************* 
   
  Javastr="<div algin='center'>" 
  <% 
  max=Request("max") '//计数器位数 
  If Request.cookies("count")="" Then '//防刷 
  Set fso=Server.CreateObject("Scripting.FileSystemObject") 
   Set fp=fso.OpenTextFile(Server.MapPath("count.dat")) '//计数器统计文件 
   countn=fp.Readline 
   countn=countn+1 
   Fp.close 
   Set fp=Nothing 
   set fp=fso.createtextfile(server.mappath("count.dat")) 
   fp.Writeline countn 
   set fp=nothing 
   set fso=nothing 
   Response.Cookies("count")=countn 
  End If 
  Set fso=Server.CreateObject("Scripting.FileSystemObject") 
  Set fp=fso.OpenTextFile(Server.MapPath("count.dat")) 
  s=fp.Readline 
  For n=(max-len(s)) to 1 step -1 
  %> 
  javastr=javastr+"<img src=count/0.gif' border=0>" '//计数器图片文件 
  <% 
  Next 
  j=0 
  For i=(max-len(s)) to max-1 
   j=j+1 
  %> 
  javastr=javastr+"<img src='count/<%=mid(s,j,1)%>.gif' border=0>" 
  <% 
  Next 
  Set fp=Nothing 
  Set fso=Nothing 
  javastr=javastr+"</div>" 
  %> 
  document.write(javastr) 

转载保留链接！网址：http://80920140.com/post/112.html