« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: forumda uye olmayanlar linkleri goremesin  (Okunma sayısı 1294 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı goko123

  • İleti: 3
  • Puan: 0
forumda uye olmayanlar linkleri goremesin
« : Şubat 16, 2009, 20:40:46 ÖS »
arkadslar forumda uye olmadan linkleri gostermek istemiyorum  bunu nasıl yapabilirrim yardım ederseniz mutlu olurum saygılar
Kayıtlı
Konuyu Paylaş:
  delicious  facebook  twitter  google

Çevrimdışı bilgicagi

  • Süper Moderatör
  • *
  • İleti: 172
  • Puan: 82
  • Cinsiyet: Bay
    • Bilgi Çağı Portal
-forumda uye olmayanlar linkleri goremesin
« Yanıtla #1 : Şubat 18, 2009, 09:04:30 ÖÖ »
Arkadaşlar bu konuda uzunzamandır bir çalışmam vardı. Bir yöntemle işi çözdüm, daha doğrusu arkadaşlarımla hallettik. Kısaca arz edeyim.

topic.asp içinde sayfanın enaltına da olabilir hatta inc_functions.asp içine de olabilir. Benim tavsiyem topic.asp içinde sayfanın enaltına şu kodları ekleyin.

Kod: [Seç]
<%
Function LinkGizle(adres)
Do While inStr(adres,"<a ")>0 and inStr(adres,"/a>")>0
bas=inStr(adres,"<a ")
bit=inStr(adres,"/a>")+3-bas
Gizle=Mid(adres,bas,bit)
adres=Replace(adres,Gizle,"<iframe src=inc_forumicinde_uyelinki.asp width=170 height=42 scrolling=no border=0 frameborder=0></iframe>")
Loop
LinkGizle=adres
End Function
%>
İkinci olarak inc_forumicinde_uyelik.asp diye bir boş sayfa oluşturun ve içine şu kodları ekleyin, kendinize göre düzenleyebilirsiniz.
Kod: [Seç]
<FIELDSET style="font-family: Tahoma; font-size: 8pt; color: #FF0000; font-weight: bold">
<LEGEND align="center">Linki Görebilmek İçin</LEGEND>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<font face="Tahoma" size="2"><b><a target="_blank" href="http://www.bilgicagi.net/policy.asp">Üye Ol</a>&nbsp;veya <a href="http://www.bilgicagi.net">Giriş Yap</font></b></a>
Şimdi gelelim bu fonksiyonu forum içinde hem topic mesajlarda hemde replay mesajlarda kullanmaya. Bunun için öncelikle şu kodları bulun.

Kod: [Seç]
function ProcessMsg(strMsg, nReplyID)
' all msgs get formatted for output
ProcessMsg = FormatStr(strMsg)

Bu kod yerine aşağıdaki kodu ekleyin.

Kod: [Seç]
function ProcessMsg(strMsg, nReplyID)
' all msgs get formatted for output
if mlev < 1 then
ProcessMsg = LinkGizle(strMsg)
else
ProcessMsg = FormatStr(strMsg)
end if
Aşağıdaki kodu bulun

Kod: [Seç]
<%
        Rmessage = rs("R_MESSAGE")
        if strAllowHtml = 1 then
          signature = ReplaceUrls(GetSig(getMemberName(rs("R_AUTHOR"))))
else
          signature = GetSig(getMemberName(rs("R_AUTHOR")))
end if
if rs("R_SIG") = 1 and signature <> ""  then
if strAllowHtml = 1 then
Rmessage = Rmessage & "<br><br>--------------<br>" & replace(ChkString(signature,"signature"),"''","'")
else
Rmessage = Rmessage & vbCrLf & vbCrLf & replace(ChkString(signature,"signature"),"''","'")
end if
end if
Rmessage = replace(formatstr(ReplaceUrls(Rmessage)),"''","'")
        %>       

Buradaki kodu ben şu şekilde revize ettim, sizde kendinize göre düzenleyebilirsiniz.

Kod: [Seç]
<%
        Rmessage = rs("R_MESSAGE")
        signature = GetSig(getMemberName(rs("R_AUTHOR")))
if rs("R_SIG") = 1 and signature <> ""  then
if mlev <1 then
Rmessage = LinkGizle(Rmessage) & "<br><hr>" & vbCrLf & vbCrLf & "<small><font color=red>İmza<br></font></small>"
else
Rmessage = Rmessage & vbCrLf & vbCrLf
end if
end if
Rmessage = formatstr(Rmessage)
        %>

Bu çalışmayı yaparken topic.asp dosyanızın bir yedeğide bulunursa kontrol için iyi olur.
Kayıtlı
Bilgi Çağı Portal & www.bilgicagi.net

Çevrimdışı üzüm54

  • İleti: 1
  • Puan: 0
-forumda uye olmayanlar linkleri goremesin
« Yanıtla #2 : Eylül 23, 2009, 12:32:42 ÖS »
topic asp ne
Kayıtlı

Çevrimdışı AdmiN

  • Genel Sorumlu
  • Administrator
  • *
  • İleti: 7919
  • Puan: 747
  • Cinsiyet: Bay
  • ~|| Bilginin Gücü ||~
    • Kişisel Web Sitem
-forumda uye olmayanlar linkleri goremesin
« Yanıtla #3 : Eylül 23, 2009, 22:11:13 ÖS »
Foru
Alıntı yapılan: üzüm54 - Eylül 23, 2009, 12:32:42 ÖS
topic asp ne

forumun içinde bir dosya, topic.asp dosyası.
Kayıtlı

Çevrimdışı mmarkopolo

  • İleti: 6
  • Puan: 0
-forumda uye olmayanlar linkleri goremesin
« Yanıtla #4 : Aralık 27, 2009, 01:27:48 ÖÖ »
arkadaşım anlattığınız şekilde yaptım oluyor yanlız sitenin bütün yazıları bozuluyor.birde gizlediğimiz link üzerinde yarım şekilde bir yazı çıkıyor onu tıklıyorum tıklanmıyor.şu işi bir daha anlatırsan sevinirim.teşekkürler.
Kayıtlı

Çevrimdışı barokat

  • İleti: 13
  • Puan: 0
-forumda uye olmayanlar linkleri goremesin
« Yanıtla #5 : Temmuz 13, 2011, 13:35:04 ÖS »
Alıntı yapılan: bilgicagi - Şubat 18, 2009, 09:04:30 ÖÖ
Arkadaşlar bu konuda uzunzamandır bir çalışmam vardı. Bir yöntemle işi çözdüm, daha doğrusu arkadaşlarımla hallettik. Kısaca arz edeyim.

topic.asp içinde sayfanın enaltına da olabilir hatta inc_functions.asp içine de olabilir. Benim tavsiyem topic.asp içinde sayfanın enaltına şu kodları ekleyin.

Kod: [Seç]
<%
Function LinkGizle(adres)
Do While inStr(adres,"<a ")>0 and inStr(adres,"/a>")>0
bas=inStr(adres,"<a ")
bit=inStr(adres,"/a>")+3-bas
Gizle=Mid(adres,bas,bit)
adres=Replace(adres,Gizle,"<iframe src=inc_forumicinde_uyelinki.asp width=170 height=42 scrolling=no border=0 frameborder=0></iframe>")
Loop
LinkGizle=adres
End Function
%>
İkinci olarak inc_forumicinde_uyelik.asp diye bir boş sayfa oluşturun ve içine şu kodları ekleyin, kendinize göre düzenleyebilirsiniz.
Kod: [Seç]
<FIELDSET style="font-family: Tahoma; font-size: 8pt; color: #FF0000; font-weight: bold">
<LEGEND align="center">Linki Görebilmek İçin</LEGEND>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<font face="Tahoma" size="2"><b><a target="_blank" href="http://www.bilgicagi.net/policy.asp">Üye Ol</a>&nbsp;veya <a href="http://www.bilgicagi.net">Giriş Yap</font></b></a>
Şimdi gelelim bu fonksiyonu forum içinde hem topic mesajlarda hemde replay mesajlarda kullanmaya. Bunun için öncelikle şu kodları bulun.

Kod: [Seç]
function ProcessMsg(strMsg, nReplyID)
' all msgs get formatted for output
ProcessMsg = FormatStr(strMsg)

Bu kod yerine aşağıdaki kodu ekleyin.

Kod: [Seç]
function ProcessMsg(strMsg, nReplyID)
' all msgs get formatted for output
if mlev < 1 then
ProcessMsg = LinkGizle(strMsg)
else
ProcessMsg = FormatStr(strMsg)
end if
Aşağıdaki kodu bulun

Kod: [Seç]
<%
        Rmessage = rs("R_MESSAGE")
        if strAllowHtml = 1 then
          signature = ReplaceUrls(GetSig(getMemberName(rs("R_AUTHOR"))))
else
          signature = GetSig(getMemberName(rs("R_AUTHOR")))
end if
if rs("R_SIG") = 1 and signature <> ""  then
if strAllowHtml = 1 then
Rmessage = Rmessage & "<br><br>--------------<br>" & replace(ChkString(signature,"signature"),"''","'")
else
Rmessage = Rmessage & vbCrLf & vbCrLf & replace(ChkString(signature,"signature"),"''","'")
end if
end if
Rmessage = replace(formatstr(ReplaceUrls(Rmessage)),"''","'")
        %>       

Buradaki kodu ben şu şekilde revize ettim, sizde kendinize göre düzenleyebilirsiniz.

Kod: [Seç]
<%
        Rmessage = rs("R_MESSAGE")
        signature = GetSig(getMemberName(rs("R_AUTHOR")))
if rs("R_SIG") = 1 and signature <> ""  then
if mlev <1 then
Rmessage = LinkGizle(Rmessage) & "<br><hr>" & vbCrLf & vbCrLf & "<small><font color=red>İmza<br></font></small>"
else
Rmessage = Rmessage & vbCrLf & vbCrLf
end if
end if
Rmessage = formatstr(Rmessage)
        %>

Bu çalışmayı yaparken topic.asp dosyanızın bir yedeğide bulunursa kontrol için iyi olur.

Güzel bir çalışma olmuş, benim çok işime yaradı. Yazmış olduğunuz kodlarda biraz değişiklik yaptım. Çünkü bu kod sadece linkleri gizliyordu. Ben forum içerisinde paylaşılmış tüm resim video ve bağlantıları bu yolla gizledim.

Function LinkGizle(adres)
Do While inStr(adres,"<a ")>0 and inStr(adres,"/a>")>0
bas=inStr(adres,"<a ")
bit=inStr(adres,"/a>")+3-bas
Gizle=Mid(adres,bas,bit)
adres=Replace(adres,Gizle,"<iframe src=inc_forumicinde_uyelinki.asp width=170 height=42 scrolling=no border=0 frameborder=0></iframe>")
Loop
LinkGizle=adres
End Function

yerine

Function LinkGizle(adres)
for i= 1 to len(adres)
if inStr(adres,"<a ")>0 and inStr(adres,"/a>")>0  then
bas=0
bit=0
bas=inStr(adres,"<a ")
bit=inStr(adres,"/a>")+3-bas
Gizle=Mid(adres,bas,bit)
adres=Replace(adres,Gizle,"<iframe src=uyelik1.asp width=250 height=42 scrolling=no border=0 frameborder=0></iframe>")
end if
if inStr(adres,"<embed")>0 and inStr(adres,"</embed>")>0  then
bas=0
bit=0
 bas=inStr(adres,"<embed")
bit=inStr(adres,"</embed>")+8-bas
Gizle=Mid(adres,bas,bit)
 adres=Replace(adres,Gizle,"<iframe src=uyelik1.asp width=250 height=42 scrolling=no border=0 frameborder=0></iframe>")
end if
if inStr(adres,"<iframe")>0 and inStr(adres,"</iframe>")>0 then
bas=0
bit=0
bas=inStr(adres,"<iframe")
bit=inStr(adres,"</iframe>")+9-bas
Gizle=Mid(adres,bas,bit)
adres=Replace(adres,Gizle,"<iframe src=uyelik1.asp width=250 height=42 scrolling=no border=0 frameborder=0></iframe>")
end if
if inStr(adres,"<img")>0 and inStr(adres,"/></p>")>0 then
bas=0
bit=0
bas=inStr(adres,"<img")
bit=inStr(adres,"/></p>")+6-bas
Gizle=Mid(adres,bas,bit)
adres=Replace(adres,Gizle,"<iframe src=uyelik1.asp width=250 height=42 scrolling=no border=0 frameborder=0></iframe>")
end if
if inStr(adres,"http://")>0 and inStr(adres,".jpg")>0 then
bas=0
bit=0
bas=inStr(adres,"<img")
bit=inStr(adres,".jpg")+7-bas
Gizle=Mid(adres,bas,bit)
adres=Replace(adres,Gizle,"<iframe src=uyelik1.asp width=250 height=42 scrolling=no border=0 frameborder=0></iframe>")
end if
next
LinkGizle= adres
End Function

şeklinde değişiklik yapıldığında tüm bağlantılar, videolar, resimler linkler gizlenmektedir.
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »
Seo4Smf Tagleri:
 

Benzer Konular

  Konu / Başlatan Yanıt Son İleti
0 Yanıt
1409 Gösterim 		Son İleti Ekim 08, 2006, 22:39:47 ÖS
Gönderen: AdmiN
5 Yanıt
1503 Gösterim 		Son İleti Mart 10, 2007, 05:09:21 ÖÖ
Gönderen: burajan
3 Yanıt
1020 Gösterim 		Son İleti Nisan 12, 2009, 20:34:39 ÖS
Gönderen: Taslibayir
4 Yanıt
775 Gösterim 		Son İleti Aralık 25, 2009, 23:54:30 ÖS
Gönderen: mmarkopolo
2 Yanıt
346 Gösterim 		Son İleti Aralık 21, 2010, 21:27:26 ÖS
Gönderen: rambos