Обычная ротация ASP, vbs добавляет URL-адрес, название веб-сайта, введение в веб-сайт и другой контент после абзаца статьи <язык сценария =vbs>
'Имя функции: RegExpTest
'Параметры: strng--"Строка, подлежащая обработке; patrn--"Различные конечные знаки, разделенные |, например: <br/>|</p>|<br>; patrn2--"Заменить на строку , также разделенные |
открыть
'Автор: Лю Юнфа (yongfa365)'Блог
'Функция: произвольное добавление содержимого в Patrn2 после символа, заканчивающегося на Patrn в строке Strng.
Функция RegExpTest(strng, patrn, patrn2)
Dim regEx, Match, Matches 'Создайте переменные.
Set regEx =New RegExp 'Создаем регулярное выражение.
regEx.IgnoreCase =True' устанавливает, чувствительны ли символы к регистру.
regEx.Global =True» устанавливает глобальную доступность.
шаблон = Разделить(патрн, |)
ForEach p в шаблоне
regEx.Pattern = p 'Установить шаблон.
строка = regEx.Replace(strng,||& Chr(10)& p)
Следующий
строка = Разделить(строка,||)
ForEach E в строке
s = s + E + arrArt(patrn2)
Следующий
РегЭкспТест = с
Конечнаяфункция
Функция arrArt(patrn2)
arrArti = Разделить(patrn2,|)
Рандомизировать
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
Конечнаяфункция
строка =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/
слова = RegExpTest(strng, patrn, patrn2)
MsgBox(слова)
</скрипт>
<скрипт>
document.Write <fieldset><legend>Исходная строка</legend>+ Источник +</fieldset><br>
document.Write <fieldset><legend>Преобразованная строка</legend>+ слова +</fieldset><br>
</скрипт>