La función de interceptación de cadenas asp CutStrX (filtra todas las etiquetas HTML) es bastante buena. Los amigos que lo necesiten pueden consultarla. Copie el código de código de la siguiente manera:
Función CutStrX(ByVal Str,ByVal StrLen)
Tenue l,t,c,i,r
'Filtrar todas las etiquetas HTML
Establecer r = Nueva expresión regular
r.Global=Verdadero
r.MultiLine=Verdadero
r.Patrón=(</?[A-Za-z][A-Za-z0-9]*[^>]*>)
cadena = r.Reemplazar (cadena,)
Establecer r=Nada
l=Len(cadena)
t=0
Para i=1 a l
c=AscW(Medio(str,i,1))
Si c<0 O c>255 Entonces t=t+2 Si no t=t+1
SI t>=StrLen Entonces
CutStrX=Izquierda(Str,i)&...
Salir por
Demás
CortarStrX=Str
Terminar si
Próximo
Función final