截字符串 去除HTML标记

<%‘**************************************************‘函数名:gotTopic‘作 用:截字符串,汉字一个算两个字符,英文算一个字符‘参 数:str —-原字符串‘ strlen —-截取长度‘返回值:截取后的字符串‘**************************************************function gotTopic(str,strlen)if str=”” thengotTopic=””exit functionend ifdim l,t,c, istr=replace(replace(re