Mrb. Bugun Size SAyac Hizmeti Veren Güzel Bi Site Tavsiye Edicem.

Sitenize Eklediğiniz Kodda Hiç Bir Reklam yok

http://amung.us/    Adlı Sitede Farklı Sayaclar var sitenizde online kaç kişinin olduğunu gösteren sitenizde online olanların nerden girdiğini dünya haritası üzerinde gösteriyo . istatistik veren bir sayac var . devamı için http://amung.us/ girip deneyin

Sitemizden İndirdiğiniz Dosyaları Virüs Taramasından geçirin.

Bugun Pc deki taramamda trojana rastladım..

İlginize Teşekkür Ederim

Mrb Asp De Toplu Kayıt Silmeyi Öğreneceğiz Bu Dersde

<%
    Set baglanti=Server.createobject("adodb.connection" )
        baglanti.provider="microsoft.jet.oledb.4.0"
        baglanti.open Server.Mappath("Database.mdb" )

    Set rs=baglanti.execute("select * from mesajlar" )
        response.write "<form action=""?islem=sil"" method=""post"">"

    do until rs.eof
        response.write rs("id" ) & ". "&rs("isim" )& _
        "<input type=""checkbox"" name="&rs("id" )&"><br>"
    rs.movenext:loop
       response.write "<input type=""submit"" value=""Sil""></form>"
    
    if request.querystring("islem" )="sil" and not request.form="" then
        gelen=split(request.form,"&" )
        say=ubound(gelen )

    idler="":for i=0 to say
        bolunecek=gelen(i )
        id=split(bolunecek,"=" )

    if idler="" then
        idler="id="&id(0 )
        else
        idler=idler + " or id=" & id(0 )
    end if
    next

        baglanti.execute("delete from mesajlar where " & idler )
    end if
%>

xp de klasörlernizi rengden renge sokun

Mrb Arkaşdalr Bu dersimiz De Forma Girilen sayıyı Örnek 1000 Bunu  bin die okutmayı öğrenecez. 

<%
Sub  SayiOku(strSayi)
    If  Len(Trim(strSayi)) = 0  Then  Exit  Sub 
    arrBirler =  Array(0, "bir" , "iki" , "üç" , "dört" , "beş" , "altı" , "yedi" , "sekiz" , "dokuz" )
    arrOnlar =  Array(0, "on" , "yirmi" , "otuz" , "kırk" , "elli" , "altmış" , "yetmiş" , "seksen" , "doksan" )
    arrBuyukler =  Array("" , "birler" , "onlar" , "yüz" , "bin" , "bir" , "iki" , "milyon" , "bir" , "iki" , "milyar" , "bir" , "iki" , "trilyon" , "bir" , "iki" )
    iBasamak =  Len(strSayi)

    If  CInt(Left(strSayi, 1)) = 0  Then 
        Call SayiOku(Right(strSayi, iBasamak-1))
     ElseIf  arrBuyukler(iBasamak) = "birler"  Then 
         If  NOT strSayi = 0  Then  strYazi = arrBirler(CInt(strSayi))
        Response.Write strYazi
     ElseIf  arrBuyukler(iBasamak) = "onlar"  Then 
        strYazi = arrOnlar(CInt(Left(strSayi, 1))) & arrBirler(CInt(Right(strSayi, 1)))
        Response.Write strYazi
     ElseIf  arrBuyukler(iBasamak) = "bir"  Then 
        strYazi = arrOnlar(CInt(Left(strSayi, 1)))
        If  CInt(Mid(strSayi, 2, 1)) = 0  Then  strYazi = strYazi & arrBuyukler(iBasamak-1)
        Response.Write strYazi
        Call SayiOku(Right(strSayi, iBasamak-1))
     ElseIf  arrBuyukler(iBasamak) = "iki"  Then 
        strYazi = arrBirler(Left(strSayi, 1)) & "yüz"
        strYazi =  Replace(strYazi, "biryüz" , "yüz" )
        If  CInt(Mid(strSayi, 2, 1)) = 0  Then  strYazi = strYazi & arrBuyukler(iBasamak-2)
        Response.Write strYazi
        Call SayiOku(Right(strSayi, iBasamak-1))
     Else 
        strYazi = arrBirler(Left(strSayi, 1)) & arrBuyukler(iBasamak)
        strYazi =  Replace(strYazi, "biryüz" , "yüz" )
        Response.Write strYazi
        Call SayiOku(Right(strSayi, iBasamak-1))
     End  If
End  Sub
%>