• 04-11-2010, 12:10:21
    #1
    Merhaba arkadaşlar chat sisteminde /nick komutuna 12 karakter sınırlaması yapmak istiyorum kod

    ElseIf Mid(strMessage, 1, 6) = "/nick " Then
    edtnick = Trim(Mid(strMessage, 6, Len(strMessage)))
    Session("Username") = edtnick

    strMessage = strUsername & " <font color=black>ismini</font> " & edtnick & " <font color=black>olarak değiştirdi.</font>"
    Call WriteLog(strUsername & "|>>> Kullanıcı Adını Değiştirdi! Yeni Kullanıcı Adı: [" & edtnick & "] (" & Time & ")")
    saryUserMsgTo = 0
    intType = 1


    bu şekilde bu koda nasıl karakter sınırlaması ekleyebılırım 12 karakterden fazla nıck gırenlere uyarı verılmesını ıstıyorum
    saryUserMsgTo = 0 Genel mesaj
    saryUserMsgTo = Array(strUsername) Sadece kullanıcının gorduğü mesaj
  • 04-11-2010, 12:22:41
    #2
    if len(edtnick) > 12 then
    response.write "Girdiğiniz nick geçersizdir 12 karakterden az olmalıdır."
    end if
  • 04-11-2010, 12:42:27
    #3
    if len(edtnick) > 12 then
    response.write "Girdiğiniz nick geçersizdir 12 karakterden az olmalıdır."
    end if

    oncelıkle tsk ederım yardımın ıcın uyarıyı response.write yonetımı ıle degıl strMessage = " Mesaj " şeklinde yapmaktayım
    vede vede bu vermiş oldugun kodu tam olarak nereye eklemeliyim ?
  • 04-11-2010, 13:20:15
    #4
    Kurcalaya kurcalaya yaptım sonunda
    Asp Chat Now kullananlarda bu komutla nick karakterlerini 12 ile sınırlandırabılırler.
    Kodların bulundugu sayfa: postmessage.asp

    ElseIf Mid(strMessage, 1, 6) = "/nick " Then
    edtnick = Trim(Mid(strMessage, 6, Len(strMessage)))
    If len(edtnick) > 12 Then
    strMessage = strUsername & " <font color=black>Kullanıcı Adınız En fazla</font><font color=red> <u>12</u> <font color=black>karakter olabilir<font color=red> !</font>"
    saryUserMsgTo = Array(strUsername)
    intType = 1
    Else
    Session("Username") = edtnick

    strMessage = strUsername & " <font color=black>ismini</font> " & edtnick & " <font color=black>olarak değiştirdi.</font>"
    saryUserMsgTo = 0
    intType = 1
    End If
  • 04-11-2010, 13:38:31
    #5
    Rica ederim. Şu şekildede yapabilirsin.

    if koşul then

    elseif koşul then

    elseif koşul then
    else
    'hiç biri değilse
    end if

    Yada senin yaptığın yöntem istediğin koşulu oluşturabildiysen o şekildede olabilir.

    Yada select case statement'ınıda kullanabilirsin.
  • 04-11-2010, 13:46:22
    #6
    koşul derken mesela karakter sayısı sınırladık else if ile baska kosul ekleyebılırız ornegın karakter harf yasaklama gıbı oylemi
  • 04-11-2010, 14:24:25
    #7
    Bu komut ilede Enaz 3 karakter En Fazla 12 Karakter Girilmesi gerekiyor.

    ElseIf Mid(strMessage, 1, 6) = "/nick " Then
    edtnick = Trim(Mid(strMessage, 6, Len(strMessage)))
    If len(edtnick) < 3 or len(edtnick) > 12 Then
    strMessage = strUsername & " <font color=black>Kullanıcı Adınız <font color=blue>En az</font><font color=red> <u>3</u></font> <font color=blue>En fazla <font color=red> <u>12</u></font> <font color=black>karakter olabilir<font color=red> !</font>"
    saryUserMsgTo = Array(strUsername)
    intType = 1
    Else
    Session("Username") = edtnick

    strMessage = strUsername & " <font color=black>ismini</font> " & edtnick & " <font color=black>olarak değiştirdi.</font>"
    saryUserMsgTo = 0
    intType = 1
    End If
  • 04-11-2010, 16:30:22
    #8
    evet o şekilde
    and = ve
    or =veya anlamında koşullarını düzenleyebilirsin.