Este artículo presenta principalmente el método de implementación de la inserción de anuncios de imagen en imagen ASP en cada artículo. Los amigos que lo necesiten pueden consultarlo.
Aunque muchas personas han proporcionado métodos para agregar anuncios de imagen en imagen a cada artículo, estos llamados métodos no pueden lograr realmente el efecto de imagen en imagen del texto que rodea el anuncio y solo pueden alinearse hacia la izquierda o hacia la derecha. El método que vamos a discutir ahora realmente puede lograr el efecto publicitario de imagen en imagen como el de Sina y Sohu.
Primero, hablemos del método div+CSS incorrecto. Espero que no te engañen:
<div id=estilo exterior=float:izquierda;><div id=estilo interior=float:izquierda;margin:0;ancho:200px;alto:200px;></div>Contenido de texto</div>
Lo anterior sólo puede considerarse como el efecto de la alineación a la izquierda. Hay muchos otros métodos que se implementan con la ayuda de tablas o iframes, y no es más que esto.
Entonces, ¿cómo podemos realmente lograr el efecto de agregar anuncios de imagen en imagen en lotes a cada artículo? Se puede hacer interceptando campos, hay dos fragmentos de código.
El primer párrafo es para analizar el recuento de palabras del contenido del artículo y luego insertar el código del anuncio:
Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr'' intercepta el número apropiado de cadenas si len(ArticleContent)<320 entonces headlen=200else headlen=320end iftempStr=ArticleContentLeftContent=InterceptString(tempStr,headlen)'Obtener el contenido de texto interceptado 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
Lo anterior es para insertar anuncios a través de DIV+JS. El código del anuncio se coloca en el archivo ad.js. También se puede insertar a través de table+JS o directamente usando iframe. De cualquier manera, debe establecer sus propiedades en alineado a la izquierda o alineado a la derecha para que pueda ajustarse alrededor del anuncio.
El siguiente segundo párrafo es el juicio del código publicitario de imagen en imagen.
Función InterceptString(txt,length)Dim x,y,ii,c,ischines,isascii,tempStrtxt=trim(txt)x = len(txt)y = 0if x >= 1 entonces para ii = 1 a xc=asc(mid (txt,ii,1))si c< 0 o c >255 entonces 'La descripción es un carácter chino y = y + 2 ischines=1 isascii=0else 'La explicación es un código ascii y = y + 1 ischines=0 isascii=1end if'Si la longitud es mayor que la longitud de la subcadena definida, determine si contiene cadenas confidenciales y sepárelas si y > = longitud entonces si ischines=1 y StrCount(left(trim(txt),ii),<a)=StrCount(left(trim(txt),ii),</a>) entonces txt = left(trim(txt),ii) 'Salir de longitud de cadena limitada para else if isascii=1 then x=x+1 end if end if next InterceptString = txtelse InterceptString = end ifEnd Function' Determina el número de veces que aparece una cadena Función StrCount(Str,SubStr) Dim iStrCount Dim iStrStart Dim iTemp iStrCount = 0 iStrStart = 1 iTemp = 0 Str=LCase(Str) SubStr=LCase(SubStr) Hacer mientras iStrStart < Len(Str) iTemp = Instr(iStrStart,Str,SubStr,vbTextCompare) Si iTemp <=0 Entonces iStrStart = Len(Str) De lo contrario iStrStart = iTemp + Len (SubStr) iStrCount = iStrCount + 1 Fin si bucle StrCount = Función iStrCountEnd
Tomemos como ejemplo el sistema de gestión de sitios web New Cloud. Primero busque el archivo de código /inc/NewsChannel.asp que hace crecer la página del artículo estático (otros CMS son similares), inserte el primer fragmento de código delante de la línea 248 HtmlContent = Reemplazar (HtmlContent, {$ArticleContent}, ArticleContent) y agréguelo a la página. Inserte el segundo fragmento de código hasta que sea apropiado y luego cambie ArticleContent en esa línea a ModifyContent.