asp เติมแท็ก html โดยอัตโนมัติและปิดโดยอัตโนมัติ (นิพจน์ปกติ)

ASP เติมแท็ก html โดยอัตโนมัติและปิดโดยอัตโนมัติ ซึ่งอำนวยความสะดวก ASP ในการสกัดกั้นเนื้อหาด้วยแท็ก html และป้องกันการเสียรูปของหน้า คัดลอกโค้ดดังนี้:

ฟังก์ชั่น closeHTML(strContent)

Dim arrTags, i, OpenPos, ClosePos, ใหม่, strMatchs, j, Match

ตั้งใหม่ = RegExp ใหม่

re.IgnoreCase = จริง

re.Global = จริง

arrTags = อาร์เรย์ (p, div, span, ตาราง, ul, แบบอักษร, b, u, i, h1, h2, h3, h4, h5, h6)

สำหรับ i = 0 ถึง UBound (arrTags)

โอเพ่นโพส = 0

ปิดโพส = 0

ใหม่รูปแบบ = /< + arrTags(i) + ( [^/</>]+|)/>

ตั้งค่า strMatchs = re.Execute (strContent)

สำหรับการแข่งขันแต่ละครั้งใน strMatchs

OpenPos = OpenPos + 1

ต่อไป

re.Pattern = /</ + arrTags(i) + />

ตั้งค่า strMatchs = re.Execute (strContent)

สำหรับการแข่งขันแต่ละครั้งใน strMatchs

ClosePos = ClosePos + 1

ต่อไป

สำหรับ j = 1 ถึง OpenPos - ClosePos

strContent = strContent + </ + arrTags(i) + >

ต่อไป

ต่อไป

closeHTML = strContent

ฟังก์ชันสิ้นสุด