asp html 字符串截取,ASP函数：截取字符串和去除HTML标记

函数一：ASP截取字符串函数

功能：利用VBScript截取指定长度的字符串，超过长度的地方用“……”代替。

输入参数和返回值：请参考函数代码

代码：

'**************************************************

'函数名：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

%>