ส่วนใหญ่จะใช้เพื่อลบสคริปต์ iframe และแท็ก HTML อื่น ๆ ใน HTML เพื่อนๆ ที่ต้องการสามารถอ้างอิงถึงมันได้ คัดลอกรหัสรหัสดังต่อไปนี้:
-
'จัดรูปแบบ HTML, SDCMS เวอร์ชันปรับปรุง'
-
ฟังก์ชั่น Nohtml(ByVal t0)
ถ้า Len(t0)=0 หรือ IsNull(t0) แล้ว
โนเอชทีเอ็ม=
ออกจากฟังก์ชัน
สิ้นสุด ถ้า
Dim Regs, แมตช์, แมตช์
ตั้งค่า Regs=regexp ใหม่
Regs.Ignorecase=จริง
Regs.Global=จริง
'กรอง JS, Iframe ออก
Regs.pattern =<script.+?/script>
t0=Regs.แทนที่(t0,)
Regs.pattern =<iframe.+?/iframe>
t0=Regs.แทนที่(t0,)
'กรองอื่น ๆ
Regs.Pattern=<.+?>
ตั้งค่าการจับคู่=Regs.Execute(t0)
ถ้าตรงกันนับ>0 แล้ว
สำหรับการแข่งขันแต่ละครั้งในการแข่งขัน
t0=แทนที่(t0,Match.value,)
ต่อไป
สิ้นสุด ถ้า
t0=แทนที่(t0, ,)
t0=แทนที่(t0,vbCrLf,)
t0=แทนที่(t0, ,)
t0=แทนที่(t0, ,)
t0=แทนที่(t0,CHR(9),)
t0=แทนที่(t0,CHR(13),)
t0=แทนที่(t0,CHR(10),)
t0=แทนที่(t0,CHR(22),)
ตั้งค่า Regs=ไม่มีอะไร
เลขที่ HTML=t0
ฟังก์ชันสิ้นสุด