函数一: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
%>