<%
'******************************
'函數：RemoveHTML_A(strText)
'參數：strText，待處理的字符串
'作者：阿里西西
'日期：2007/7/12
'描述：去除HTML代碼中所有標簽
'示例：<%=RemoveHTML_A("<b>歡迎光臨阿里西西</b>")%>
'******************************
Function?RemoveHTML_A(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?

????RemoveHTML_A?=?strText?
End?Function
%>

<%?
'******************************?
'函數：RemoveHTML_B(strText)?
'參數：strText，待處理的字符串?
'作者：阿里西西?
'日期：2007/7/12?
'描述：去除HTML代碼中所有標簽?
'示例：<%=RemoveHTML_B("<b>歡迎光臨阿里西西</b>")%>?
'******************************?
Function?RemoveHTML_B(?strText?)?
?Dim?RegEx?

?Set?RegEx?=?New?RegExp?

?RegEx.Pattern?=?"<[^>]*>"?
?RegEx.Global?=?True?

?RemoveHTML_B?=?RegEx.Replace(strText,?"")?
End?Function?
%>?