Question

ASP过虑HTML代码的问题

<%=rs("content")%>
把内容输出来，content里面有图片信息，如(HTML)：<img=....> 我要把这些过虑掉咋弄？ 只显示文本内容。
怎么实现呢？
第二种方法我试了，不行。显示出来全是HTML了

第三种方法怎么使用啊？

Answer 1

<%
Function HTMLEncode(Str)
Str=Replace(Str,"<","<")
Str=Replace(Str,">",">")
Str=Replace(Str," "," ")
Str=Replace(Str,Chr(10),"<br>")
Str=Replace(Str,Chr(13)+Chr(10),"<p>")
HTMLEncode=Str
End Function
%>

使用方法：<%=HTMLEncode(rs("content"))%>

上面
Str=Replace(Str,"<","<")
Str=Replace(Str,">",">")
中在这个baidu知道里面可以显示不正常
str,"<"后面那个引号里面是& l t ;(去掉空格)
str,">"后面那个引号里面是& g t ;（去掉空格）

上面是不解释html，下面是去掉html内容

Function LoseHtml(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "<\/*[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
LoseHtml = ClsTempLoseStr
End function

使用方法：<%=LoseHtml(rs("content"))%>

下面是我以前写的另一个方法，我觉得比较好！

Function delHtml(strHtml)
Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)"

strOutput = objRegExp.Replace(strHtml, "")
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
delHtml = strOutput

Set objRegExp = Nothing
End Function

str1 = "< meta http-equiv=""refresh"" content=""0;URL=apple/default.htm"">正</3>在<a href=""abc"">转</a><img src=""abc.jpg"">到 ... ...中华人民共和< b >国</b >"
Response.Write(delHtml(str1))
Response.Write("<hr>")
Response.Write(str1)

Answer 2

这个最好用正则表达式：
<%
Function nohtml(str)
If IsNull(str) Or Trim(str) = "" Then
nohtml = ""
Exit Function
End If
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "(\<.[^\<]*\>)"
str = re.Replace(str, " ")
re.Pattern = "(\<\/[^\<]*\>)"
str = re.Replace(str, " ")
Set re = Nothing
str = Replace(str, "'", "")
str = Replace(str, Chr(34), "")
nohtml = str
End Function
%>
上面这个是过滤html 元素的函数，加到程序里就可以啊，然后这样调用：
<%=nohtml(rs("content"))%>

Answer 3

用replace()函数

replace(content,'')多用几次才行