ASP、vbs の定期的なローテーションでは、記事の段落 <script language =vbs> の後に URL、Web サイト名、Web サイトの紹介、その他のコンテンツが追加されます。
'関数名: RegExpTest
'パラメータ: strng--"処理対象の文字列; patrn--"| で区切られたさまざまな終了記号 (例: <br/>|</p>|<br>); patrn2--"文字列に置き換えられます。も | で区切られています。
開ける
「著者:劉永発(yongfa365)」ブログ
'機能: strng 文字列内の patrn で終わる文字の後に、patrn2 の内容をランダムに追加します
関数 RegExpTest(strng, patrn, patrn2)
Dim regEx、Match、Matches '変数を作成します。
Set regEx =New RegExp ' 正規表現を作成します。
regEx.IgnoreCase =True' は、文字の大文字と小文字を区別するかどうかを設定します。
regEx.Global =True' はグローバルな可用性を設定します。
パターン = 分割(パターン,|)
パターン内の各 p について
regEx.Pattern = p 'パターンを設定します。
strng = regEx.Replace(strng,||& Chr(10)& p)
次
strng = 分割(strng,||)
ForEach E の文字列
s = s + E + arrArt(patrn2)
次
RegExpTest = s
エンドファンクション
関数 arrArt(patrn2)
arrArti = Split(patrn2,|)
ランダム化
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
エンドファンクション
strng =111<br/>222</p>333<br/>444</p>555<Br>666</P>111
ソース = 文字列
パターン =<br/>|</p>|<br>
patrn2 =www.xiaoshuo8.net|http://www.vevb.com/blog|hi.baidu.com/
Words = RegExpTest(strng, patrn, patrn2)
メッセージボックス(単語)
</script>
<スクリプト>
document.Write <fieldset><legend>元の文字列</legend>+ ソース +</fieldset><br>
document.Write <fieldset><legend>変換された文字列</legend>+単語+</fieldset><br>
</script>