Die String-Abfangfunktion von asp CutStrX (filtert alle HTML-Tags) ist recht gut. Kopieren Sie den Codecode wie folgt:
Funktion CutStrX(ByVal Str,ByVal StrLen)
Dim l,t,c,i,r
'Alle HTML-Tags filtern
Setze r=Neuer RegExp
r.Global=True
r.MultiLine=True
r.Pattern=(</?[A-Za-z][A-Za-z0-9]*[^>]*>)
str=r.Replace(str, )
Setze r=Nichts
l=Len(str)
t=0
Für i=1 bis l
c=AscW(Mid(str,i,1))
Wenn c<0 oder c>255, dann t=t+2, sonst t=t+1
IF t>=StrLen Then
CutStrX=Left(Str,i)&...
Ausgang für
Anders
CutStrX=Str
Ende wenn
Nächste
Funktion beenden