ฟังก์ชันที่ตรวจจับจำนวนครั้งที่สตริงปรากฏภายในสตริงอื่น

ฟังก์ชั่น CheckTheChar (TheChar, TheString)
'TheChar="สตริงที่จะตรวจพบ"
'TheString="สตริงที่จะตรวจพบ"
ถ้า inStr(TheString,TheChar) แล้ว
สำหรับ n =1 ถึง Len (TheString)
ถ้า Mid(TheString,n,Len(TheChar))=TheChar แล้ว
เช็คเดอะชาร์=เช็คเดอะชาร์+1
จบถ้า
ต่อไป
CheckTheChar="อักขระนี้"&CheckTheChar&"ครั้ง"
อื่น
ตรวจสอบ TheChar = "0 ครั้ง"
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด

ตัวอย่าง:

รหัสโปรแกรม
Response.เขียน CheckTheChar("ทุกคน", "a224everyone4a434a4everyone654arewr4a4a")

รหัสโปรแกรม
-
'ตรวจสอบจำนวนครั้งที่สตริง Str1 ปรากฏในสตริง Str2
ฟังก์ชั่นสาธารณะ SearchChar (Str1, Str2)
ดิม ฉัน เคาน์เตอร์
ตัวนับ = 0
ถ้า InStr(Str2, Str1) แล้ว
สำหรับฉัน = 1 ถึงเลน (Str2)
ถ้า กลาง(Str2, I, Len(Str1))=Str1 แล้ว
ตัวนับ = ตัวนับ + 1
สิ้นสุดถ้า
ต่อไป
จบถ้า
SearchChar=ตัวนับ
ฟังก์ชันสิ้นสุด
-
<ชื่อแบบฟอร์ม = "form1" method = "โพสต์" การกระทำ = "">
<p>ป้อนสองสาย:</p>
<p> สตริงที่ 1:
<input name="text1" type="text" id="text">
</p>
<p> สตริงที่ 2:
<input name="text2" type="text" id="text">
<input type="submit" name="Submit" value="Submit">
</p>
</แบบฟอร์ม>
-
สลัว
X=Request.Form("text1")
Y=Request.Form("text2")
ถ้า X<>"" และ Y<>"" แล้ว
-
<p>สตริงที่ 1: <%=X%></p>
<p>สตริงที่ 2: <%=Y%></p>
<p>จำนวนครั้งที่สตริง 1 ปรากฏในสตริง 2<%=SearchChar(X,Y)%></p>
-
สิ้นสุดถ้า
-

หลังจากการแปลงอย่างง่าย สามารถเปลี่ยนให้เป็นฟังก์ชันที่ตรวจจับเมื่อมี URL มากกว่า 2 รายการในเนื้อหาข้อความและบล็อกได้