A função de interceptação de string asp CutStrX (filtra todas as tags HTML) é muito boa. Amigos necessitados podem consultá-la. Copie o código do código da seguinte forma:
Função CutStrX(ByVal Str,ByVal StrLen)
Dim l,t,c,i,r
'Filtrar todas as tags HTML
Definir r=Novo RegExp
r.Global = Verdadeiro
r.MultiLine = Verdadeiro
r.Pattern=(</?[A-Za-z][A-Za-z0-9]*[^>]*>)
str=r.Replace(str, )
Definir r=Nada
l = Len(str)
t=0
Para i = 1 para l
c=AscW(Médio(str,i,1))
Se c<0 Ou c>255 Então t=t+2 Caso contrário, t=t+1
SE t>=StrLen Então
CortarStrX=Esquerda(Str,i)&...
Sair para
Outro
CortarStrX=Str
Terminar se
Próximo
Função final