<% '************************************************** '函数名:gottopic '作 用:截字符串,汉字一个算两个字符,英文算一个字符 '参 数:str ----原字符串 ' strlen ----截取长度 '返回值:截取后的字符串 '************************************************** function gottopic(str,strlen) if str="" then gottopic="" exit function end if dim l,t,c, i str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<") str=replace(str,"?","") l=len(str) t=0 for i=1 to l c=abs(asc(mid(str,i,1))) if c>255 then t=t+2 else t=t+1 end if if t>=strlen then gottopic=left(str,i) & "…" exit for else gottopic=str end if next gottopic=replace(replace(replace(replace(gottopic," "," "),chr(34),"""),">",">"),"<","<") end function '========================================================= '函数:removehtml(strhtml) '功能:去除html标记 '参数:strhtml --要去除html标记的字符串 '========================================================= function removehtml(strhtml) dim objregexp, match, matches set objregexp = new regexp objregexp.ignorecase = true objregexp.global = true '取闭合的<> objregexp.pattern = "<.+?>" '进行匹配 set matches = objregexp.execute(strhtml) ' 遍历匹配集合,并替换掉匹配的项目 for each match in matches strhtml=replace(strhtml,match.value,"") next removehtml=strhtml set objregexp = nothing set matches=nothing end function %>
网友评论