|
 |
|
DESİGNED BY_OĞUZHAN NAR |
|
|
|
|
|
|
|
|
FORUM |
|
|
|
|
|
|
|
|
|
|
|
<%
'|======================================
'| Forum Kodları Fonksiyonu
'| mydesign a.k.a doronty37
'| http://www.mydesign.gen.tr
'| mydesign@mydesign.gen.tr
'|======================================
Function MesajFormatla(strMesaj)
strMesaj = Replace(strMesaj, "<", "<", 1, -1, 1)
strMesaj = Replace(strMesaj, ">", ">", 1, -1, 1)
strMesaj = Replace(strMesaj, Chr(10), " ", 1, -1, 1)
strMesaj = Replace(strMesaj, "[B]", " ", 1, -1, 1)
strMesaj = Replace(strMesaj, "[/B]", "", 1, -1, 1)
strMesaj = Replace(strMesaj, "[STRONG]", " ", 1, -1, 1)
strMesaj = Replace(strMesaj, "[/STRONG]", "", 1, -1, 1)
strMesaj = Replace(strMesaj, "[U]", " ", 1, -1, 1)
strMesaj = Replace(strMesaj, "[/U]", "", 1, -1, 1)
strMesaj = Replace(strMesaj, "[I]", " ", 1, -1, 1)
strMesaj = Replace(strMesaj, "[/I]", "", 1, -1, 1)
strMesaj = Replace(strMesaj, ":)", " ![]() ", 1, -1, 1)
strMesaj = Replace(strMesaj, ";)", " ![]() ", 1, -1, 1)
strMesaj = Replace(strMesaj, ":O", " ![]() ", 1, -1, 1)
strMesaj = Replace(strMesaj, ":))", " ![]() ", 1, -1, 1)
strMesaj = Replace(strMesaj, ":S", " ![]() ", 1, -1, 1)
strMesaj = Replace(strMesaj, ":(", " ![]() ", 1, -1, 1)
strMesaj = Replace(strMesaj, ":'(", " ![]() ", 1, -1, 1)
Do While inStr(strMesaj, "[URL=") > 0 And inStr(strMesaj, "[/URL]") > 0
DeyimBaslangici = inStr(strMesaj, "[URL=")
DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/URL]") + 6
If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7
strLink = trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici)))
strGeciciMesaj = strLink
strGeciciMesaj = Replace(strGeciciMesaj, "[URL=", " ", 1, -1, 1)
strGeciciMesaj = Replace(strGeciciMesaj, "]", """ target=""_blank"">", 1, -1, 1)
Else
strGeciciMesaj = strGeciciMesaj & ">"
End If
strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1)
Loop
Do While inStr(strMesaj, "[URL]") > 0 And inStr(strMesaj, "[/URL]") > 0
DeyimBaslangici = inStr(strMesaj, "[URL]")
DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/URL]") + 6
If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 6
strLink = trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici)))
strGeciciMesaj = strLink
strGeciciMesaj = Replace(strGeciciMesaj, "[URL]", "", 1, -1, 1)
strGeciciMesaj = Replace(strGeciciMesaj, "[/URL]", "", 1, -1, 1)
strGeciciMesaj = "" & strGeciciMesaj & ""
strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1)
Loop
Do While inStr(strMesaj, "[QUOTE=") > 0 And inStr(strMesaj, "[/QUOTE]") > 0
DeyimBaslangici = inStr(1, strMesaj, "[QUOTE=", 1) + 7
DeyimSonu = inStr(DeyimBaslangici, strMesaj, "]", 1)
If DeyimBaslangici > 6 And DeyimSonu > 0 Then
strYazan = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici))
End If
DeyimBaslangici = DeyimBaslangici + Len(strYazan) + 1
DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1)
If DeyimSonu - DeyimBaslangici =< 0 Then DeyimSonu = DeyimBaslangici + Len(strYazan)
If DeyimSonu > DeyimBaslangici Then
strAlintiMesaji = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici))
strYazan = Replace(strYazan, """", "", 1, -1, 1)
strAlinti = " "
strAlinti = strAlinti & vbCrLf & "Alıntı Sahibi: " & strYazan & "
"
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " | " & strAlintiMesaji & " | "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " | "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " | "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " "
End If
DeyimBaslangici = inStr(strMesaj, "[QUOTE=")
DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]") + 8
If DeyimSonu - DeyimBaslangici =< 7 Then DeyimSonu = DeyimBaslangici + Len(strYazan) + 8
strAsilMesaj = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici))
If strAlinti <> "" Then
strMesaj = Replace(strMesaj, strAsilMesaj, strAlinti, 1, -1, 1)
Else
strMesaj = Replace(strMesaj, strAsilMesaj, Replace(strAsilMesaj, "[", "[", 1, -1, 1), 1, -1, 1)
End If
Loop
Do While inStr(strMesaj, "[QUOTE]") > 0 And inStr(strMesaj, "[/QUOTE]") > 0
DeyimBaslangici = inStr(strMesaj, "[QUOTE]") + 7
DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1)
If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7
If DeyimSonu > DeyimBaslangici Then
strAlintiMesaji = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici))
strAlinti = " "
strAlinti = strAlinti & vbCrLf & "Alıntı:
"
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " | " & strAlintiMesaji & " | "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " | "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " | "
strAlinti = strAlinti & vbCrLf & " "
strAlinti = strAlinti & vbCrLf & " "
End If
DeyimBaslangici = inStr(strMesaj, "[QUOTE]")
DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) + 8
If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7
strAsilMesaj = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici))
If strAlinti <> "" Then
strMesaj = Replace(strMesaj, strAsilMesaj, strAlinti, 1, -1, 1)
Else
strMesaj = Replace(strMesaj, strAsilMesaj, Replace(strAsilMesaj, "[", "[", 1, -1, 1), 1, -1, 1)
End If
Loop
MesajFormatla = strMesaj
End Function
%>
|
BUGÜN 74 ziyaretçiKİŞİ LOGİN OLDU. |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ARKADAŞINA TAVSİYE ET |
|
|
|
|
|
|
|
|
BURÇ |
|
|
|
|
|
