functions/functions_format_post.asp dosyasinı açın ve bu satırları Ekleyin
PHP- Kodu:
'******************************************'*** Link Hide Block ***'****************************************** ' +"This function formats the hide blocksFunction AntiLinkForGuest(strMessage,lngTopicID,lngLoggedInUserID) Dim strHideMessage Dim lngStartPos Dim lngEndPos Dim strBuildHideBlock Dim strOriginalHideBlockif 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 = " <b>Linki gore bilmek icin uye olmani gerekmektedir<b> " 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 Loopend if AntiLinkForGuest = strMessageEnd Function
forum_posts.asp dosyasini acın ve onun icinde [/code] kelimesini aratın ve hemen altına ekleyin ;
PHP- Kodu:
If InStr(1, strMessage, "<a", 1) > 0 AND InStr(1, strMessage, "</a>", 1) > 0 Then strMessage = AntiLinkForGuest(strMessage,lngTopicID,lngLoggedInUserID)
06-25-2008, 12:05
Linklerin Ziyaretçilere Gizlenmesi
Normal
