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