asp html 字符串截取,ASP函数：截取字符串和去除HTML标记
发布时间：2022-12-05 12:40:53 所属栏目：Asp教程 来源：
导读： 函数一：ASP截取字符串函数
功能：利用VBScript截取指定长度的字符串asp标记，超过长度的地方用“……”代替。
输入参数和返回值：请参考函数代码
代码：
功能：利用VBScript截取指定长度的字符串asp标记，超过长度的地方用“……”代替。
输入参数和返回值：请参考函数代码
代码：
|
函数一：ASP截取字符串函数 功能：利用VBScript截取指定长度的字符串asp标记，超过长度的地方用“……”代替。 输入参数和返回值：请参考函数代码 代码： '************************************************** '函数名：CutStr '作 用：截字符串，汉字一个算两个字符，英文算一个字符 '参 数：str ----原字符串 ' strlen ----截取长度 '返回值：截取后的字符串 '************************************************** function CutStr(str,strlen) if str="" then CutStr="" 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 CutStr=left(str,i) & "…" exit for else CutStr=str end if next CutStr=replace(replace(replace(replace(CutStr," "," "),chr(34),"""),">",">")," end function %> 函数二：去除HTML标记 功能：去除字符串中的指定HTML标记 输入参数和返回值：请参考函数代码 代码： '========================================================= '函数：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 %> （编辑：应用网_扬州站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
站长推荐
浙公网安备 33038102330458号