'==============================
'功能描述: 用正则除去HTML标记
'==============================
Function RemoveHTMLTag(str)
Set re = New RegExp
re.Pattern = "<[^<>]*>"
re.Global = true
RemoveHTMLTag =re.Replace(str,"")
Set re = Nothing
End Function
2.
function HTMLEncode(fString)
if not isnull(fstring) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
fString = Replace(fString,"'","''")
HTMLEncode = fString
end if
end function
3.
'==============================
'功能描述: 用正则除去HTML标记
'不能保留<b><strong>等以及用户自定义的<和>
'==============================
Function RemoveHTMLTag(fString)
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Pattern = "<(.[^>]*)>"
fString = re.Replace(fString, "")
Set re = Nothing
RemoveHTMLTag = fString
End Function
4.
'==============================
'功能描述: 除去HTML标记
'不能保留<b><strong>等以及用户自定义的<和>
'==============================
Function Remove_HTML(Str)
Dim ilen1, ilen2
Do While InStr(1, Str, "<", 1) >0
ilen1 = InStr(1, Str, "<", 1)
ilen2 = InStr(1, Str, ">", 1)
Str = Left(Str, ilen1 -1) & Mid(Str, ilen2 + 1)
Loop
Remove_HTML = Str
End Function[Edit on 2008-7-4 18:40:30 By ishion]
]]>