第1个回答 2013-10-21
Function filtrateHtml(str) '去掉HTML标签,去掉<>之间的内容
For i = 1 To Len(str)
If Mid(str, i, 1) = "<" Then
For j = i To Len(str)
If Mid(str, j, 1) = ">" Then
i = j
Exit For
End If
Next
Else
filtrateHtml = filtrateHtml & Mid(str, i, 1)
End If
Next
End Function
filtrateHtml=filtrateHtml("<%=rs("你的字段名")%>")
然后对filtrateHtml的输出写上你自己想要的html格式
例如<font color=red><%=filtrateHtml%></font>