'If Lcase(GBL_CHK_User) <> Lcase(DEF_SupervisorUserName) Then
UBB_Code = UBB_FiltrateBadWords(UBBStrCnt)
'Else
' UBB_Code = UBBStrCnt
'End If
Set Re = Nothing
Dim Flag,Tmp
Flag = 0
while (Str2Pos > 0 and Str1Pos > 0)
If (Ucase(Str1) = "[IMG]" or Ucase(Str1) = "[IMGA]") Then
Tmp = Trim(Lcase(Mid(fString,Str1Pos+Len(str1),15)))
'If Left(Tmp,2) = "&#" or Left(Tmp,14) = "javascript" or Left(Tmp,10) = "javascript" or Left(Tmp,12)="jscript:" or Left(Tmp,8)="jscript:" or Left(Tmp,7)="js:" or Left(Tmp,3)="js:" or Left(Tmp,9)="about:" or Left(Tmp,6)="about:" or Left(Tmp,8)="file:" or Left(Tmp,5)="file:" or Left(Tmp,13)="vbscript:" or Left(Tmp,9)="vbscript:" or Left(Tmp,8)="vbs:" or Left(Tmp,4)="vbs:" Then Flag = 1
If Left(Tmp,1) <> "/" and Left(Tmp,3) <> "../" and Left(Tmp,7) <> "http://" and Left(Tmp,8) <> "https://" and Left(Tmp,6) <> "ftp://" Then Flag = 1
End If
If Flag = 1 Then
Flag = 0
Else
fString = Left(fString,Str1Pos-1) & replace(fString, Str1, ReStr1, Str1Pos, 1, 0)
'fString = Left(fString,Str2Pos-1) & replace(fString, Str2, ReStr2, Str2Pos, 1, 0)
Str2Pos = Str2Pos + LenX
fString = Left(fString,Str2Pos-1) & replace(fString, Str2, ReStr2, Str2Pos, 1, 0)
Str2Pos = Str2Pos + LenY
End If
Str1Pos = Instr(Str2Pos + 1, fString, Str1, 0)
Str2Pos = Instr(Str1Pos + 1, fString, Str2, 0)
wend
OneLevelCode2 = fString
end function
function UBB_HTMLEncode(fString, fOTag, fCTag, fROTag, fRCTag)
while (fCTagPos > 0 and fOTagPos > 0)
If n>5 then
exit function
Else
n = n+1
end If
Str2 = replace(Str2, fOTag, fROTag, 1, 1, 0)
Str2 = replace(Str2, fCTag, fRCTag, 1, 1, 0)
DoneString = DoneString & Str2
Dim UBBStrCnt,LoopN
UBBStrCnt = str
If DEF_EnableHTML = 1 and Lcase(GBL_CHK_User) = Lcase(DEF_SupervisorUserName) Then
UBBStrCnt = UBB_HTMLEncode(UBBStrCnt, "[html]", "[/html]", "", "")
Else
UBBStrCnt = PrintTrueText(UBBStrCnt)
End If
dim re
set re = New RegExp
re.Global = True
re.IgnoreCase = True