%
Function GetCounterName()
Dim FullPath,intPos
FullPath = Request.ServerVariables("PATH_TRANSLATED")
intPos = InStrRev(FullPath,".") '¨ú±o¤p¼ÆÂIªº¦ì¸m
GetCounterName = Mid(FullPath,1,intPos) & "cntA"
End Function
Function WebCounter()
Dim CounterName,TotalCounterName,objFS,HitRate,TotalHitRate,imgName
Dim objReadTS,objWriteTS
On Error Resume Next
TotalCounterName =Server.MapPath ("../main.cnt")
CounterName = GetCounterName()
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objReadTS = objFS.OpenTextFile (CounterName)
HitRate = objReadTS.ReadLine
objReadTS.Close
Set objReadTS = objFS.OpenTextFile (TotalCounterName)
TotalHitRate = objReadTS.ReadLine
objReadTS.Close
if not Session("On_lineA") and Session("On_line") then
HitRate =Clng(HitRate) + 1
Session("On_lineA") = True
Set objWriteTS = objFS.CreateTextFile(CounterName,true,0)
objWriteTS.WriteLine HitRate
objWriteTS.Close
Session("HitA") = HitRate
elseif not Session("On_lineA") and not Session("On_line") then
HitRate =Clng(HitRate) + 1
Session("On_lineA") = True
Set objWriteTS = objFS.CreateTextFile(CounterName,true,0)
objWriteTS.WriteLine HitRate
objWriteTS.Close
Session("HitA") = HitRate
TotalHitRate =Clng(TotalHitRate) + 1
Session("On_line") = True
Set objWriteTS = objFS.CreateTextFile(TotalCounterName,true,0)
objWriteTS.WriteLine TotalHitRate
objWriteTS.Close
Session("Hit") = TotalHitRate
else
HitRate = Session("HitA")
end if
' Response.Write (HitRate)
for i = 1 to CInt(Len(HitRate))
imgName = Mid(HitRate,i,1)
Response.Write ("")
next
End Function
%>