ASP生成靜態(tài)網(wǎng)頁(yè)中實(shí)現(xiàn)閱讀次數(shù)的程序?qū)嵗�代碼分享

下面提供給大家分享的是關(guān)于ASP生成靜態(tài)網(wǎng)頁(yè)中實(shí)現(xiàn)閱讀次數(shù)的程序?qū)嵗�代碼，希望能夠幫助到大家。

************************調(diào)用*********************
  '* <script language="java script" src="xxx.ASP?max=8"></script>
  '*************************************************
  
  Javastr="<div algin='center'>"
  <%
  max=Request("max") '//計(jì)數(shù)器位數(shù)
  If Request.cookies("count")="" Then '//防刷
  Set fso=Server.CreateObject("Scripting.FileSystemObject")
   Set fp=fso.OpenTextFile(Server.MapPath("count.dat")) '//計(jì)數(shù)器統(tǒng)計(jì)文件
   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>" '//計(jì)數(shù)器圖片文件
  <%
  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)