Konu Görünümü | Doğrusal Görünüm

**YALNIZLIK** · 06-02-2008 19:25:49

Burada daha önce hazırladığımız ya da başka yerlerde bulduğumuz kullanışlı fonksiyonları birbirimizle paylaşabiliriz diye düşündüm.

**YALNIZLIK** · 06-02-2008 19:26:20

İstediğimiz basamak sayısına sahip rasgele sayı üretmek için bir fonksiyon.

Kod:

<%

Function RasgeleSayi(basamak)

Dim Ilk, Son, i

Ilk = 1

For i = 1 To Int(basamak) - 1

Ilk = Ilk * 10

Next

Son = (Ilk * 10) - 1

Randomize

RasgeleSayi = Int((Son - Ilk + 1) * Rnd + Ilk)

End Function

%>

**YALNIZLIK** · 06-02-2008 19:27:08

SQL injection'ı önlemek ya da post edilen herhangi bir verinin kontrolünü yaparak zararlı kelimelerin/kodların kaldırılmasını sağlamak için bir fonksiyon

Kod:

<%

Function FilterBadWords(strWords)

strBadWords = Array("SELECT", "DROP", "--", "INSERT", "DELETE", "xp_", "UNION", "UPDATE", "'", "’", "<%", "<SCRIPT>", "<META", "<", ">")

strBadWordsReplace = Array("&#83ELECT", "&#68ROP", "&#45-", "&#73NSERT", "&#68ELETE", "&#120P&#95", "&#85NION", "&#85PDATE", "&#39", "&#39", "", "", "", "[", "]")

For iSQL = 0 to uBound(strBadWords)

strWords = Replace(strWords, strBadWords(iSQL), strBadWordsReplace(iSQL),1,-1,1)

Next

FilterBadWords = strWords

End Function

%>

**YALNIZLIK** · 06-02-2008 19:28:13

Post edilen e-mail adresinin geçerli bir e-mail adresi olup olmadığını kontrol eden bir fonksiyon

Kod:

<%

Function cckEmail(email)

Dim regEx, Match, Matches

If email <> "" Then

Set regEx = New RegExp

regEx.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"

regEx.IgnoreCase = True

If regEx.Test(email) Then cckEmail = True Else cckEmail = False

End If

End Function

%>

**YALNIZLIK** · 06-02-2008 19:29:06

Bunu çok seviyorum, her componenti kullanarak mail gönderebiliyor.

Kod:

<%

'on error resume next

Function MailSender(FromEmail,FromName,YourEmail,YourName,Subject,Body,MailType)

MailServer = "kullaniciadi:sifre@smtp.host.com"

MailHost = "smtp.host.com"

MailUsername = "[email="kullanici@host.com"]kullanici@host.com[/email]"

MailPassword = "sifre"

Select Case MailType

Case "Jmail"

set objNewMail = server.createobject("JMail.message")

objNewMail.charset = "windows-1254"

objNewMail.From = FromEmail

objNewMail.FromName = FromName

objNewMail.AddRecipient YourEmail,YourName

objNewMail.Subject = Subject

objNewMail.HTMLBody = Body

objNewMail.Send(MailServer)

Set objNewMail = Nothing

Case "CDonts"

Set objmail=Server.CreateObject("cdonts.newmail")

objmail.From = FromEmail

objmail.To = YourEmail

objmail.Subject = Subject

objmail.Body = Body

objmail.Send

set objmail= nothing

Case  "ASPmail"

Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")

objNewMail.FromName = FromName

objNewMail.FromAddress = FromEmail

objNewMail.RemoteHost = MailServer

objNewMail.AddRecipient YourEmail, YourEmail

objNewMail.Subject = Subject

objNewMail.BodyText = Body

SendOk = objNewMail.SendMail

Case "ASPEmail"

Set objNewMail = CreateObject("Persits.MailSender") 

objNewMail.Host = MailHost

objNewMail.Username = MailUsername

objNewMail.Password = MailPassword

objNewMail.From = FromEmail

objNewMail.FromName = FromName

objNewMail.AddAddress  YourEmail

objNewMail.Subject = Subject

objNewMail.Body = body

objNewMail.IsHTML = TRUE

objNewMail.Send

Case  "Jmail2" 

set objNewMail = server.createobject("JMail.SMTPMail")

objNewMail.Sender = FromEmail

objNewMail.ServerAddress = MailServer

objNewMail.AddRecipient   YourEmail

objNewMail.Subject  = Subject

objNewMail.ContentType = "text/html"

objNewMail.Body = body

objNewMail.execute

Case "OCXmail"

Set objNewMail = Server.CreateObject("ASPMail.ASPMailCtrl.1")

SendEmail =  objNewMail.SendMail(MailServer, YourEmail, FromEmail, Subject, body) 

Set objNewMail = Nothing

End Select

if err.number = 0 then

MailSender = "Mesaj gönderildi..." 

elseif err.number = -2147220979 then

MailSender = "Lütfen gerekli bilgileri eksiksiz doldurunuz."

else

MailSender = "Sunucumuzdaki bir sorundan dolayı öneriniz gönderilemedi... Lütfen daha sonra tekrar deneyiniz... " & err.description & "<br>" & objNewMail.errormessage

end if

End Function

%>

**YALNIZLIK** · 06-02-2008 19:30:57

Kelimelerin ilk harflerini büyütüp diğer harfleri küçük yapan biz fonksiyon

Kod:

<%

Function complex(metin)

splitter = " "

If metin <> "" Then

    xarr = Split(metin, splitter)

    For i = 0 to Ubound(xarr)

        xmetin = Trim(xarr(i))

        If xmetin <> "" Then

        xmetin = Lcase(xmetin)

        xstletter = Ucase(Left(xmetin,1))

            '// You can add here your language characters

            xstletter = Replace(xstletter,"i","İ", 1, -1) '&Yacute;

        xmetin = Right(xmetin, Len(xarr(i)) - 1)

            '// You can add here your language characters

            xmetin = Replace(xmetin,"İ","i", 1, -1) '&Yacute;

        xmetin = xstletter & xmetin

    End if

        zmetin = zmetin & " " & xmetin

    Next

End if

complex = zmetin

End Function

%>

Konu Görünümü \| Doğrusal Görünüm Hazır Fonksiyonlar
Yazar	Mesaj