Question

asp 剔除 html 标签 输出文章内容

输入文章内容的 前 30 个 字符 可是 前边的内容有 图片 和 样式 如何 把它们取出 输出前 30 个 文字 呢

Answer 1

关于去除asp中html的方法有很多，现在我在这里说几种简单的，希望对大家有用。
1.
'==============================
'功能描述： 用正则除去HTML标记
'==============================
Function RemoveHTMLTag(str)
Set re = New RegExp
re.Pattern = "<[^<>]*>"
re.Global = true
RemoveHTMLTag =re.Replace(str,"")
Set re = Nothing
End Function2.
function HTMLEncode(fString)
if not isnull(fstring) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "
")
fString = Replace(fString, CHR(10), "
")
fString = Replace(fString,"'","''")
HTMLEncode = fString
end if
end function3.
'==============================
'功能描述： 用正则除去HTML标记
'不能保留等以及用户自定义的<和>
'==============================Function RemoveHTMLTag(fString)
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Pattern = "<(.[^>]*)>"
fString = re.Replace(fString, "")
Set re = Nothing
RemoveHTMLTag = fString
End Function4.
'==============================
'功能描述： 除去HTML标记
'不能保留等以及用户自定义的<和>
'==============================Function Remove_HTML(Str)
Dim ilen1, ilen2
Do While InStr(1, Str, "<", 1) >0
ilen1 = InStr(1, Str, "<", 1)
ilen2 = InStr(1, Str, ">", 1)
Str = Left(Str, ilen1 -1) & Mid(Str, ilen2 + 1)
Loop
Remove_HTML = Str
End Function我自己用过的：'正则替换函数'
Function ReplaceHTML(srcstr, patrn, replStr)
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
regEx.Execute(srcstr)
ReplaceHTML = regEx.Replace(srcstr, replStr)
Set regEx = Nothing
End Function'说明----
'ReplaceHTML(content,"\<.*?\>","")
'替换所有<>之间的内容
'ReplaceHTML(content,"\<\!\-{2}开始\-{2}\>.*?\<\!\-{2}结束\-{2}\>","被替换内容")
'替换<!--开始-->和<!--结束-->之间的内容