Хотя у многих людей есть метод добавления рекламных объявлений в каждой статье, эти так называемые методы не могут по-настоящему реализовать эффект текста вокруг рекламы и могут быть выровнены только влево и вправо. Эта статья является методом реализации вставки рекламы в ASP в статью. Давайте следим за редактором неправильного нового технологического канала, чтобы узнать ниже!
Во -первых, давайте поговорим о неправильном методе Div+CSS, и я надеюсь, что все не будут введены в заблуждение:
<div id = "Outter" style = "float: left;"> <div id = "inner" style = "float: слева; Маржа: 0; ширина: 200px; высота: 200px;"> </div> Текстовое содержимое </div>
Вышеуказанное можно рассматривать только как выравниваемый левой эффект. Есть много вещей, которые могут быть достигнуты с помощью таблиц или iframes, что является не чем иным, как это.
Итак, как мы можем по-настоящему достичь эффекта пакетного добавления рекламы картин в картине в каждую статью? Его можно выполнить с помощью перехваченных полей, с двумя частями кода.
Первый абзац анализирует количество слов в статье, а затем вставляет код объявления:
Dim LeatherContent, MidAdcontent, RightContent, ModifyContent, Headlen, Tempstr, Headadstr, Tailadstr '' 'Intercept the Comity Strings, если Len (ArticleContent) <320, затем Headlen = 200ELS contentrightcontent = right (articlecontent, len (articlecontent) -len (левый контент)) ModifyContent = Leatscontent & "<div style =" "float:" "> <script language =" "javascript" "src =" "http://www.ery.org/Ad.JS"> rightconcEntcont. <//right-right-rightc> <//right-right-right-rightcertcont.
Выше приведено вставить рекламу через Div+JS. Код AD размещен в файле AD.JS, или он может быть вставлен через таблицу+JS или непосредственно с использованием iframe. В любом случае, его свойства должны быть установлены на выровненную левую или правую выровненную, чтобы его можно было гарантировать окружать рекламу.
Следующий второй абзац-это суждение о рекламном кодексе изображения.
Function InterceptString (txt, длина) Dim x, y, ii, c, ischines, isascii, tempstrtxt = trim (txt) x = len (txt) y = 0if x> = 1, затем для ii = 1 до xc = asc (mid (txt, ii, 1), если c <0 или c> 255 then 'unpranation - это китайское характер y = ychines = 1 -й. ASCII -код y = y + 1 ischines = 0 isascii = 1end if'if. left(trim(txt),ii) '" string limit exit for else if isascii=1 then x=x+1 end if end if next InterceptString = txtelse InterceptString = ""end ifEnd Function'Judge the number of times the string appears Function StrCount(Str,SubStr) Dim iStrCount Dim iStrStart Dim iTemp iStrCount = 0 iStrStart = 1 iTemp = 0 Str=LCase(Str) Substr = lcase (substr) do is istrstart <len (str) itemp = instr (istrstart, str, substr, vbtextcompare), если iTemp <= 0, то istrstart = len (str) else istrstart = itemp + len (substr) istrcount = istrcount + 1 end strcount = istrcountend (substr)
Возьмите новую систему управления облачными веб -сайтами в качестве примера. Сначала найдите файл кода /inc/newschannel.asp (другие CMS аналогичны этому), вставьте первый фрагмент кода перед Htmlcontent = Replict (htmlcontent, «{$ articlecontent}», ArticleContent) на строке 248, наведите второй кусок кода до подходящего на странице, а затем изменить Articlectontent ontrent ontrent ontrent ontrent ontrent ontrent ontratent ontratent ontrent ontrent on.
Выше приведено метод реализации вставки рекламы в ASP в статью. Я надеюсь, что после понимания введения этой статьи у каждого будет определенное понимание, и я надеюсь, что все будут продолжать поддерживать неправильный новый канал технологии!