ASP过滤字符串

来源：百度知道 编辑：UC知道 时间：2024/06/30 11:49:07
在<%=rs("Reviews")%>中 我想把HTML标记给去掉 哪位高手能帮忙一下？
不好意思 我是初学着 能帮我写出来吗？我追加分 我实在是不会 <%=rs("Reviews")%>

这两个函数一个去掉标记和一个不去掉标记：
Function outHTML(str)
Dim sTemp
sTemp = str
outHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, Chr(34), """)
sTemp = Replace(sTemp, Chr(10), "<br>")
outHTML = sTemp
End Function

Function inHTML(str)
Dim sTemp
sTemp = str
inHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, Chr(34), """)
inHTML = sTemp
End Function

repla