function nohtml(str) dim re Set re=new RegExp        re.IgnoreCase =true        re.Global=True        re.Pattern="(\<.[^\<]*\>)" &n...

去除HTML代码中所有标签[code]<%’******************************’函数：RemoveHTML_A(strText)’参数：strText，待处理的字符串’作者：阿里西西’日期：2007/7/12’描述：去除HTML代码中所有标签’示例：<%=RemoveHTML_A("<b>欢迎光临阿里西西</b>")%>’******************************Function RemoveHTML_A(strText)    Dim nPos1&...

<%'**************************************************'函数名：gotTopic'作用：截字符串，汉字一个算两个字符，英文算一个字符'参数：str----原字符串'strlen----截取长度'返回值：截取后的字符串'**************************************************functiongotTopic(str,strlen)ifstr=""thengotTopic=""exitfunctionendifdiml,t,c,istr=replace(replace(replace(replac...