ฟังก์ชั่นการสกัดกั้นสตริง asp CutStrX (กรองแท็ก HTML ทั้งหมด) ค่อนข้างดี เพื่อนๆ ที่ต้องการความช่วยเหลือสามารถอ้างอิงถึงมันได้ คัดลอกรหัสรหัสดังต่อไปนี้:
ฟังก์ชั่น CutStrX (ByVal Str, ByVal StrLen)
หรี่ l,t,c,i,r
'กรองแท็ก HTML ทั้งหมด
ตั้งค่า r=RegExp ใหม่
r.Global=จริง
r.MultiLine=จริง
r.รูปแบบ=(</?[A-Za-z][A-Za-z0-9]*[^>]*>)
str=r.แทนที่(str, )
ตั้ง r=ไม่มีอะไร
l=เลน(str)
เสื้อ=0
สำหรับ i=1 ถึง l
c=AscW(กลาง(str,i,1))
ถ้า c<0 หรือ c>255 แล้ว t=t+2 อื่น t=t+1
ถ้า t>=StrLen แล้ว
CutStrX=ซ้าย(Str,i)&...
ออกเพื่อ
อื่น
CutStrX=Str
สิ้นสุดถ้า
ต่อไป
ฟังก์ชันสิ้นสุด