Analisis kode fungsi ASP untuk menghapus HTML terlampir dengan contoh. Telah diuji oleh pemrograman Script Home dan memang mudah digunakan.
Kode berikut tidak akan menggantikan tanda < di tengah ld<sad, sehingga isinya masih normal.
Kodenya adalah sebagai berikut:
<%
fungsi nohtml(str)
redup kembali
Setel ulang=RegExp baru
re.IgnoreCase = benar
re.Global=Benar
re.Pola=(/<.[^/<]*/>)
str=re.replace(str, )
re.Pola=(/<//[^/<]*/>)
str=re.replace(str, )
str=ganti(str, ,)
str=ganti(str, ,)
tidakhtml=str
atur ulang=tidak ada
fungsi akhir
str=<title>sadjksjdl script home menyambut Anda sajdljsald<sadsadsad<br> 'Ini adalah ujian
respon.tulis nohtml(str)
%>
Hasilnya adalah:
Kodenya adalah sebagai berikut:
beranda skrip sadjksjdl menyambut Anda sajdljsald<sadsadsad
Namun, kode berikut tidak menanyakannya. Lihat saja < dan lupakan pencocokan tak terbatas di belakangnya.
Kodenya adalah sebagai berikut:
<%
Fungsi dropHtml(Byval strHTML)
Redupkan objRegExp, Cocok, Cocok
Setel objRegExp = Regexp Baru
objRegExp.IgnoreCase = Benar
objRegExp.Global = Benar
'Tutup <>
objRegExp.Pattern = <.+?>
'Cocok
Setel Kecocokan = objRegExp.Execute(strHTML)
' Lintasi set yang cocok dan ganti item yang cocok
Untuk Setiap Pertandingan dalam Pertandingan
strHtml=Ganti(strHTML,Match.Nilai,)
Berikutnya
dropHtml=strHTML
Setel objRegExp = Tidak Ada
Fungsi Akhir
str=<title>sadjksjdl script home menyambut Anda sajdljsald<sadsadsad<br> 'Ini adalah ujian
respon.tulis dropHtml(str)
%>
Hasilnya adalah:
Kodenya adalah sebagai berikut:
beranda skrip sadjksjdl menyambut Anda sajdljsald