Hapus semua tag dalam kode html
Salinan kode adalah sebagai berikut:
<%
'***********************************
'Fungsi: lepas html_a (strtext)
'Argumen: strtext, string yang akan diproses
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Hapus semua tag dalam kode HTML
'Contoh: <%= RemoveHTML_A ("<b> Selamat Datang di Alixixi </b>")%>
'***********************************
FunctionRemoveHTML_A (strtext)
DIMNPOS1
DIMNPOS2
npos1 = instr (strtext, "<")
Dowhilenpos1> 0
npos2 = instr (npos1+1, strtext, ">")
IFNPOS2> 0then
strtext = kiri (strtext, npos1-1) & mid (strtext, npos2+1)
Kalau tidak
Exitdo
Endif
npos1 = instr (strtext, "<")
Lingkaran
Hapushtml_a = strtext
Fungsi endfungsi
%>
Hapus semua tag dalam kode html
Salinan kode adalah sebagai berikut:
<%
'***********************************
'Fungsi: lepas html_b (strtext)
'Argumen: strtext, string yang akan diproses
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Hapus semua tag dalam kode HTML
'Contoh: <%= RemoveHTML_B ("<b> Selamat Datang di Alixixi </b>")%>
'***********************************
FunctionRemoveHTML_B (strtext)
Dimregex
SetRegex = newregexp
Regex.pattern = "<[^>]*>"
Regex.global = true
Hapushtml_b = regex.replace (strtext, "")
Fungsi endfungsi
%>
Hapus semua tag dalam kode html
Salinan kode adalah sebagai berikut:
<%
'***********************************
'Fungsi: lepas html_c (strtext)
'Argumen: strtext, string yang akan diproses
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Hapus semua tag dalam kode HTML
'Contoh: <%= RemoveHTML_C ("<b> Selamat Datang di Alixixi </b>")%>
'***********************************
FunctionRemoveHTML_C (strtext)
DIMTAGLIST
Taglist = ";!-;! Doctype; a; akronim; alamat; applet; area; b; base; basefont;" & _
"Bgsound; besar; blockquote; body; br; tombol; caption; center; cite; code;" & _