ASP, la rotación regular de vbs agrega la URL, el nombre del sitio web, la introducción del sitio web y otro contenido después del párrafo del artículo <script language =vbs>
'Nombre de la función: RegExpTest
'Parámetros: strng--"La cadena a procesar; patrn--"Varias marcas finales separadas por |, como: <br/>|</p>|<br>; , también separados por |
abierto
'Autor: Liu Yongfa (yongfa365)'Blog
'Función: agrega aleatoriamente el contenido en patrn2 después del carácter que termina con patrn en la cadena string
Función RegExpTest(cadena, patrón, patrón2)
Dim regEx, Match, Matches 'Crea variables.
Establecer regEx =Nueva RegExp ' Crea una expresión regular.
regEx.IgnoreCase =True' establece si los caracteres distinguen entre mayúsculas y minúsculas.
regEx.Global =True' establece la disponibilidad global.
patrón = Dividir(patrón,|)
Para cada p en patrón
regEx.Pattern = p 'Establecer patrón.
cadena = regEx.Replace(cadena,||& Chr(10)& p)
Próximo
cadena = Dividir(cadena,||)
Para cada E en cadena
s = s + E + arreglo(patrón2)
Próximo
PruebaExpReg = s
Función final
Función arregloArt(patrón2)
arrArti = Dividir(patrón2,|)
Aleatorizar
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
Función final
cadena =111<br/>222</p>333<br/>444</p>555<Br>666</P>111
Fuente = cadena
patrón =<br/>|</p>|<br>
patrón2 =www.xiaoshuo8.net|http://www.vevb.com/blog|hi.baidu.com/
palabras = RegExpTest(cadena, patrón, patrón2)
MsgBox(palabras)
</script>
<guión>
document.Write <fieldset><legend>Cadena original</legend>+ Fuente +</fieldset><br>
document.Write <fieldset><legend>Cadena convertida</legend>+ palabras +</fieldset><br>
</script>