Forumda Kod Kullanma // Asp

Tahribat.com Forumları
line

Asp - Php - Cgi - Perl
line

05/Ağu/07 23:36 Kısayol Şikayet Özel Mesaj

FOXXLY

Kayıt Tarihi: 19/Haziran/2006

s.a
bi forum üstünde çalışıyorum. kendi yapmaya çalıştığım rte ile mesela bi buton var ona tıklayınca [code] blablabla [/code] taglarını çıkarıyor
ama forumda bunun böyle görünmesi yerine foruma girince daha sexy bi tablo içinde görünmesini istiyorum. replace ile denedim saçmaladım gibime geldi
ne yapmam lazım

kelimeler albayım bazı anlamlara gelmiyor.

Alıntı yap
05/Ağu/07 23:46 Kısayol Şikayet Özel Mesaj

camarade
ontedi

Kayıt Tarihi: 04/Eylül/2005

Dostum aslında mantık basit
[code]
yazan yeri bununla değiştir
<table border="1" width="100%">
<tr>
<td>

[/code] yazan yeri de bununla değiştir.
</td>
</tr>
</table>
Tablo rengini felan sen ayarlarsın artık
Neticede yazı kısmı ortaya gelecektir.Ya da Bu biraz zor geldi diyorsan.Mydesign ziyaretçi defterini incele, alıntı yapma mantığı.

Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

Alıntı yap
05/Ağu/07 23:48 Kısayol Şikayet Özel Mesaj

FOXXLY

Kayıt Tarihi: 19/Haziran/2006

tmm replace ile yapıyorum şimdi sağol bi deneyim

kelimeler albayım bazı anlamlara gelmiyor.

Alıntı yap
06/Ağu/07 00:00 Kısayol Şikayet Özel Mesaj

FOXXLY

Kayıt Tarihi: 19/Haziran/2006

şunun bi örneği varmı hacım acaba replace hata verip duruyo

kelimeler albayım bazı anlamlara gelmiyor.

Alıntı yap
06/Ağu/07 00:30 Kısayol Şikayet Özel Mesaj

camarade
ontedi

Kayıt Tarihi: 04/Eylül/2005

<%
'// Forum kodlarını düzenleme fonksiyonu
Function MesajFormatla(byVal strMesaj)
'// Mesajda [code] ile alıntı yapılmışsa, mesaj düzenleniyor
Do While InStr(strMesaj, "[code]") > 0 AND InStr(strMesaj, "[/code]") > 0
  DeyimBaslangici = InStr(strMesaj, "[code]") + 6
  DeyimSonu = InStr(DeyimBaslangici, strMesaj, "[/code]", 1)
  If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 6
  If DeyimSonu > DeyimBaslangici Then
   strAlintiMesaji = Trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici))
   strAlinti = "<table width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
   strAlinti = strAlinti & vbCrLf & "<tr><td class=""bYazi"">Kod Alanı: <br>"
   strAlinti = strAlinti & vbCrLf & "   <table width=""100%"" border=""0"" cellpadding=""1""
cellspacing=""0"" bgcolor=""#CCCCCC"">"
   strAlinti = strAlinti & vbCrLf & "    <tr>"
   strAlinti = strAlinti & vbCrLf & "    <td><table width=""100%"" border=""0"" cellpadding=""2""
cellspacing=""0"" bgcolor=""#EEEEEE"">"
   strAlinti = strAlinti & vbCrLf & "      <tr>"
   strAlinti = strAlinti & vbCrLf & "       <td>" & strAlintiMesaji & "</td>"
   strAlinti = strAlinti & vbCrLf & "      </tr>"
   strAlinti = strAlinti & vbCrLf & "     </table></td>"
   strAlinti = strAlinti & vbCrLf & "   </tr>"
   strAlinti = strAlinti & vbCrLf & " </table></td>"
   strAlinti = strAlinti & vbCrLf & "</tr>"
   strAlinti = strAlinti & vbCrLf & "</table>"
  End If
  DeyimBaslangici = InStr(strMesaj, "[code]")
  DeyimSonu = InStr(DeyimBaslangici, strMesaj, "[/code]", 1) + 7
  If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 6
  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
%>
Kullanımı aşağıdaki gibi
<%
merhaba = "[code]Geliyormusun[/code]"
response.write Mesajformatla(merhaba)
%>

Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

Alıntı yap

Toplam Hit: 868 Toplam Mesaj: 5

Cevapla