|
| |
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
Topic : Strip HTML Tags
|
|
Author : Cyrus V
|
Total Visits: 110
|
|
Published Date:
Thursday, December 28, 2000
|
|
|
<%
Function StripHTMLTag(ByVal sText)
StripHTMLTag = ""
fFound = False
Do While InStr(sText, "<")
fFound = True
StripHTMLTag = StripHTMLTag & " " & Left(sText, InStr(sText, "<")-1)
sText = MID(sText, InStr(sText, ">") + 1)
Loop
StripHTMLTag = StripHTMLTag & sText
If Not fFound Then StripHTMLTag = sText
End Function
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|