In diesem Artikel wird hauptsächlich die Implementierungsmethode für das Einfügen von ASP-Bild-in-Bild-Werbung vorgestellt. Freunde in Not können sich darauf beziehen.
Obwohl viele Leute Methoden zum Hinzufügen von Bild-in-Bild-Anzeigen zu jedem Artikel angegeben haben, können diese sogenannten Methoden den Bild-in-Bild-Effekt des die Anzeige umgebenden Textes nicht wirklich erzielen und können nur links oder rechts ausgerichtet werden. Mit der nun besprochenen Methode kann tatsächlich der Bild-in-Bild-Werbeeffekt wie bei Sina und Sohu erzielt werden.
Lassen Sie uns zunächst über die falsche div+CSS-Methode sprechen. Ich hoffe, Sie werden nicht in die Irre geführt:
<div id=outer style=float:left;><div id=inner style=float:left;margin:0;width:200px;height:200px;></div>Textinhalt</div>
Das Obige kann nur als Auswirkung der Linksausrichtung angesehen werden. Es gibt viele andere Methoden, die mit Hilfe von Tabellen oder Iframes implementiert werden, und es ist nichts weiter als diese.
Wie können wir also wirklich den Effekt erzielen, jedem Artikel stapelweise Bild-in-Bild-Anzeigen hinzuzufügen? Dies kann durch das Abfangen von Feldern erfolgen, es gibt zwei Codeteile.
Der erste Absatz besteht darin, die Wortzahl des Artikelinhalts zu analysieren und dann den Code für die Anzeige einzufügen:
Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr'' fangen die entsprechende Anzahl von Strings ab, wenn len(ArticleContent)<320, dann headlen=200sonst headlen=320end iftempStr=ArticleContentLeftContent=InterceptString(tempStr,headlen)'Den abgefangenen Textinhalt abrufen 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
Das Obige dient zum Einfügen von Anzeigen über DIV+JS. Der Anzeigencode wird in die Datei ad.js eingefügt. Er kann auch über table+JS oder direkt mit iframe eingefügt werden. In beiden Fällen müssen Sie die Eigenschaften auf „Linksbündig“ oder „Rechtsbündig“ einstellen, damit die Anzeige umbrochen werden kann.
Der nächste zweite Absatz ist die Beurteilung des Bild-in-Bild-Werbekodex.
Function InterceptString(txt,length)Dim x,y,ii,c,ischines,isascii,tempStrtxt=trim(txt)x = len(txt)y = 0if x >= 1 then for ii = 1 to xc=asc(mid (txt,ii,1))wenn c< 0 oder c >255 dann „Die Beschreibung ist ein chinesisches Zeichen y = y + 2.“ ischines=1 isascii=0else 'Erklärung ist ein ASCII-Code y = y + 1 ischines=0 isascii=1end if'Wenn die Länge größer als die Länge des definierten Teilstrings ist, ermitteln Sie, ob er sensible Zeichenfolgen enthält, und trennen Sie diese, wenn y > = Länge dann wenn ischines=1 und StrCount(left(trim(txt),ii),<a)=StrCount(left(trim(txt),ii),</a>) dann txt = left(trim(txt),ii) 'Exit mit begrenzter Stringlänge für else if isascii=1 then x=x+1 end if end if next InterceptString = txtelse InterceptString = end ifEnd Function' Bestimmen Sie, wie oft ein String erscheint Funktion StrCount(Str,SubStr) Dim iStrCount Dim iStrStart Dim iTemp iStrCount = 0 iStrStart = 1 iTemp = 0 Str=LCase(Str) SubStr=LCase(SubStr) Do While iStrStart < Len(Str) iTemp = Instr(iStrStart,Str,SubStr,vbTextCompare) If iTemp <=0 Then iStrStart = Len(Str) Else iStrStart = iTemp + Len (SubStr) iStrCount = iStrCount + 1 End If Loop StrCount = iStrCountEnd Funktion
Nehmen Sie als Beispiel das Website-Managementsystem New Cloud. Suchen Sie zuerst die Codedatei /inc/NewsChannel.asp, die die statische Artikelseite vergrößert (andere CMS sind ähnlich), fügen Sie den ersten Codeabschnitt vor Zeile 248 HtmlContent = Replacement(HtmlContent, {$ArticleContent}, ArticleContent) ein und Fügen Sie es der Seite hinzu. Fügen Sie den zweiten Codeabschnitt ein, bis er passt, und ändern Sie dann ArticleContent in dieser Zeile in ModifyContent.