Fungsi intersepsi string asp CutStrX (menyaring semua tag HTML) cukup baik. Teman yang membutuhkan dapat merujuknya. Copy kode kodenya sebagai berikut:
Fungsi CutStrX(ByVal Str,ByVal StrLen)
Redupkan aku,t,c,i,r
'Filter semua tag HTML
Tetapkan r=RegExp Baru
r.Global=Benar
r.MultiLine=Benar
r.Pola=(</?[A-Za-z][A-Za-z0-9]*[^>]*>)
str=r.Ganti(str, )
Tetapkan r=Tidak ada
aku=Len(str)
t=0
Untuk saya=1 Ke l
c=AscW(Pertengahan(str,i,1))
Jika c<0 Atau c>255 Maka t=t+2 Lain t=t+1
JIKA t>=StrLen Lalu
CutStrX=Kiri(Str,i)&...
Keluar Untuk
Kalau tidak
PotongStrX=Str
Akhiri Jika
Berikutnya
Fungsi Akhir