Este artigo apresenta principalmente o método de implementação de inserção de anúncio picture-in-picture asp em cada artigo. Amigos necessitados podem consultá-lo.
Embora muitas pessoas tenham fornecido métodos para adicionar anúncios picture-in-picture a cada artigo, esses chamados métodos não conseguem realmente alcançar o efeito picture-in-picture do texto ao redor do anúncio e só podem alinhar à esquerda ou à direita. O método a ser discutido agora pode realmente alcançar o efeito de publicidade picture-in-picture como o de Sina e Sohu.
Primeiro, vamos falar sobre o método div+CSS errado. Espero que você não seja enganado:
<div id=outer style=float:left;><div id=inner style=float:left;margin:0;width:200px;height:200px;></div>Conteúdo de texto</div>
O que foi dito acima só pode ser considerado como o efeito do alinhamento à esquerda. Existem muitos outros métodos que são implementados com a ajuda de tabelas ou iframes, e nada mais é do que isso.
Então, como podemos realmente conseguir o efeito de adicionar anúncios picture-in-picture em lotes a cada artigo? Isso pode ser feito interceptando campos, são dois trechos de código.
O primeiro parágrafo é analisar a contagem de palavras do conteúdo do artigo e depois inserir o código do anúncio:
Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr'' intercepta o número apropriado de strings se len(ArticleContent)<320 então headlen=200else headlen=320end iftempStr=ArticleContentLeftContent=InterceptString(tempStr,headlen)'Obter o conteúdo do 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
O acima é para inserir anúncios através de DIV+JS. O código do anúncio é colocado no arquivo ad.js. Também pode ser inserido através de tabela+JS ou diretamente usando iframe. De qualquer forma, você deve definir suas propriedades como alinhado à esquerda ou à direita para que possa envolver o anúncio.
O próximo segundo parágrafo é o julgamento do código de publicidade picture-in-picture.
Função InterceptString(txt,length)Dim x,y,ii,c,ischines,isascii,tempStrtxt=trim(txt)x = len(txt)y = 0se x >= 1 então para ii = 1 para xc=asc(mid (txt,ii,1))se c< 0 ou c >255 então 'A descrição é um caractere chinês y = y + 2 ischines=1 isascii=0else 'A explicação é um código ascii y = y + 1 ischines=0 isascii=1end if'Se o comprimento for maior que o comprimento da substring definida, determine se ela contém strings sensíveis e separe-as se y > = comprimento então se ischines=1 e StrCount(left(trim(txt),ii),<a)=StrCount(left(trim(txt),ii),</a>) então txt = left(trim(txt),ii) 'Comprimento de string limitado saída para else if isascii=1 then x=x+1 end if end if next InterceptString = txtelse InterceptString = end ifEnd Function' Determine o número de vezes que uma string aparece Função 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 = função iStrCountEnd
Veja o sistema de gerenciamento de sites New Cloud como exemplo. Primeiro encontre o arquivo de código /inc/NewsChannel.asp que aumenta a página estática do artigo (outro CMS é semelhante), insira o primeiro trecho de código na frente da linha 248 HtmlContent = Replace(HtmlContent, {$ArticleContent}, ArticleContent) e adicione-o à página Insira o segundo trecho de código até apropriado e altere ArticleContent nessa linha para ModifyContent.