Функция перехвата строк asp CutStrX (фильтрует все HTML-теги) весьма хороша. Друзья, нуждающиеся в ней, могут обратиться к ней. Скопируйте код кода следующим образом:
Функция CutStrX(ByVal Str,ByVal StrLen)
Тусклый л, т, с, я, р
'Фильтровать все HTML-теги
Установить r=Новое регулярное выражение
r.Global=Истина
r.MultiLine=Истина
r.Pattern=(</?[A-Za-z][A-Za-z0-9]*[^>]*>)
str=r.Replace(str, )
Установить r=Ничего
l=Длен(стр)
т=0
Для i=1 К l
c=AscW(Середина(str,i,1))
Если c<0 Или c>255 Тогда t=t+2 Иначе t=t+1
ЕСЛИ t>=StrLen Тогда
CutStrX=Влево(Str,i)&...
Выход для
Еще
CutStrX=Str
Конец, если
Следующий
Конечная функция