Selam arkadaslar sizlere bircok yerden aldıgım ve derledigim asp kodlarını veriyorum umarım işinize yarar... 1-Sitende Kim var Kim yok Ögrenmek icin yazılan Kod: Kod: <Object Runat="Server" Scope="application" ID="dOnlineUsers" ProgID="Scripting. Dictionary"></Object> <SCRIPT LANGUAGE=VBScript RUNAT=Server> sub Application_OnStart application = now end sub function Decrypt Decrypt = sText end function function adZero if isNull then exit function adZero = string(5 - len , "0") & sText end function Sub Session_OnStart Session. TimeOut = 5 sAktifUsrList = application sNewUserName = Decrypt(request. cookies + request. cookies if sNewUserName = "" then sNewUserName = "Ziyaretci-" & AdZero(CInt(application sLastActionTime = Time sUserInfo = sNewUserName & "<|>" & sLastActionTime & "<|>" & sLastPageViewed dOnlineUsers. Add Session. SessionID, sUserInfo application. lock application = application + 1 application = application + 1 if application <> Date then application = 0 application = 0 end if application = application + 1 application = Date application. unlock End Sub Sub Session_OnEnd on error resume next dOnlineUsers. Remove Session. SessionID application. lock application = application - 1 application. unlock End Sub </SCRIPT> 2-Güvenlik kodu oluşturma Bu kodla güvenlik kodu onaylama kısımları oluşturabilirsiniz Kod: <% if page="" then enalt_sayi = 999 enust_sayi = 99999 Randomize isle = enust_sayi - enalt_sayi + 1 random = isle rnd random = random + enalt_sayi guvenlik = int %> <%=guvenlik%> <% end if %> 3-Kategori olusturmak Web sitenizde haberlink veya alisveris veri tabaninizdaki kategorileri sayfaniza yazdirmaya yarayacak kategori örnek kodu Kod: <% @Language=VBScript %> <% Set kategori = Server. CreateObject sor = "Select from kategori ORDER BY id" ' kategori tablomuzu id sırasına göre diziyoruz. kategori. Open sor, Sur,1,3 toplam_kategori=kategori. recordcount %> </tr> <% While Not kategori. EOF %> <tr> <td width="100%" height="13" bgcolor="#CCCCCC"><span lang="en"> <font face="Verdana" size="2"> <img border="0" src="images/Lopez2_Bullet2. gif"></font></span><font face="Verdana" size="2"> <a href="kategori. asp?kategori_no=<%=kategori %>"><%=kategori %></a></font></td> </tr> <% If Not kategori. EOF Then %> <% kategori. MoveNext End If %> <% Wend %> ' Bazı yerleri kendinize göre değiştirin 4-Girilmesini istemediginiz sayfalari sifreleyin Tek yapmaniz gereken girilmesini istemediginiz sayfaya include etmek Kod: ' Bu sayfayı guvenlik. asp olarak kaydet <% Response. Buffer = True %> <% 'Sifre = Burada bulunan admin yazısı yerine kendi şifrenizi yazınız. sifre = "8282" if Session <> sifre then if Request. Form <> sifre then Call giris Else Session = sifre End if End if Sub giris gelen_sayfa = "http://"&Request. ServerVariables &Request. ServerVariables %> <table border="0" cellpadding="2" cellspacing="0" width="100%"> <tr> <td width="100%"><form method="POST" action="<% = gelen_sayfa %>"> <p align="center"><i><b><font color="#FF6600" size="1"> </font></b></i></td> </tr> <tr> <td width="100%"> <p align="center"><i><b><font color="

saol paylaşım güzel You must log in or register to reply here. Forum Programlama ASP Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> { "@context": "https://schema.org", "@type": "DiscussionForumPosting", "@id": "https:\/\/www.wardom.org\/threads\/bircok-asp-kodlari.130149\/", "headline": "Birçok Asp Kodları ", "articleBody": "Selam arkadaslar sizlere bircok yerden aldıgım ve derledigim asp kodlarını veriyorum umarım işinize yarar...:) \r\n\r\n1-Sitende Kim var Kim yok Ögrenmek icin yazılan Kod:\r\n<Object Runat=\"Server\" Scope=\"application\" ID=\"dOnlineUsers\" ProgID=\"Scripting. Dictionary\"><\/Object>\r\n\r\n<SCRIPT LANGUAGE=VBScript RUNAT=Server>\r\nsub Application_OnStart\r\n application = now\r\nend sub\r\nfunction Decrypt \r\n Decrypt = sText\r\nend function \r\n\r\nfunction adZero \r\n if isNull then exit function\r\n adZero = string(5 - len , \"0\") & sText\r\nend function\r\n\r\nSub Session_OnStart\r\n\r\n\r\n Session. TimeOut = 5\r\n sAktifUsrList = application \r\n \r\n sNewUserName = Decrypt(request. cookies + request. cookies \r\n \r\n if sNewUserName = \"\" then sNewUserName = \"Ziyaretci-\" & AdZero(CInt(application \r\n \r\n sLastActionTime = Time\r\n \r\n sUserInfo = sNewUserName & \"<|>\" & sLastActionTime & \"<|>\" & sLastPageViewed\r\n\r\n\r\n dOnlineUsers. Add Session. SessionID, sUserInfo\r\n \r\n application. lock\r\n application = application + 1\r\n application = application + 1\r\n \r\n if application <> Date then\r\n application = 0\r\n application = 0\r\n end if\r\n application = application + 1\r\n application = Date \r\n application. unlock\r\n \r\nEnd Sub\r\n\r\nSub Session_OnEnd\r\n\r\n on error resume next\r\n dOnlineUsers. Remove Session. SessionID\r\n \r\n application. lock\r\n application = application - 1\r\n application. unlock\r\n\r\nEnd Sub\r\n<\/SCRIPT>\r\n\r\n\r\n\r\n2-Güvenlik kodu oluşturma \r\n\r\nBu kodla güvenlik kodu onaylama kısımları oluşturabilirsiniz\r\n<%\r\nif page=\"\" then\r\n\r\nenalt_sayi = 999\r\nenust_sayi = 99999\r\n\r\nRandomize \r\n\r\nisle = enust_sayi - enalt_sayi + 1\r\nrandom = isle rnd \r\nrandom = random + enalt_sayi\r\nguvenlik = int \r\n%>\r\n<%=guvenlik%>\r\n<%\r\nend if\r\n%>\r\n\r\n\r\n\r\n3-Kategori olusturmak \r\n\r\nWeb sitenizde haberlink veya alisveris veri tabaninizdaki kategorileri sayfaniza yazdirmaya yarayacak kategori örnek kodu\r\n<% @Language=VBScript %>\r\n\r\n\r\n<%\r\nSet kategori = Server. CreateObject \r\nsor = \"Select from kategori ORDER BY id\" ' kategori tablomuzu id sırasına göre diziyoruz.\r\nkategori. Open sor, Sur,1,3\r\ntoplam_kategori=kategori. recordcount\r\n%>\r\n\r\n <\/tr>\r\n<%\r\nWhile Not kategori. EOF\r\n%>\r\n <tr>\r\n <td width=\"100%\" height=\"13\" bgcolor=\"#CCCCCC\"><span lang=\"en\">\r\n <font face=\"Verdana\" size=\"2\">\r\n <img border=\"0\" src=\"images\/Lopez2_Bullet2. gif\"><\/font><\/span><font face=\"Verdana\" size=\"2\"> \r\n<a href=\"kategori. asp?kategori_no=<%=kategori %>\"><%=kategori %><\/a><\/font><\/td>\r\n <\/tr>\r\n<%\r\nIf Not kategori. EOF Then\r\n%>\r\n<% kategori. MoveNext\r\nEnd If\r\n%>\r\n<% Wend %>\r\n'\r\nBazı yerleri kendinize göre değiştirin\r\n\r\n\r\n\r\n4-Girilmesini istemediginiz sayfalari sifreleyin \r\n\r\nTek yapmaniz gereken girilmesini istemediginiz sayfaya include etmek \r\n' Bu sayfayı guvenlik. asp olarak kaydet\r\n\r\n<% Response. Buffer = True %>\r\n<%\r\n'Sifre = Burada bulunan admin yazısı yerine kendi şifrenizi yazınız.\r\nsifre = \"8282\"\r\nif Session <> sifre then\r\nif Request. Form <> sifre then\r\n\tCall giris\r\nElse\r\n\tSession = sifre\r\nEnd if\r\nEnd if\r\nSub giris\r\ngelen_sayfa = \"http:\/\/\"&Request. ServerVariables &Request. ServerVariables \r\n%>\r\n<table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"100%\">\r\n <tr>\r\n <td width=\"100%\"><form method=\"POST\" action=\"<% = gelen_sayfa %>\">\r\n <p align=\"center\"><i><b><font color=\"#FF6600\" size=\"1\"> <\/font><\/b><\/i><\/td>\r\n <\/tr>\r\n <tr>\r\n <td width=\"100%\">\r\n <p align=\"center\"><i><b><font color=\"