В этой статье в основном описывается метод реализации вставки рекламы asp «картинка в картинке» в каждую статью. Друзья, нуждающиеся в помощи, могут обратиться к ней.
Хотя многие люди предлагают методы добавления рекламных объявлений «картинка в картинке» в каждую статью, эти так называемые методы не могут по-настоящему добиться эффекта «картинка в картинке» текста, окружающего рекламу, и могут выравниваться только по левому или правому краю. Метод, который мы сейчас обсудим, действительно может обеспечить рекламный эффект «картинка в картинке», подобный методу Sina и Sohu.
Для начала давайте поговорим о неправильном методе div+CSS. Надеюсь, вы не будете введены в заблуждение:
<div id=outer style=float:left;><div id=inner style=float:left;margin:0;width:200px;height:200px;></div>Текстовое содержимое</div>
Вышеупомянутое можно рассматривать только как эффект выравнивания по левому краю. Есть множество других методов, реализуемых с помощью таблиц или iframe, и это не что иное, как это.
Итак, как же на самом деле мы можем добиться эффекта от добавления рекламы «картинка в картинке» в каждую статью? Это можно сделать перехватом полей, есть два куска кода.
Первый абзац — проанализировать количество слов в содержании статьи, а затем вставить код рекламы:
Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr'' перехватывают соответствующее количество строк, если len(ArticleContent)<320, тогда headlen=200else headlen=320end iftempStr=ArticleContentLeftContent=InterceptString(tempStr,headlen)'Получить перехваченное текстовое содержимое RightContent=Right(ArticleContent,Len(ArticleContent)-Len(LeftContent))ModifyContent=LeftContent &<div style=float:left;><script Language=javascript src=http://www.eryi.org/ad.js></script></div>& RightContent
Вышеупомянутое предназначено для вставки рекламы через DIV+JS. Рекламный код помещается в файл ad.js. Его также можно вставить через table+JS или напрямую с помощью iframe. В любом случае вам необходимо установить для его свойств выравнивание по левому или правому краю, чтобы оно могло обтекать рекламу.
Следующий второй абзац — это оценка рекламного кодекса «картинка в картинке».
Функция InterceptString(txt,length)Dim x,y,ii,c,ischines,isascii,tempStrtxt=trim(txt)x = len(txt)y = 0, если x >= 1, то для ii = 1 до xc=asc(mid (txt,ii,1))если c<0 или c>255, то 'Описание представляет собой китайский иероглиф y = y + 2 ischines=1 isascii=0else 'Пояснение представляет собой код ascii y = y + 1 ischines=0 isascii=1end if'Если длина больше длины определенной подстроки, определите, содержит ли она конфиденциальные строки, и разделите их, если y > = длина, тогда если ischines=1 и StrCount(left(trim(txt),ii),<a)=StrCount(left(trim(txt),ii),</a>) тогда txt = left(trim(txt),ii) 'Выход с ограниченной длиной строки для else if isascii=1 then x=x+1 end if end if next InterceptString = txtelse InterceptString = end ifEnd Function' Определить количество раз появления строки Функция StrCount(Str,SubStr) Dim iStrCount Dim iStrStart Dim iTemp iStrCount = 0 iStrStart = 1 iTemp = 0 Str=LCase(Str) SubStr=LCase(SubStr) Выполнять Пока iStrStart < Len(Str) iTemp = Instr(iStrStart,Str,SubStr,vbTextCompare) Если iTemp <=0 Тогда iStrStart = Len(Str) Иначе iStrStart = iTemp + Len (SubStr) iStrCount = iStrCount + 1 End If Loop StrCount = функция iStrCountEnd
В качестве примера возьмем систему управления сайтом New Cloud. Сначала найдите файл кода /inc/NewsChannel.asp, который увеличивает статическую страницу статьи (другие CMS аналогичны), вставьте первый фрагмент кода перед строкой 248 HtmlContent = replace(HtmlContent, {$ArticleContent}, ArticleContent) и добавьте его на страницу. Вставьте второй фрагмент кода, пока это не будет необходимо, а затем измените ArticleContent в этой строке на ModifyContent.