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
Karakter sayısı hakkında ?
7
●539
- 04-11-2010, 12:10:21
- 04-11-2010, 12:42:27if 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:15Kurcalaya 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:46:22koş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:25Bu 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
