怎么样把html代码去掉？

[lzt_6666]

新闻的内容content字段包含了html代码 我要搞个新闻内容搜索后结果，列出来包含关键字的一段新闻内容，想把里面的html代码去掉，怎么成完成呀？

[ybfqlyq]

Function filterstr(dtitle) 去HTML代码的函数
On Error Resume Next
Dim topic, i As Integer
topic = Split(dtitle, ">")
dtitle = ""
For i = 0 To UBound(topic)
If InStrRev(topic(i), "<") > 0 Then
dtitle = dtitle & Left(topic(i), InStrRev(topic(i), "<"))
Else
dtitle = dtitle & topic(i)
End If
DoEvents
Next
filterstr = Replace(dtitle, "<", "") 去掉HTML标记
End Function

[任亚军]

'******************************
'名称: HTMLEncode
'参数:fString
'返回值：HTMLEncode
'作用:对数据内容进行排版转换
'创建时间:2005年5月6日
'******************************
Public Function HTMLEncode(fString)
If Not IsNull(fString) Or fString<>"" Then
fString=Replace(fString,"<","<")
fString=Replace(fString,">",">")
fString=Replace(fString,Chr(9)," ") '倾斜字体
fString=Replace(fString,Chr(13),"")
fString=Replace(fString,Chr(32)," ") '转换空格
fString=Replace(fString,Chr(34),""") '转换双引号
fString=Replace(fString,Chr(39),"'") '转换单引号
fString=Replace(fString,Chr(10),"</p><p>") '转换成段落格式
fString=Replace(fString,Chr(10),"<BR>    ") '转换为下一行
fString=Replace(fString,Chr(13),"<BR>")
fString=Replace(fSting,vbCrlf,"<BR>")
'fString=LinkFriend(fString)
'fString=ChkBadWords(fString)
HTMLEncode=fString
End If
End Function

[任亚军]

'******************************
'名称: HTMLEncode
'参数:fString
'返回值：HTMLEncode
'作用:对数据内容进行排版转换
'创建时间:2005年5月6日
'******************************
Public Function HTMLEncode(fString)
If Not IsNull(fString) Or fString<>"" Then
fString=Replace(fString,"<","<")
fString=Replace(fString,">",">")
fString=Replace(fString,Chr(9)," ") '倾斜字体
fString=Replace(fString,Chr(13),"")
fString=Replace(fString,Chr(32)," ") '转换空格
fString=Replace(fString,Chr(34),""") '转换双引号
fString=Replace(fString,Chr(39),"'") '转换单引号
fString=Replace(fString,Chr(10),"</p><p>") '转换成段落格式
fString=Replace(fString,Chr(10),"<BR>    ") '转换为下一行
fString=Replace(fString,Chr(13),"<BR>")
fString=Replace(fSting,vbCrlf,"<BR>")
'fString=LinkFriend(fString)
'fString=ChkBadWords(fString)
HTMLEncode=fString
End If
End Function

[无爱大叔]

function clearHTMLCode(originCode)
dim reg
set reg = new RegExp
reg.Pattern = "<[^>]*>"
reg.Global = true
clearHTMLCode = reg.Replace(originCode, "")
end function

oStr = (clearHTMLCode(str1))
response.write oStr

[xuStanly]

Function RemoveHTML(s)'去掉所有HTML标记
Dim re
Set re = new RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<(.[^>]*)>"
s = re.Replace(s,"")
RemoveHTML = s
set re = Nothing
End Function

[lishuai818]

进来看看　原来都回答了哦

[jamila8]

Function RemoveHTML(s)'去掉所有HTML标记
Dim re
Set re = new RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<(.[^>]*)>"
s = re.Replace(s,"")
RemoveHTML = s
set re = Nothing
End Function

[linky520]

function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "<br>")
fString = Replace(fString, CHR(10), "<br>")
HTMLEncode = fString
end function

[lzt_6666]

谢谢各位结贴