ASP, rotasi reguler vbs menambahkan URL, nama situs web, pengenalan situs web, dan konten lainnya setelah paragraf artikel <script bahasa =vbs>
'Nama fungsi: RegExpTest
'Parameter: strng--"String yang akan diproses; patrn--"Berbagai tanda akhir dipisahkan dengan |, seperti: <br/>|</p>|<br>; , juga dipisahkan oleh |
membuka
'Penulis: Liu Yongfa (yongfa365)'Blog
'Fungsi: Tambahkan konten secara acak di patrn2 setelah karakter yang diakhiri dengan patrn di string strng
Fungsi RegExpTest(strng, pola, pola2)
Redupkan regEx, Cocokkan, Cocokkan 'Buat variabel.
Setel regEx =RegExp Baru ' Buat ekspresi reguler.
regEx.IgnoreCase =True' menetapkan apakah karakter peka huruf besar-kecil.
regEx.Global =True' menetapkan ketersediaan global.
pola = Pisahkan(pola,|)
UntukSetiap p dalam pola
regEx.Pattern = p 'Atur pola.
strng = regEx.Replace(strng,||& Chr(10)& p)
Berikutnya
strng = Pisahkan(strng,||)
UntukSetiap E di strng
s = s + E + arrArt(pola2)
Berikutnya
RegExpTest = s
Fungsi Akhir
Fungsi arrArt(patrn2)
arrArti = Pisahkan(patrn2,|)
Acak
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
Fungsi Akhir
strng =111<br/>222</p>333<br/>444</p>555<Br>666</P>111
Sumber = strng
pola =<br/>|</p>|<br>
patrn2 =www.xiaoshuo8.net|http://www.vevb.com/blog|hi.baidu.com/
kata-kata = RegExpTest(strng, pola, pola2)
Kotak Pesan (kata-kata)
</skrip>
<skrip>
document.Write <fieldset><legend>String asli</legend>+ Sumber +</fieldset><br>
document.Tulis <fieldset><legend>String yang dikonversi</legend>+ kata +</fieldset><br>
</skrip>