根据定义类型，在需要使用的时候调用即可比如 事先定义了一个 函数 lt #39这是一个替换html标签的函数过程 Function HtmlDecodeByVal fStringIf IsNullfString Or TrimfString = quotquot Then PE_HtmlDecode = quotquotExit。

不用，有函数可以直接过滤掉所有的尤其是脚本函数的 Public Function ReplacehtmlTextstrDim Str，re Str=Textstr Set re=new RegExp reIgnoreCase =True reGlobal=True rePattern=quotlt^*quotStr=reReplace。

如下lt #39过滤html标签函数 Function DelhtmlCon，CodeDo while instrlcasecon，quotltquotCodeps = instrlcaseCon，quotltquotCodepe = instrps，Con，quotquot+1 p = midcon，ps，pepscon = replaceCon，p，quot。

public static string NoHtmlstring text 删除脚本 text = RegexReplacetext， @quotltscript^*？*？ltscriptquot， quotquot， RegexOptionsIgnoreCase删除HTML text = RegexReplacetext， @quotlt^*quot。

Set Matches = objRegExpExecutestrHTML#39 遍历匹配集合，并替换掉匹配的项目 For Each Match in Matches strHtml=ReplacestrHTML，MatchValue，quotquotNext #39RemoveHTML=strHTML iflenstrHTMLstrLenthen RemoveHTML。