asp去除HTML標籤

'###############################
' 去除HTML標籤
'###############################
Function reHTML(strText)


strText = Replace(strText, "＜br>", "")
strText = Replace(strText, "＜Br>", "")
strText = Replace(strText, "＜bR>", "")
strText = Replace(strText, "＜BR>", "")
strText = Replace(strText, " ", "")
strText = Replace(strText, vbCrLf, "")
strText = Replace(strText, chr(10), "")
strText = Replace(strText, chr(13), "")
strText = Replace(strText, "'", "\'")
strText = Replace(strText, " ", "")
strText = Replace(strText, ",", "，")
strText = Replace(strText, ".", "。")

reHTML = strText

End Function