<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\hits.txt"
HitsFile1 = Server.MapPath(Dir) & "\h.asp"
On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
if NewHits >999999999 then NewHits = 0
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
a= int((NewHits)/100000000)
if a>=1 then
NewHits=NewHits-a*100000000
end if
b=int((NewHits)/10000000)
if b>=1 then
NewHits=NewHits-b*10000000
end if
c=int((NewHits)/1000000)
if c>=1 then
NewHits=NewHits-c*1000000
end if
d=int((NewHits)/100000)
if d>=1 then
NewHits=NewHits-d*100000
end if
e=int((NewHits)/10000)
if e>=1 then
NewHits=NewHits-e*10000
end if
f=int((NewHits)/1000)
if f>=1 then
NewHits=NewHits-f*1000
end if
g=int((NewHits)/100)
if g>=1 then
NewHits=NewHits-g*100
end if
h=int((NewHits)/10)
if h>=1 then
NewHits=NewHits-h*10
end if
i=int((NewHits)/1)
if i>=1 then
NewHits=NewHits-i*1
end if
Set OutStream= FileObject.CreateTextFile (HitsFile1, True)
OutStream.WriteLine("&a="&a+1&"&b="&b+1&"&c="&c+1&"&d="&d+1&"&e="&e+1&"&f="&f+1&"&g="&g+1&"&h="&h+1&"&i="&i+1&"&")
%>
|
