All you need to do is surround the text you wish to be made visible in the post with
'============= CODE ============
<%
Function detect(Thecomment)
Dim Temp
Temp = int(Instr(1, Thecomment, "[/script]", 1))
- int(Instr(1, Thecomment, "[Script]", 1) +8)
Temp = Mid(Thecomment, int(Instr(1, Thecomment,
"[Script]", 1) +8), Temp)
Thecomment = Replace(Thecomment, Temp, server.HTMLEncode(Temp))
Thecomment = Replace(Thecomment, "[script]", "")
Thecomment = Replace(Thecomment, "[/script]", "")
detect = Thecomment
END Function
%>
'============== END ============
How To Use IT :
<% @LANGUAGE=VBScript %>
<% Option Explicit %>
<!-- #Include file="Functions.asp" -->
<%
Dim Out_Source
Out_Source = detect("<>[script]<HTML>BLAR BLAR<HTML>[/script]")
Response.Write(Out_Source)
%>
This article was originally written by Cadey |