第一个是PHP内置函数作者: QQ糖 时间: 2010-1-18 04:45
下面的这个是ASP做的大家看能不能用 <% Function cutStr(str) '去掉所有HTML标记 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
cutStr=str
Next cutStr=Replace(cutStr,chr(10),"") cutStr=Replace(cutStr,chr(13),"") cutStr=Replace(cutStr,chr(32),"") End Function %> <%=cutStr("<font color=red>hehe</font>")%>''实现这个函数作者: 龍2132 时间: 2010-1-18 04:45
下面实验了,看看行不行,,作者: 想念~! 时间: 2010-1-18 04:45
你要的是不是这种效果?