aspÈçºÎÈ¥³ýhtml±ê¼Ç

·½·¨Ò» : ½ûÓÃHTML
×î¼òµ¥µÄ·½·¨ÊÇÖ±½Ó½ûÓÃhtml±êÇ©¶ø²»ÓÃÒƳýËüÃÇ. ¿ÉÒÔʹÓÃReplace()º¯Êý. ÀýÈç:
strText = Replace(strText, "<script", "&lt;script", 1, -1, 1)
»òÕßÖ±½Ó½ûÓÃËùÓеÄhtml: 
strText = Replace(strText, "<", "&lt;")
ÕâÑù×öËäÈ»ºÜ°²È«,µ«ÏԵò»¹»ÓѺÃ.(Óû§Ìá½»µÄÎı¾»á±äµÃÄÑÒÔÔĶÁ) 
·½·¨¶þ: ʹÓÃ"<"ºÍ">"
ÔõÑùʹµÃhtml±êÇ©´ÓÎı¾ÖÐÏûʧÄØ? ÎÒÃÇ¿ÉÒÔÈ¥µô"<"ºÍ">"ÖмäµÄËùÓÐÄÚÈÝ 
ÔÚJavaScriptÖÐÕâºÜ¼òµ¥: 
function RemoveHTML( strText )
{
    var regEx = /<[^>]*>/g;
    return strText.replace(regEx, "");
}
ÏÖÔڻص½VBScript, ¶ÔÓÚScriptingÒýÇæ5.0»ò¸ü¸ß°æ±¾(¿ÉÒÔͨ¹ýµ÷ÓÃScriptEngineMajorVersionºÍScriptEngineMinorVersionº¯ÊýÀ´¼ìÑé°æ±¾),ÎÒÃÇÒ²¿ÉÒÔʹÓÃRegExpÎïÌå: 
Function RemoveHTML( strText )
    Dim RegEx
    Set RegEx = New RegExp
    RegEx.Pattern = "<[^>]*>"
    RegEx.Global = True
    RemoveHTML = RegEx.Replace(strText, "")
End Function
Èô²»ÓÃÕýÔò±í´ïʽ,ÏÂÃæµÄº¯Êý¿ÉÒԴﵽͬÑùµÄÄ¿µÄ: 
Function RemoveHTML( strText ) 
    Dim nPos1
    Dim nPos2     
    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 
    
 &nbs