home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / hz / count.asp < prev    next >
Text File  |  2005-12-23  |  2KB  |  58 lines
  1. <%
  2. Dim fsoObject             
  3. Dim tsObject             
  4. Dim filObject            
  5. Dim lngVisitorNumber         
  6. Dim intDisplayDigitsLoopCount
  7.  
  8.  
  9. On Error Resume Next
  10.  
  11. lngVisitorNumber = 0
  12.     
  13. Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
  14.  
  15. Set filObject = fsoObject.GetFile(Server.MapPath("visitor_counter.txt"))
  16.     
  17. Set tsObject = filObject.OpenAsTextStream
  18.     
  19. lngVisitorNumber = CLng(tsObject.ReadAll)
  20.  
  21.     
  22. If Session("lngSessionVisitorNum") = "" Then
  23.         
  24.     'Increment the visitor counter number by 1
  25.     lngVisitorNumber = lngVisitorNumber + 1
  26.         
  27.     'Place the Visitor number in the session visitor number
  28.     Session("lngSessionVisitorNum") = lngVisitorNumber
  29.     
  30. Else
  31.     
  32.     'Place the Visitor number in the session visitor number
  33.     Session("lngSessionVisitorNum") = lngVisitorNumber
  34. End if
  35.     
  36.             
  37. Set tsObject = fsoObject.CreateTextFile((Server.MapPath("visitor_counter.txt")), True)
  38.     
  39. tsObject.Write CStr(lngVisitorNumber)
  40. Set fsoObject = Nothing
  41. Set tsObject = Nothing
  42. Set filObject = Nothing
  43. %>
  44.  
  45. <head>
  46. <title></title>
  47. <!--mstheme--><link rel="stylesheet" href="rmns1100-106.css">
  48. <meta name="Microsoft Theme" content="rmnsque 1100, default">
  49. </head>
  50.  
  51. <body background="images/bg.gif">
  52. <table align="center" cellspacing="1" height="1" width="120" background="images/bg.gif"><tr><td height="25" bgcolor="#FFFFFF"  width="112" valign="middle" align="center" background="images/bg.gif">
  53. <%
  54. for intDisplayDigitsLoopCount =1 to Len(lngVisitorNumber)
  55.   Response.Write "<img src=""images_js/" & Mid(lngVisitorNumber, intDisplayDigitsLoopCount, 1) & ".gif"">"
  56. Next
  57. %>
  58.     </td></tr></table>