Web Wiz 9X Link Gizleme Olayı

05/Mar/09 14:31

Kısayol

Şikayet

Özel Mesaj

mobydick64

Kayıt Tarihi: 27/Mart/2007

arkadaşlar öncelikle şimdiden hepinize teşekkürler. kaç gündür aramadığım yer kalmadı uygulamadığım öneri kalmadı fakat sitemde bi türlü linkleri gizleyemedim. hangi siteye baksam aynı konular üzerinde duruluyor. bana Allah için biriniz yardımcı olun

web wiz 9x için geçerli forum_posts.asp ve functions_format_post.asp yi burada bana kodların eklenmiş halini verirseniz beni çok memnun edersiniz. benim gibi bir dünya kişi var bu sorun için çabalıyan..

sitelerin hepsinde bunu diyor;

functions/functions_format_post.asp içerisine asagidaki kodu ekleyiniz....
’******************************************’***       Link Hide Block   ***’******************************************
’ SheyTaNi Satirlar || SS || Satirlarin Sahibi
’ Coded By BeyazSeytan
’ Belasoft.net /.org - Webwizturk.com - CyberHosting.org
’This function formats the hide blocks
Function AntiLinkForGuest(strMessage,lngTopicID,lngLoggedInUserID)
Dim strHideMessage
Dim lngStartPos
Dim lngEndPos
Dim strBuildHideBlock
Dim strOriginalHideBlock
if lngLoggedInUserID = 2 Then
Do While InStr(1, strMessage, "<a", 1) > 0 AND InStr(1, strMessage, "</a>", 1) > 0
lngStartPos = InStr(1, strMessage, "<a", 1) + 2
lngEndPos = InStr(lngStartPos, strMessage, "</a>", 1)
If lngEndPos < lngStartPos Then lngEndPos = lngStartPos + 2
If lngEndPos > lngStartPos Then
   strBuildHideBlock = "<table width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "<tr><td class=""bold"">Gizli Alan :<br>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "   <table width=""100%"" border=""0"" cellpadding=""1"" cellspacing=""0"" class=""BBquote"">"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "    <tr>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "    <td><table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""0"" class=""BBquote"">"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "      <tr>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "       <td class=""text"" style=""font-family: Courier New, Courier, mono;"">Linki görebilmek için üye olman?z gerekmektedir.</td>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "      </tr>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "     </table></td>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "   </tr>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & " </table></td>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "</tr>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "</table>"
End if
lngStartPos = InStr(1, strMessage, "<a", 1)
lngEndPos = InStr(lngStartPos, strMessage, "</a>", 1) + 4
If lngEndPos < lngStartPos Then lngEndPos = lngStartPos + 2
strOriginalHideBlock = Trim(Mid(strMessage, lngStartPos, lngEndPos-lngStartPos))
If strBuildHideBlock <> "" Then
strMessage = Replace(strMessage, strOriginalHideBlock, strBuildHideBlock, 1, -1, 1)
Else
strMessage = Replace(strMessage, strOriginalHideBlock, Replace(strOriginalHideBlock, "[", "[", 1, -1, 1), 1, -1, 1)
End If
Loop
end if
AntiLinkForGuest = strMessage
End Function

Daha Sonra

forum_posts.asp içinde [/Code] sat?r?n? arat?p hemen alt?na ?unu ekleyiniz..

If InStr(1, strMessage, "<a", 1) > 0 AND InStr(1, strMessage, "</a>", 1) > 0 Then strMessage = AntiLinkForGuest(strMessage,lngTopicID,lngLoggedInUserID)