Cet article présente principalement la méthode de mise en œuvre consistant à insérer de la publicité asp image dans l'image dans chaque article. Les amis qui en ont besoin peuvent s'y référer.
Bien que de nombreuses personnes aient proposé des méthodes pour ajouter des publicités image dans l'image à chaque article, ces soi-disant méthodes ne peuvent pas réellement obtenir l'effet image dans l'image du texte entourant la publicité et ne peuvent s'aligner qu'à gauche ou à droite. La méthode dont nous allons discuter maintenant peut véritablement obtenir l'effet publicitaire image dans l'image comme celui de Sina et Sohu.
Tout d’abord, parlons de la mauvaise méthode div+CSS. J’espère que vous ne serez pas induit en erreur :
<div id=outer style=float:left;><div id=inner style=float:left;margin:0;width:200px;height:200px;></div>Contenu texte</div>
Ce qui précède ne peut être considéré que comme l’effet de l’alignement à gauche. Il existe de nombreuses autres méthodes qui sont implémentées à l'aide de tables ou d'iframes, et ce n'est rien de plus.
Alors, comment pouvons-nous réellement obtenir l’effet d’ajouter des publicités illustrées par lots à chaque article ? Cela peut être fait en interceptant des champs, il y a deux morceaux de code.
Le premier paragraphe consiste à analyser le nombre de mots du contenu de l'article puis à insérer le code de la publicité :
Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr'' intercepte le nombre approprié de chaînes si len(ArticleContent)<320 alors headlen=200else headlen=320end iftempStr=ArticleContentLeftContent=InterceptString(tempStr,headlen)'Obtenir le contenu du texte intercepté RightContent=Right(ArticleContent,Len(ArticleContent)-Len(LeftContent))ModifyContent=LeftContent &<div style=float:left;><script langage=javascript src=http://www.eryi.org/ad.js></script></div>& RightContent
Ce qui précède consiste à insérer des annonces via DIV+JS. Le code d'annonce est placé dans le fichier ad.js. Il peut également être inséré via table+JS ou directement à l'aide d'iframe. Dans tous les cas, vous devez définir ses propriétés sur alignées à gauche ou à droite afin qu'elles puissent entourer l'annonce.
Le deuxième paragraphe suivant est le jugement du code de la publicité illustrée.
Fonction InterceptString(txt,length)Dim x,y,ii,c,ischines,isascii,tempStrtxt=trim(txt)x = len(txt)y = 0if x >= 1 alors pour ii = 1 à xc=asc(mid (txt,ii,1))si c< 0 ou c >255 alors 'La description est un caractère chinois y = y + 2 ischines=1 isascii=0else 'L'explication est un code ascii y = y + 1 ischines=0 isascii=1end if'Si la longueur est supérieure à la longueur de la sous-chaîne définie, déterminez si elle contient des chaînes sensibles et séparez-les si y > = longueur alors si ischines=1 et StrCount(left(trim(txt),ii),<a)=StrCount(left(trim(txt),ii),</a>) alors txt = left(trim(txt),ii) 'Longueur de chaîne limitée exit for else if isascii=1 then x=x+1 end if end if next InterceptString = txtelse InterceptString = end ifEnd Function' Détermine le nombre de fois qu'une chaîne apparaît Fonction 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) Si iTemp <=0 Alors iStrStart = Len(Str) Sinon iStrStart = iTemp + Len (SubStr) iStrCount = iStrCount + 1 Fin de boucle if StrCount = iStrCountEnd Fonction
Prenons l'exemple du système de gestion de site Web New Cloud. Recherchez d'abord le fichier de code /inc/NewsChannel.asp qui agrandit la page d'article statique (un autre CMS est similaire), insérez le premier morceau de code devant la ligne 248 HtmlContent = Replace(HtmlContent, {$ArticleContent}, ArticleContent), et ajoutez-le à la page Insérez le deuxième morceau de code jusqu'à ce que cela soit approprié, puis remplacez ArticleContent dans cette ligne par ModifyContent.