Neler yeni

Yeni mesajlar Yeni konular En çok mesaj En çok tepki En çok görüntülenen

w@rriorhckr kullanıcısının son içeriği

  1. w@rriorhckr

    Aspde sayfanın yüklenme zamannı gösterir

    <% Sure = Timer() %> Sayfa yüklenme süresi ; <%=FormatNumber(Timer() -Sure,2) %> sn. :wink::wink::wink::wink::wink::wink::wink::wink::wink:
  2. w@rriorhckr

    Aspde satır atlatma kodu

    <% Function Satir(byVal strVeri) If strVeri = "" Then Exit Function strVeri = Replace(strVeri, vbCrLf, "<br/>", 1, -1, 1) strVeri = Replace(strVeri, Chr(13), "<br/>", 1, -1, 1) Satir = strVeri End Function %> :sleepy::sleepy::sleepy::sleepy:
  3. w@rriorhckr

    Asp günlük hit server tabanlı sayıyor

    <% Dim x, y, temp, serv, D, cogul x = Trim(day(date())) D = Application( "serv" ) If D = x Then Application( "cogul" ) = Application( "cogul" ) + 1 Else Application( "cogul" ) = 1 End If y = x temp = y Application( "serv" ) = temp %>...
  4. w@rriorhckr

    Aspde renkli tablolar

    <table border="0" cellpadding="0" cellspacing="0" width="100%" height="10%"> <% i=0 do until i>10 %> <tr bgcolor="#<% if i mod 2 then Response.Write "FFFFFF" Else Response.Write "D8D8D8" end if %>"> <td>Yazı</td> </tr> <% i = i + 1 loop %> </table>...
  5. w@rriorhckr

    Aspde checkbux ile toplu silim yapma

    merhaba buradaki herkeze çok basit bir yontem yazayym.. sil diye checkbox adi olsun.. <% Set Baglanti = Server.CreateObject ("ADODB.Connection" ) Set rsTopluSil = Server.CreateObject ("ADODB.Recordset" ) Baglanti.Open DB For i=1 To Request.Form("sil" ).Count strSQL = "DELETE * FROM tbladi...
  6. w@rriorhckr

    Aspde a-z ye sıralama yapımı

    <% Sub AZ() For b = 65 To 90 Step 1 Response.Write "<a href='?Harf="& chr(b) &"'>"& chr(b) &"</a> " Next Response.Write "<br>" For s = 97 To 122 Step 1 Response.Write "<a href='?Harf="& chr(s) &"'>"& chr(s) &"</a> " Next...
  7. w@rriorhckr

    Aspde arama motoru yapımı

    Evet çoğu yerde gördüğünüz arama motorlarının nasıl çalıştığını anlatacağım. Aslında çok da zor bir olayı yoktur.Eğer birden fazla form alırsaniz tabi o zaman biraz zorlaşır fakat sadece zamanınızı alir. Arama motorlarında sql komutumuz <% sql = "select * from tablo WHERE form like '%" &...
  8. w@rriorhckr

    Aspde for-next döngüsünün kullanım şekli

    <% Dim gunler gu nler = Array(“Pazartesi”, “Salı”, “Çarşamba”, “Perşembe”, “Cuma”, “Cumartesi”, “Pazar”) for sayac = 0 to 6 response.write gunler(sayac) next %> :angel::smile::tongueout::surprised::sadsmile::kiss1: :emo1::party::crying:
  9. w@rriorhckr

    Aspde seri değişkenlerin kullanım şekli

    <% Option Explicit Dim Ad(7) Ad(1) = “Günce” Ad(2) = “Refiye” Ad(3) = “Haldun” Ad(4) = “Meral” Ad(5) = “Alp” Ad(6) = “Seda” Ad(7) = “Gökçe” %> :tongueout::angel::emo1::kiss1::worried::sleepy:
  10. w@rriorhckr

    Aspde karışık şifre oluşturma?????

    <% '// Coded by Rawkmetal '// 09:01 çarşamba..... Function sifre_sec( nNoChars, sValidChars ) Const szDefault = "0123456789qwertyuoplkjhgfdsazxcvbnmQWERTYUOPLKJHGFDSAZXCVBNM" Randomize If sValidChars = "" Then sValidChars = szDefault End If nLength = Len( sValidChars ) For nCount = 1 To...
  11. w@rriorhckr

    Aspde yazılan yazıyı tersten yazdıran kod

    <% Dim a(20),text,boyut text= request.querystring("gelentext") boyut=len(text) i=1 do while i<= boyut a(i)=mid(text,i,1) i=i+1 loop response.write text & "<br>" i=boyut do while i>= 1 response.write a(i) i=i-1 loop %>...
  12. w@rriorhckr

    Asp şifreleme nasıl yapılır???

    S.A. şifreleyeceğin sayfanın üstüne <!--#include file="teox.asp"--> yaz teox.asp : <% eparola="teox" %> <% if session("girdimi")="evet" then %> <a href= "?cikis"><font face="arial" size=2>Cıkıs</font></a> <%else%> <form action="?isle" method=post> <input type=text name=eparola><input...
  13. w@rriorhckr

    Aspde tarayıcıdiline göre sayfanın dilini değiştiren kod

    <% dil= Request.ServerVariables("HTTP_ACCEPT_LANGUAGE" ) If dil="tr" Then %> <!--#include file="turkce.asp"--> <% ElseIf dil="en" Then %> <!--#include file="eng.asp"--> <% ElseIf dil="de" Then %> <!--#include file="de.asp"--> <% End If %> :emo1::puke::emo1::emo1:
  14. w@rriorhckr

    Aspde ziyaretçinin geldiğini bulan kod

    <% strReferrer = Request.ServerVariables("HTTP_REFERER") If strReferrer <> "" Then ' Eğer ziyaretçi gönderen sayfa bilgisi varsa strSite = Split(strReferrer,"?") ' Querystring kısmı çıkarılıyor strSiteAdresi = strSite(0) Response.Write "Sitemize <b>"& strSiteAdresi...
  15. w@rriorhckr

    Dosyanın siteye ne zaman eklendiğini gösteren kod

    <% dim fs, f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile(Server.MapPath("deneme.txt")) Response.Write("deneme.txt dosyasının eklendiği zaman: " & f.DateCreated) set f=nothing set fs=nothing %> :emo1::emo1::emo1::emo1:
Daha fazlasını gör
Üst