Ответ

Nikolay 23.02.2006 15:27

А толку с кода? обычные скл операции insert\update

    в @Auto:
    ^connect[$ConnectionString]{ 
           ^try{ ^BStat[] 
    }{ 
      $exception.handled(1)
     ^ErrorNotyfi[$exception;$stack] } 
    }
в @BStat
 кода много привожу только используемые sql запросы
^int:sql{SELECT ID FROM BStat WHERE ip='$env:REMOTE_ADDR' AND UAgent='$env:HTTP_USER_AGENT' AND lpage='^env:HTTP_REFERER.match[http://softvoile.com][]{}' ORDER BY id DESC limit 300}[$.default{-1}]

^void:sql{UPDATE BStat SET comment=CONCAT(comment,'!!! Restored ID^#0A') WHERE id='$BStatID'}

^int:sql{SELECT id FROM BStat WHERE ID='$BStatID' limit 1}[$.default{-1}]

  $Query[UPDATE BStat SET 
	lpage='$request:uri' ,  
	ldate='^curdate.sql-string[]',
	HistoryPage=CONCAT(HistoryPage,'$request:uri^#0A'),
	HistoryTime=CONCAT(HistoryTime,'^curdate.sql-string[]^#0A'),
	HistoryRef=CONCAT(HistoryRef,'$ref^#0A'),
	PageCount=PageCount+1
	WHERE id='$BStatID' limit 1]
  ^void:sql{$Query} 

$Query[INSERT INTO BStat VALUES(0, '$env:REMOTE_ADDR','^curdate.sql-string[]','^curdate.sql-string[]','$url','$query',  '$env:HTTP_REFERER','','$losted','$losted','$losted',0,0,0,0,0,0,0,0,'$env:HTTP_USER_AGENT','')]
   ^void:sql{$Query} 

   $BStatID[^int:sql{SELECT id FROM BStat WHERE ip='$env:REMOTE_ADDR' ORDER BY id DESC limit 1}]

Разумеется выполняются далеко не все они.

Есть еще скрипт для подсчета статистики скачиваний, там пишется статистика и дальше идет редирект на сам ехе.

---