如何过滤掉这样的代码....
后台提交到数据库的时候,把这些代码(<FONT face=宋体 size=2>)也提交上去了,,在index页面输出数据的时,<FONT face=宋体 size=2> 这一断代码全部已空位输出来, 能不能把这些代码给去掉,直接显示 平湖吴昊建材经<FONT face=宋体 size=2>平湖吴昊建材经
HTMLEncode(内容)
[QUOTE]
Function HTMLEncode(reString) '转换HTML代码
Dim Str:Str=reString
If Not IsNull(Str) Then
Str = UnCheckStr(Str)
Str = Replace(Str, "&", "&")
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<")
Str = Replace(Str, CHR(32), " ")
Str = Replace(Str, CHR(9), " ")
Str = Replace(Str, CHR(9), "    ")
Str = Replace(Str, CHR(34),""")
Str = Replace(Str, CHR(39),"'")
Str = Replace(Str, CHR(13), "")
Str = Replace(Str, CHR(10), "<br>")
HTMLEncode = Str
End If
End Function
[/QUOTE]