<% cUserName=request.cookies("uzUserName") cUserEmail=request.cookies("uzUserEmail") if cUserEmail = " " then cUserEmail = "" end if %> <% Dim Section,Article Section=Request.QueryString("section") Article=Request.QueryString("article") If Section="" Then Section="news" Article="" End If SecTitle = GetTitle(Section,"sections.tit") ArtTitle = GetTitle(Article,Section & "\articles.tit") If Article="" Then Response.Write("" & SecTitle & "") Else Response.Write("" & ArtTitle & "") End If %>
<% On Error Resume Next Set cn = Server.CreateObject("ADODB.Connection") cnpath="DBQ=" & server.mappath("db/stat.mdb") cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath Set rsStat = Server.CreateObject("ADODB.Recordset") strSQL = "select hits from stat where section='" & Section & "' and article='" & Article & "'" rsStat.Open strSQL, cn if rsStat.EOF then pageHits = -1 else pageHits = rsStat("hits") end if rsStat.Close if pageHits = -1 then cn.Execute "insert into stat (section,article,hits) values ('" & Section & "','" & Article & "',0)" pageHits = 0 end if %>

Статистика посещений
с 7 апреля 2001 г.: <% strSQL = "select hits from stat where section='" & Section & "' and article='" & Article & "'" rsStat.Open strSQL, cn if rsStat.EOF then siteHits = 0 else siteHits = rsStat("hits") end if rsStat.Close Response.Write("") strSQL = "select hits from stat where section='default' and article='default'" rsStat.Open strSQL, cn if rsStat.EOF then objHits = 0 else siteHits = rsStat("hits") end if rsStat.Close Response.Write("") Response.Write("

эта страница: 

" & pageHits & "

суммарно по сайту: 

" & siteHits & "

") cn.Execute "update stat set hits=hits+1 where section='" & Section & "' and article='" & Article & "'" cn.Execute "update stat set hits=hits+1 where section='default' and article='default'" cn.Close %>


<% Set fs=Server.CreateObject("Scripting.FileSystemObject") On Error Resume Next If Article="" Then Err.Clear Set f=fs.OpenTextFile(Server.MapPath(Section & ".html"), 1) If Err.Number>0 Then Response.Write ("Раздел " & Section & " не найден. Пожалуйста, сообщите об этом веб-мастеру") Else Response.Write(f.ReadAll) f.Close Response.Write("

 

") End If Set f=Nothing Else Response.Write("
") Response.Write("Для печати") Response.Write("") Response.Write("" & SecTitle & "") Response.Write("

") Err.Clear Set f=fs.OpenTextFile(Server.MapPath(Section & "\" & Article & ".html"), 1) If Err.Number>0 Then Response.Write ("Статья " & Section & "\" & Article & " не найдена. Пожалуйста, сообщите об этом веб-мастеру") Else Response.Write(f.ReadAll) f.Close Response.Write("

 

") End If Set f=Nothing End If Set fs=Nothing %>
Усыновить Отказ от ребёнка Прошу о помощи! Готовы помочь

Международный проект "В защиту жизни".
Круглосуточный телефон в Ташкенте - (371) 126-60-79, международный - +998 (71) 126-60-79
При перепечатывании материалов просьба ссылаться на наш сайт.

e-mail: emmanuil@inbox.ru

Дизайн и разработка - © 2001 AleKo

TopList Апорт Top 1000 <% if section = "news" then %> <% else %> <% end if %>
<% Function GetTitle(ByVal Name, ByVal TitFile) Dim fs,f,Line,Words On Error Resume Next Set fs=Server.CreateObject("Scripting.FileSystemObject") GetTitle = "No title" Err.Clear Set f=fs.OpenTextFile(Server.MapPath(TitFile), 1) If Err.Number>0 Then Else do while f.AtEndOfStream = false Line = f.ReadLine Words = Split(Line,"|") If Name=Words(0) Then GetTitle=Words(1) End If loop f.Close End If Set f=Nothing Set fs=Nothing End Function %>