ASP, vbs การหมุนเวียนปกติจะเพิ่ม URL, ชื่อเว็บไซต์, การแนะนำเว็บไซต์ และเนื้อหาอื่นๆ หลังย่อหน้าบทความ <script language =vbs>
'ชื่อฟังก์ชัน: RegExpTest
'พารามิเตอร์: strng--"สตริงที่จะประมวลผล; patrn--"เครื่องหมายสิ้นสุดต่างๆ คั่นด้วย | เช่น: <br/>|</p>|<br>; คั่นด้วย | เช่นกัน
เปิด
'ผู้เขียน: Liu Yongfa (yongfa365)'Blog
'ฟังก์ชัน: สุ่มเพิ่มเนื้อหาใน patrn2 หลังอักขระที่ลงท้ายด้วย patrn ในสตริง strng
ฟังก์ชัน RegExpTest(strng, patrn, patrn2)
Dim regEx, Match, Matches 'สร้างตัวแปร'
ตั้งค่า regEx =New RegExp ' สร้างนิพจน์ทั่วไป
regEx.IgnoreCase =True' ตั้งค่าว่าอักขระจะคำนึงถึงตัวพิมพ์เล็กและตัวพิมพ์ใหญ่หรือไม่
regEx.Global =True' ตั้งค่าความพร้อมใช้งานทั่วโลก
รูปแบบ = แยก (รูปแบบ,|)
สำหรับแต่ละ p ในรูปแบบ
regEx.Pattern = p 'กำหนดรูปแบบ
strng = regEx.แทนที่ (strng,||& Chr(10)& p)
ต่อไป
strng = แยก (strng,||)
สำหรับ E แต่ละอันใน strng
s = s + E + arrArt(patrn2)
ต่อไป
RegExpTest = s
EndFunction
ฟังก์ชั่น arrArt(patrn2)
arrArti = แยก(patrn2,|)
สุ่ม
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
EndFunction
strng =111<br/>222</p>333<br/>444</p>555<br>666</P>111
ที่มา = strng
รูปแบบ =<br/>|</p>|<br>
patrn2 =www.xiaoshuo8.net|http://www.vevb.com/blog|hi.baidu.com/
คำ = RegExpTest (strng, รูปแบบ, patrn2)
MsgBox(ข้อความ)
</สคริปต์>
<สคริปต์>
document.Write <fieldset><legend>สตริงต้นฉบับ</legend>+ แหล่งที่มา +</fieldset><br>
document.Write <fieldset><legend>สตริงที่แปลงแล้ว</legend>+ คำ +</fieldset><br>
</สคริปต์>