Bei der regulären Rotation von ASP und vbs werden nach dem Artikelabsatz <script language =vbs> die URL, der Website-Name, die Website-Einleitung und andere Inhalte hinzugefügt
'Funktionsname: RegExpTest
'Parameter: strng--"Die zu verarbeitende Zeichenfolge; patrn--"Verschiedene durch | getrennte Endzeichen, wie zum Beispiel: <br/>|</p>|<br>; , auch getrennt durch |
offen
'Autor: Liu Yongfa (yongfa365)'Blog
'Funktion: Fügen Sie den Inhalt in patrn2 nach dem Zufallsprinzip nach dem Zeichen hinzu, das mit patrn in der Zeichenfolge endet
Funktion RegExpTest(strng, patrn, patrn2)
Dim regEx, Match, Matches 'Variablen erstellen.
Set regEx =New RegExp ' Erstellt einen regulären Ausdruck.
regEx.IgnoreCase =True' legt fest, ob bei Zeichen zwischen Groß- und Kleinschreibung unterschieden wird.
regEx.Global =True' legt die globale Verfügbarkeit fest.
patrn = Split(patrn,|)
ForEach p im Muster
regEx.Pattern = p 'Muster festlegen.
strng = regEx.Replace(strng,||& Chr(10)& p)
Nächste
strng = Split(strng,||)
ForEach E in strng
s = s + E + arrArt(patrn2)
Nächste
RegExpTest = s
EndFunction
Funktion arrArt(patrn2)
arrArti = Split(patrn2,|)
Randomisieren
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
EndFunction
strng =111<br/>222</p>333<br/>444</p>555<Br>666</P>111
Quelle = strng
Muster =<br/>|</p>|<br>
patrn2 =www.xiaoshuo8.net|http://www.vevb.com/blog|hi.baidu.com/
Wörter = RegExpTest(strng, patrn, patrn2)
MsgBox(Wörter)
</script>
<Skript>
document.Write <fieldset><legend>Original string</legend>+ Source +</fieldset><br>
document.Write <fieldset><legend>Konvertierte Zeichenfolge</legend>+ Wörter +</fieldset><br>
</script>