Fungsi PeriksaTheChar(TheChar,TheString)
'TheChar="String yang akan dideteksi"
'TheString="String yang akan dideteksi"
jika inStr(TheString,TheChar) lalu
untuk n =1 hingga Len(TheString)
jika Mid(TheString,n,Len(TheChar))=TheChar maka
PeriksaChar=PeriksaChar+1
Berakhir jika
Berikutnya
CheckTheChar="karakter ini"&CheckTheChar&"waktu"
kalau tidak
CheckTheChar="0 kali"
berakhir jika
Fungsi Akhir
contoh:
kode program
Respon.Tulis CheckTheChar("semua orang","a224semua orang4a434a4semua orang654arewr4a4a")
kode program
<%
'Deteksi berapa kali string Str1 muncul di string Str2
Fungsi Publik SearchChar(Str1, Str2)
Redupkan aku, Konter
Penghitung = 0
Jika InStr(Str2, Str1) Lalu
Untuk I = 1 Ke Len(Str2)
Jika Tengah(Str2, I, Len(Str1))=Str1 Maka
Penghitung = Penghitung + 1
Akhiri Jika
Berikutnya
Berakhir jika
SearchChar=Penghitung
Fungsi Akhir
%>
<form nama="form1" metode="posting" action="">
<p>Masukkan dua string:</p>
<p> Rangkaian 1:
<masukan nama="teks1" type="teks" id="teks">
</p>
<p> Rangkaian 2:
<masukan nama="teks2" type="teks" id="teks">
<input type="kirim" nama="Kirim" value="Kirim">
</p>
</bentuk>
<%
Redup
X=Permintaan.Formulir("teks1")
Y=Permintaan.Formulir("teks2")
Jika X<>"" dan Y<>"" Maka
%>
<p>String 1: <%=X%></p>
<p>Baris 2: <%=Y%></p>
<p>Berapa kali string 1 muncul di string 2<%=SearchChar(X,Y)%></p>
<%
Akhiri Jika
%>
Setelah transformasi sederhana, ini dapat diubah menjadi fungsi yang mendeteksi ketika ada lebih dari 2 URL dalam konten pesan dan memblokirnya.