ASP代码中如何去除HTML代码！

    我们在网站制作的时候，有时间会和到新闻摘要这样的列表，但是如果我们直接提取，比如恰好有个img标签；提取了一半，这样在网页就会出现错误，所以这就要求我们在提取的时候，先把HTML中的<*>全部都替换掉；

下面的代码就是替换的代码：
dim strText
 strText=left(rs("Content"),750)  /*这个是提取内容*/
   
    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
   
response.write left(Replace(strText,"<",""),120)  在输出内容

这样就可以把HTML替换掉。