Arama sonuçlarınız

<% class pabloneruda ' { public sub yaz(yazi) Response.Write yazi end sub 'içine daha fazla public sub ekleyerek yayılabilirsiniz. 'request.querystring de olsun mesela. querystring yazmasını hiç sevmiyorum end Class ' }...

<% x = array("asp","hackhell","freemitnick","ask","sevgi","bill","gates") ' kelimeler tdk = ubound(x) Randomize k1 = Int((Rnd*tdk)) Response.write x(k1) %>

<% Function ch ( yaz, enfazla ) if len(yaz) > enfazla then goster = left(yaz, enfazla) & "..." else goster = yaz ch = goster End Function %> kullanımı: <% response.write ch("bir insanı sevmekle başlayacak herşey", 20) %> (sadece ilk 20 karakter yazılacaktır.)

<% Private Function EPK ( posta ) DIM bolum, krktr, basari, r bolum = split(posta,"@") krktr = array("ğ","ü","ş","ö","ç","ı","Ğ","Ş","İ","Ç","Ü","Ö" &_ ",","/","*","\","(",")","%","+","^","#","!","'","[","]" & _...

<% Private Function rsayiuret(uzunluk) Dim dongusay, strrsayiuret Randomize Timer() For dongusay = 1 to uzunluk uzunluk = clng(Rnd * 666) Mod 16 select Case uzunluk Case 1 strrsayiuret = "1" Case 2 strrsayiuret = "2"...

<% private function ayikla ( neyi ) dim sonHarf, x for x = 0 to len(neyi) sonHarf = right(left(neyi,x),1) if not sonHarf = "a" _ and not sonHarf = "e" _ and not sonHarf = "ı" _ and not sonHarf =...

<% on error resume next ' *** ' göndermeyi sağlayacak e-posta bileşenin kodları buraya gelecek. ' CDONTS, ASPMail vs... ' *** if err = 0 then iletmedurumu = "iletiniz gönderildi" else _ iletmedurumu = "iletiniz gönderilemedi"...

<% Private Function ihby ( byval yaz ) dim YazanYazi(2), xna YazanYazi(1) = yaz YazanYazi(2) = Split(YazanYazi(1), " ", -1) For xna = 0 to UBound(YazanYazi(2)) yaz = UCase(Left(YazanYazi(2)(xna),1)) & _...

<% Private Function yassak ( yokla ) const sakinca = "freemmitnick,mitnick,free,kevin" dim ara, c ara = Split(sakinca, "|") For c = 0 to CInt(UBound(ara)) if InStr(yokla, ara(Int(c))) <> 0 then _ yokla =...

<% Function isValidEmail(myEmail) dim isValidE dim regEx isValidE = True set regEx = New RegExp regEx.IgnoreCase = False regEx.Pattern =...