Alıntı
ID=Request.QueryString("ID")

If NOT Session("video_hit"&ID) = "OK" Then
Baglanti.Execute("UPDATE videolar SET hit=hit+1 WHERE id="&ID&" ")
Session("video_hit"&ID) = "OK"
End If
basit bir öneri:
bu yazdığım bir nevi korumadır, videoyu 1 kişi izleyince tarayıcı kapatılana kadar yada session sonlanana kadar o video sadece +1 dir. Sayfayı ne kadar yenilersen yenile sürekli arttırılmaz.
-----
Bu işi örümcek ve botları kontrol ederek hit arttırımı yapman gerek. Google vb sistemler sayaç işini görürken ıvır zıvırları görmemezlikten gelir. en basitinden birisi senin sitenin adresini busitekacparaeder.com gibi sitelere sorgulatırsa o site senin sayfana girip birtakım sorgulamalar yapıyor. şimdi bu site sana +1 yapsa ne yararı olacak ? adsensede gösterimin mi artacak? reklam mı görecek? vs gibi şeyler..

not: örümcek kontrolünü yapabilmen için user agent kontrolü yapman gerek.
önceden yazdığım bir kontrolü veriyorum, zamanlar geliştirmen gerek.
Alıntı
Function BotTespit(veri)
If veri="" Then
veri="[BOT]NULL"
Else
If Instr(veri,"Baiduspider") Then
veri="[BOT]Baidu"
ElseIf Instr(veri,"bingbot") Then
veri="[BOT]Bing"
ElseIf Instr(veri,"Ezooms") Then
veri="[BOT]Ezooms"
ElseIf Instr(veri,"Googlebot") Then
veri="[BOT]Google"
ElseIf Instr(veri,"PaperLiBot") Then
veri="[BOT]PaperLi"
ElseIf Instr(veri,"TweetmemeBot") Then
veri="[BOT]Tweetmeme"
ElseIf Instr(veri,"YandexBot") Then
veri="[BOT]Yandex"
ElseIf Instr(veri,"YandexNews") Then
veri="[BOT]YandexNews"
ElseIf Instr(veri,"msn-media") Then
veri="[BOT]MsnImage"
ElseIf Instr(veri,"msnbot-NewsBlogs") Then
veri="[BOT]MsnNews"
ElseIf Instr(veri,"msnbot") Then
veri="[BOT]Msn"
ElseIf Instr(veri,"Twitterbot") Then
veri="[BOT]Twitter"
ElseIf Instr(veri,"JS-Kit") Then
veri="[BOT]JS-Kit"
ElseIf Instr(veri,"UnwindFetchor") Then
veri="[BOT]UnwindFetchor"
ElseIf Instr(veri,"PostRank") Then
veri="[BOT]PostRank"
ElseIf Instr(veri,"MFE_expand") Then
veri="[BOT]MFE Expand"
ElseIf Instr(veri,"Mediapartners-Google") Then
veri="[BOT]Google Adsense"
ElseIf Instr(veri,"ia_archiver") Then
veri="[BOT]SiteArşivleyici"
ElseIf Instr(veri,"facebookexternalhit") Then
veri="[BOT]Facebook Paylaş"
ElseIf Instr(veri,"AsyncHttpClient") Then
veri="[BOT]Facebook Async"
ElseIf Instr(veri,"MetaURI") Then
veri="[BOT]MetaURI"
ElseIf Instr(veri,"EventMachine") Then
veri="[BOT]EventMachine"
ElseIf Instr(veri,"LinkedInBot") Then
veri="[BOT]LinkedIn"
ElseIf Instr(veri,"bitlybot") Then
veri="[BOT]Bitly"
ElseIf Instr(veri,"Tumblr") Then
veri="[BOT]Tumblr"
ElseIf Instr(veri,"Yahoo") Then
veri="[BOT]Yahoo"
ElseIf Instr(veri,"Butterfly") Then
veri="[BOT]Butterfly"
ElseIf Instr(veri,"Python-urllib") Then
veri="[BOT]Python Urllib"
ElseIf Instr(veri,"libwww") Then
veri="[BOT]LibWWW"
ElseIf Instr(veri,"Sogou") Then
veri="[BOT]Sogou"
ElseIf Instr(veri,"curl") Then
veri="[BOT]Curl"
ElseIf Instr(veri,"Ruby") Then
veri="[BOT]Ruby"
ElseIf Instr(veri,"Showyoubot") Then
veri="[BOT]ShowYou"
ElseIf Instr(veri,"Summify") Then
veri="[BOT]Summify"
ElseIf Instr(veri,"Twitmunin") Then
veri="[BOT]Twitmunin"
ElseIf Instr(veri,"Twitterbot") Then
veri="[BOT]Twitter"
ElseIf veri="A" Then
veri="[BOT]NULL"
ElseIf Instr(veri,"bintellibot") Then
veri="[BOT]Bintelli"
ElseIf Instr(veri,"Mail.RU") Then
veri="[BOT]MailRU"
ElseIf Instr(veri,"InAGist") Then
veri="[BOT]InAGist"
ElseIf Instr(veri,"JikeSpider") Then
veri="[BOT]Jike"
ElseIf Instr(veri,"Domnutch") Then
veri="[BOT]Nutch"
ElseIf Instr(veri,"Wget/1.12") Then
veri="[BOT]Wget"
ElseIf Instr(veri,"BacklinkCrawler") Then
veri="[BOT]BacklinkCrawler"
ElseIf Instr(veri,"Java/") Then
veri="[BOT]Java"
ElseIf Instr(veri,"Feedfetcher-Google") Then
veri="[BOT]GoogleFeedfetcher"
ElseIf Instr(veri,"Crowsnest") Then
veri="[BOT]Crowsnest"
ElseIf Instr(veri,"Indy Library") Then
veri="[BOT]IndyLibrary"
ElseIf Instr(veri,"YandexAntivirus") Then
veri="[BOT]YandexAntivirus"
ElseIf Instr(veri,"YandexImages") Then
veri="[BOT]YandexImages"
ElseIf Instr(veri,"googlebot") Then
veri="[BOT]Google"
ElseIf Instr(veri,"AhrefsBot") Then
veri="[BOT]AhrefsBot"
ElseIf Instr(veri,"Exabot") Then
veri="[BOT]Exabot"
ElseIf Instr(veri,"SiteIntel") Then
veri="[BOT]SiteIntel"
ElseIf Instr(veri,"PagePeeker") Then
veri="[BOT]PagePeeker"
ElseIf Instr(veri,"Updowner") Then
veri="[BOT]Updowner"
ElseIf veri="aboutthedomain" Then
veri="[BOT]aboutthedomain"
ElseIf veri="spider" Then
veri="[BOT]WhoIsBucket"
ElseIf veri="SurcentroBot" Then
veri="[BOT]Surcentro"
ElseIf veri="thegetpr.net" Then
veri="[BOT]TheGetPR"
ElseIf Instr(veri,"Apache-HttpClient") Then
veri="[BOT]ApacheHttpClient"
ElseIf Instr(veri,"LongURL") Then
veri="[BOT]LongURL"
ElseIf Instr(veri,"PHP/") Then
veri="[BOT]NULL"
ElseIf Instr(veri,"Yepi") Then
veri="[BOT]Yepi"
ElseIf Instr(veri,"Nutch") Then
veri="[BOT]Nutch"
Else
veri=veri
End If
End If
BotTespit=veri
End Function


kullanımı:

UA=Request.ServerVariables("HTTP_USER_AGENT")
Response.Write BotTespit(UA)