去除HTML代码中所有标签的两种方法

                        If nPos3 > 0 Then
                            nPos2 = nPos3
                        End If
                    End If
                End If
            Else
                bRemove = False
            End If

            If bRemove Then
                strResult = strResult & Left(strText, nPos1 - 1)
                strText = Mid(strText, nPos2 + 1)
            Else
                strResult = strResult & Left(strText, nPos1)
                strText = Mid(strText, nPos1 + 1)
            End If
        Else
            strResult = strResult & strText
            strText = ""
        End If

        nPos1 = InStr(strText, "<")
    Loop
    strResult = strResult & strText

    RemoveHTML_C = strResult
End Function
%>

您可能感兴趣的文章:

asp中去除html中style,javascript,css代码HTA文件去除html控件认证和接收命令行参数asp.ne去除html的函数代码asp去除html标记与空格的正则截字符串 去除HTML标记asp去除html的函数代码分析附实例说明