يكمل asp علامات html تلقائيًا ويغلق تلقائيًا (التعبير العادي)

يقوم ASP بإكمال علامة html تلقائيًا وإغلاقها تلقائيًا، مما يسهل ASP اعتراض المحتوى بعلامات html ومنع تشوه الصفحة كما يلي:

وظيفة إغلاقHTML(strContent)

Dim arrTags، i، OpenPos، ClosePos، re، strMatchs، j، Match

تعيين إعادة = جديد RegExp

re.IgnoreCase = صحيح

re.Global = صحيح

arrTags = Array(p, div,span, table, ul, الخط, b, u, i, h1, h2, h3, h4, h5, h6)

لأني = 0 إلى UBound(arrTags)

نقاط البيع المفتوحة = 0

كلوسبوس = 0

re.Pattern = /< + arrTags(i) + ( [^/</>]+|)/>

تعيين strMatchs = re.Execute(strContent)

لكل مباراة في strMatchs

نقاط البيع المفتوحة = نقاط البيع المفتوحة + 1

التالي

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

تعيين strMatchs = re.Execute(strContent)

لكل مباراة في strMatchs

كلوسبوس = كلوسبوس + 1

التالي

لـ j = 1 إلى OpenPos - ClosePos

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

التالي

التالي

CloseHTML = strContent

وظيفة النهاية