ASP生成靜態(tài)網(wǎng)頁中實現(xiàn)閱讀次數(shù)的程序實例代碼分享

2011/6/24 15:34:36  出處：本站   人氣：44次    字號：小  中  大

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

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