Сейчас, когда меняются приоритеты, когда смутные предчувствия в наше не простое время становятся фактами повседневного быта, невольно находишь опору в искусстве. Будто и не бурлит за стенами мастерских нервный конец тысячелетия.

Москаленко
Валерий

Еленецкий
Владимир

Козикова
Вера

Арайс
Светослав

Макаров
Владислав

Шаповалова
Татьяна

  . . . . .  К О М П Ь Ю Т Е Р Н Ы Й  Д И З А Й Н . . . . .

 

Глотова Марина
Экспозиция
"Сканирование памяти" .
2003-2004гг.

Качалов Алексей
Дизайн-проекты
оформления CD-дисков.
1998-2004гг.

 

     Работы представленных мастеров, несомненно, представляют научный интерес и претендуют занять свое место в истории русского искусства. Настоящая галерея художников г. Смоленска ставит своей целью дать краткие научные сведения о произведениях искусства.
     Собрание отличается большим жанровым и тематическим разнообразием. Работы располагаются в хронологической последовательности, а с точки зрения художественных признаков - по жанрам. Последовательность определена авторами. Техника исполнения приведена в принятых сокращениях. Размеры произведений даны в сантиметрах.

Принятые сокращения:
акв.: акварель; б. : бумага; Г. : графика; к.: картон; кар.: карандаш;
М.: масло; тон.: тонированный; х.: холст; цв.: цветная.

<% basepath = Server.MapPath("texts/") ' 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%>)

© Смоленский промышленно-экономический колледж