<%
'|======================================
'| 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
%>
Forum - Örnek konu
Benjamin Lochmann (Ziyaretçi)
| | Burda bir forum kaydı örneği görebilirsin
Sağdaki alıntı butonuyla bir alıntı eklenebilir: [quote:=\"Einstein\"]E = mc2 |
