La fonction d'interception de chaîne asp CutStrX (filtre toutes les balises HTML) est assez bonne. Les amis dans le besoin peuvent s'y référer. Copiez le code comme suit :
Fonction CutStrX(ByVal Str,ByVal StrLen)
Dim l,t,c,i,r
'Filtrer toutes les balises HTML
Définir r = Nouvelle RegExp
r.Global=Vrai
r.MultiLine=Vrai
r.Pattern=(</?[A-Za-z][A-Za-z0-9]*[^>]*>)
str=r.Remplacer(str, )
Définir r=Rien
l=Len(chaîne)
t=0
Pour i=1 À l
c=AscW(Mid(str,i,1))
Si c<0 Ou c>255 Alors t=t+2 Sinon t=t+1
SI t>=StrLen Alors
CutStrX=Gauche(Str,i)&...
Quitter pour
Autre
CutStrX=Str
Fin si
Suivant
Fonction de fin