On-line регистрация
 

Положение
 

Условия проведения
  
Литература
  
Программа проведения для представителей
  
Программа проведения для участников
  
Список участников
  
Теоретическое задание
  
Практическое задание
  
On-line регистрация
  
Гостевая книга
  
  <% basepath = Server.MapPath("/texts/") 'response.write basepath ' read counter.txt Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(basepath & "\counter.txt") numArt = f.ReadLine ' сколько в счетчике numDay = f.ReadLine ' сколько за день numDate = f.ReadLine ' последний день, когда был обсчет f.Close numArt = numArt + 1 ' инкремент счетчика ' Если сегодня - первый хит, то обнуляем if Day(Date) <> Day(numDate) then numDay = 0 numDate = Date End if ' Инкремент счетчика за день numDay = numDay + 1 Set f = fs.CreateTextFile(basepath & "\counter.txt", true) f.WriteLine(numArt) f.WriteLine(numDay) f.WriteLine(numDate) f.Close ' --------------- Статистика -------------------Cut ' Запись sDate = Date Set f = fs.OpenTextFile(basepath & "\log" & Right(sDate,2) & Mid(sDate,4,2) & Left(sDate,2) & ".txt", 8, true, 0) f.WriteLine(Time & " " & Date & " " & Request.ServerVariables("REMOTE_ADDR") & " " & Request.ServerVariables("HTTP_HOST") & " " & Request.ServerVariables("HTTP_REFERER") & " " & Request.ServerVariables("HTTP_USER_AGENT")) f.Close ' --------------- Статистика -------------------Cut Set fs = nothing Set f = nothing ' Вывод результата %>Вы <%=numArt%> посетитель
(сегодня +<%=numDay%>)  
   

Регистрация завершена.

2009 (с) ФГОУ СПО "Смоленский промышленно-экономический колледж
214018 Смоленск, пр-т Гагарина, д.56. Тел.(4812) 55-38-18 spek@spek.keytown.com