<%
Function cutStr(str,strlen)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
Dim l,t,c,i
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(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13)," ")
cutStr=Replace(cutStr," ","")
End Function

%>
<%=cutStr("<P><FONT face=Verdana>中国国际中小企业博览会经国务院批准，由中国国家发展和改革委员会、财政部、商务部、工商行政管理总局、银行业监督管理委员会、广东省人民政府共同主办。于每年9月中下旬在广州（琶州）国际会议展览中心举行。从2004起迄今已成功举办了4届，其中2007年展会面积11万名方米，参观观众逾20万人次。作为我国政府为促进中小企业发展而举办的最高级别展会之一，中博会每年都和一个友好国家共同主办，组织该国家特色产业中小企业参展，2008年第五届中博会将由韩国作为合作国家共同举办。</FONT></P>
<P><FONT face=Verdana><FONT face=Verdana>作为中博会的主办方和主要承办方，广东省政府高度重视中博会的组织工作。为了继续办好中博会，促进我省现代服务业的发展和制造业的产业升级，本届中博会将设立中小企业服务馆。参展商主要由生产性服务业企业组成，生产性服务业是与制造业直接相关的配套服务业，它通过为制造业提供智力型服务来提高其生产效率、降低其交易成本，进而推动制造业的发展，在现代经济发展中具有不可替代的作用。</FONT></FONT></P><FONT face=Verdana><FONT face=Verdana>
<P><BR>本届中博会中小企业服务馆将设信息化及电子商务展区、教育及人力资源展区、现代物流及贸易服务展区、专业技能级综合服务区4个展区。致力于针对中小企业的全方位需要，为国内中小企业提供一站式的实用服务、市场信息及商贸咨询等服务，协助中小企业拓展市场以及寻找合适业务伙伴。服务馆作为本届中博会的新亮点，是各种生产性服务业企业宣传品牌、推介服务、结识新客户密切老客户、拓展生意渠道的极佳场所。 </P>
<P></FONT></FONT></P>",25)%>

这是以个ASP过滤HTML然后截取相应字符文字的小程序，但是现在只能过滤普通的HTML。求高手帮忙，最好把英文也过滤掉

<%=cutStr("如果这里都是中文就完全没有问题普通的HTML都可以",25)%>
但是像上面的就过滤不了了。。求高手帮忙啊 。。