调用这个方法就可以了Function replaceWithoutPContentStrDim ClsTempLoseStr，regEx ClsTempLoseStr = CstrContentStrSet regEx = New RegExp regExPattern = quotlt\0，1^ltp*lt\0，1^lt；对于希望很好的处理这个错误信息，而不使用默认ASPNet异常报错信息的程序员们，你们不要禁用validateRequest=false正确的做法是在你当前页面添加Page_Error函数，来捕获所有页面处理过程中发生的而没有处理的异常然后给用户；这里是对增强后的函数的调用，这里只能输入数字，如果输入其他字符将被过滤掉 function inputNumberOnlytext replaceAndSetPostext，^\dg，#39#39 ltscript 在ltbodyltbody之间加入ltTEXTAREA class=；db=quotdatabaseEnterPrisemdbquot #39如果在web根目录下使用的话，就用这一句#39db=quotdatabaseEnterPrisemdbquot #39如果在web根目录下面的文件夹目录使用的话，就用这一句Set conn = ServerCreateObjectquot；不用，有函数可以直接过滤掉所有的尤其是脚本函数的 Public Function ReplacehtmlTextstrDim Str，re Str=Textstr Set re=new RegExp reIgnoreCase =True reGlobal=True rePattern=quotlt^*quotStr=reReplace。

先把ltbr替换成br str = replacestr，quotltbrquot，quotbrquot然后再rePattern=quot\lt^\lt*\quot然后在把br替换成ltbr str = replacestr，quotbrquot，quotltbrquotASP语法不怎么会用 lt function nohtmlstrdi；Set regEx = Nothing End Function#39说明 #39ReplaceHTMLcontent，quot\lt*？\quot，quotquot#39替换所有lt之间的内容 #39ReplaceHTMLcontent，quot\lt\！\2开始\2\*？\lt\！\2结束\2\quot，quot被替换内容quot#39替换；应该是可以过掉所有的标签的大小写已经忽略，全局已经打开，多行也打开着，看了一下你的匹配式也是正确的啊你过不掉的可能是因为中间有空间，而^表示的是不包含的所有字符怎么会过滤不掉呢？quotlt\？\w+\s+。

不用拜，谢行了lttitlelt%call getTitle%lttitle最好getTitle把改一下，改成有返回值的function然后可以lttitlelt%＝nohtmlgetTitle%lttitle lt%function nohtmlstrdim re Set re=new RegExp re；public static string NoHtmlstring text 删除脚本 text = RegexReplacetext， @quotltscript^*？*？ltscriptquot， quotquot， RegexOptionsIgnoreCase删除HTML text = RegexReplacetext， @quotlt^*quot；Public Function RemoveHTMLstrTextDim RegEx Set RegEx = New RegExp RegExPattern = quotlt^*quotRegExGlobal = True RemoveHTML = RegExReplacestrText， quotquotEnd Function ROWSPAN=quot2quot ROwSpAN=#392#39 rowspan=2。

region 过滤html，js，css代码 ltsummary 过滤html，js，css代码 ltsummary ltparam name=quothtmlquot参数传入ltparam ltreturnsltreturns public static string CheckStrstring html S。

dim Content Content=ArticleInfoRsquotContentquot #39此句一定要在ArticleInfoRs查询时定义，否则可能出现quot类型不匹配quot然后用lt%=leftnohtmlContentquot，50%引用；HTMLEncode=Str End Function 使用方法lt%=HTMLEncodersquotcontentquot% 上面 Str=ReplaceStr，quotltquot，quotltquotStr=ReplaceStr，quotquot，quotquot中在这个baidu知道里面可以显示不正常 str，quotltquot后面那个引号里面是 l t；if strHTMl=quotquot or isnullstrHTML then exit Function end if StrHtml = ReplaceStrHtml，vbCrLf，quotquotStrHtml = ReplaceStrHtml，Chr13Chr10，quotquotStrHtml = ReplaceStrHtml，Chr13，quotquotStrHtml = Repla；用到以下两个FUNCTION 1去除HTML代码 Function ClearHtmlStrSet re = new RegExp reIgnoreCase = True reGlobal = True rePattern = quotlt^*quotStr = reReplaceStr，quotquotset re = Nothing Str=。