About [hide][/hide] block

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Here is a mod from http://www.webariza.net/ . 
it has this feature:
if someone use the 
You must be a registered member and post a reply in this topic to view the hidden content within this post!
，then viewer can read it only after post a reply follow it.

I found even administrator and Moderator should reply to read the hides.
so i modified it to let admin and Moderator of this forum should not have to post reply to read it. Only The red code is mine.
Just following:

1、functions_format_post.asp
after this :

 'Return the function
 WYSIWYGFormatPost = strMessage
End Function

and before this:

'******************************************
'***        Format Post Function      *****
'******************************************

add this:

'******************************************
'***       Format Hide Block   ***
'******************************************
'This function formats the hide blocks
Function formatHideCode(strMessage,lngTopicID,lngLoggedInUserID)
 Dim strHideMessage
 Dim lngStartPos
 Dim lngEndPos
 Dim strBuildHideBlock
 Dim strOriginalHideBlock
 Dim rsKontrol
 Dim strSQL
 Dim MsjWAER
Set rsKontrol = Server.CreateObject("ADODB.Recordset")
 strSQL = "SELECT  " & strDbTable & "Thread.* "
 strSQL = strSQL & "FROM " & strDbTable & "Thread "
 strSQL = strSQL & "WHERE Author_ID = " & lngLoggedInUserID & " and Topic_ID = "&lngTopicID

rsKontrol.Open strSQL, adoCon, 1, 3

if rsKontrol.Eof   Then
MsjWAER = False
else 
MsjWAER = True
end if
rsKontrol.Close
 Do While InStr(1, strMessage, "
You must be a registered member and post a reply in this topic to view the hidden content within this post!
", 1) > 0
  lngStartPos = InStr(1, strMessage, "
You must be a registered member and post a reply in this topic to view the hidden content within this post!
", 1)
  If  lngEndPos < lngStartPos Then lngEndPos = lngStartPos + 6
  If  lngEndPos > lngStartPos   Then
  if  MsjWAER OR blnAdmin or blnModerator Then
   strHideMessage = Trim(Mid(strMessage, lngStartPos, lngEndPos-lngStartPos))
  Else

   strHideMessage = "<center><b>Follow be Hidden</b><font color=""#FF0000""><b><br>You can read it after you  post  reply !</font></b></center>"
  End if

   strBuildHideBlock = "<table width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "<tr><td class=""bold"">Follow is hidden:<br>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "   <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""BBquote"">"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "    <tr>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "       <td class=""text"" style=""font-family: Courier New, Courier, mono;"">" & strHideMessage & "</td>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "      </tr>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "  </table></td>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "</tr>"
   strBuildHideBlock = strBuildHideBlock & vbCrLf & "</table>"
  End If

  lngStartPos = InStr(1, strMessage, "
You must be a registered member and post a reply in this topic to view the hidden content within this post!
", 1) + 7
  If lngEndPos < lngStartPos Then lngEndPos = lngStartPos + 6
  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, "[", "&#91;", 1, -1, 1), 1, -1, 1)
  End If
 Loop
 formatHideCode = strMessage
End Function

2、forum_posts.asp
afte this :

  'If the post contains a quote or code block then format it
  If InStr(1, strMessage, "
 , 1) > 0 AND InStr(1, strMessage, [/QUOTE wrote:

", 1) > 0 Then strMessage = formatUserQuote(strMessage)
  If InStr(1, strMessage, "
 ", 1) > 0 AND InStr(1, strMessage, "
", 1) > 0 Then strMessage = formatUserQuote(strMessage)
  If InStr(1, strMessage, "[QUOTE]", 1) > 0 AND InStr(1, strMessage, "
", 1) > 0 Then strMessage = formatQuote(strMessage)
  If InStr(1, strMessage, "
", 1) > 0 AND InStr(1, strMessage, "
", 1) > 0 Then strMessage = formatCode(strMessage)

add this:

        If InStr(1, strMessage, "
You must be a registered member and post a reply in this topic to view the hidden content within this post!
", 1) > 0 Then strMessage = formatHideCode(strMessage,lngTopicID,lngLoggedInUserID)

only this!

Edited by jsaren - 24 July 2006 at 9:13am