Фото&Видео
 

Положение
 

Условия проведения
  
Литература
  
Программа проведения для представителей
  
Программа проведения для участников
  
Список участников
  
Теоретическое задание
  
Практическое задание
  
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%>)  
   
Регистрация Торжественная церемония открытия Зкскурсия по СПЭК
Экскурсия по Смоленску Литературная гостиная Выполнение задания
Концерт "Звездный старт" Выполнение задания Круглый стол
Экскурсия во Фленово Награждение. Закрытие Скачать видео (397 Мб)

 

 

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