Question

asp网站去掉HTML代码

我的是普通的asp网站，网站的文章页(也就是内容页) 的描述内，想调用文章内容的前70个汉字，只要汉字和标点符号，其它的html代码全部去掉，我是这样写的：
<meta name="Description" content="<%= left(rs("neirong"),70) %>" />
但这个就是没有去除html代码。
高手可以帮忙一下啊～～～～，另外说简单和完整一点，本人菜菜鸟。

Answer 1

<%
Function RemoveHTML( strText )
nPos1 = InStr(strText, "<")
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, "<")
Loop

RemoveHTML = strText
End Function
%>

例子：
<%
dim html
html="内容"
Response.Write RemoveHTML(html)
%>

Answer 2

给你2个，你尝试去用吧

Function RemoveHTML( strText )
nPos1 = InStr(strText, "<")
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, "<")
Loop

RemoveHTML = strText
End Function

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), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
fString = Replace(fString,"'","''")
HTMLEncode = fString
end if
end function

Answer 3

用正则表达式进行内容选取。不懂正则表达式的的话先去学习一下相关知识吧。