<%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) & "\ntcount\hits.txt"On Error Resume NextSet InStream= FileObject.OpenTextFile (HitsFile, 1, false )OldHits = Trim(InStream.ReadLine)NewHits = OldHits + 1Set OutStream= FileObject.CreateTextFile (HitsFile, True)OutStream.WriteLine(NewHits)%>??
?U???µ1999????u???

????¹????????½????³????????i???????????´???
  
? z ? Y? ?? ý? ?  

?
h????
 h?>>>

 

 

 

 

 

 

 

 

 

 
www.shlyzh.com
????0039 0697840953 E-mail: itacina@hotmail.com
?y????
- | - | - | - | - | - | - | - | - | - | - | - | - | - | - | - | - | - | - | - | Phone Card - Underwater Cameras - Phone Cards to Czech Republic