Artikel ini terutama memperkenalkan metode penerapan penyisipan iklan gambar-dalam-gambar asp ke dalam setiap artikel.
Meskipun banyak orang telah memberikan metode untuk menambahkan iklan gambar-dalam-gambar ke setiap artikel, metode yang disebut ini tidak dapat benar-benar mencapai efek gambar-dalam-gambar dari teks di sekitar iklan, dan hanya dapat rata kiri atau kanan. Metode yang akan dibahas sekarang benar-benar dapat mencapai efek iklan gambar-dalam-gambar seperti yang dilakukan Sina dan Sohu.
Pertama, mari kita bicara tentang metode div+CSS yang salah. Saya harap Anda tidak disesatkan:
<div id=outer style=float:left;><div id=inner style=float:left;margin:0;width:200px;height:200px;></div>Konten teks</div>
Hal di atas hanya dapat dianggap sebagai efek perataan kiri. Ada banyak metode lain yang diimplementasikan dengan bantuan tabel atau iframe, dan tidak lebih dari ini.
Jadi, bagaimana kita bisa mencapai efek penambahan iklan gambar-dalam-gambar secara bertahap ke setiap artikel? Bisa dengan mencegat field, ada dua buah kode.
Paragraf pertama menganalisis jumlah kata dari konten artikel dan kemudian memasukkan kode untuk iklan:
Redupkan LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr'' mencegat jumlah string yang sesuai jika len(ArticleContent)<320 lalu headlen=200else headlen=320end iftempStr=ArticleContentLeftContent=InterceptString(tempStr,headlen)'Dapatkan konten teks yang dicegat RightContent=Right(ArticleContent,Len(ArticleContent)-Len(LeftContent))ModifyContent=LeftContent &<div style=float:left;><script bahasa=javascript src=http://www.eryi.org/ad.js></script></div>& Konten Kanan
Cara diatas adalah memasukkan iklan melalui DIV+JS. Kode iklan ditempatkan pada file ad.js, bisa juga melalui tabel+JS atau langsung menggunakan iframe. Apa pun pilihannya, Anda harus menyetel propertinya ke rata kiri atau rata kanan agar dapat membungkus iklan.
Paragraf kedua berikutnya adalah penilaian kode iklan gambar-dalam-gambar.
Fungsi InterceptString(txt,length)Dim x,y,ii,c,ischines,isascii,tempStrtxt=trim(txt)x = len(txt)y = 0if x >= 1 maka untuk ii = 1 hingga xc=asc(mid (txt,ii,1))jika c< 0 atau c >255 maka 'Deskripsinya adalah karakter Cina y = y + 2 ischines=1 isascii=0else 'Penjelasan adalah kode ascii y = y + 1 ischines=0 isascii=1end if'Jika panjangnya lebih besar dari panjang substring yang ditentukan, tentukan apakah substring tersebut berisi string sensitif dan pisahkan jika y > = panjang maka jika ischines=1 dan StrCount(left(trim(txt),ii),<a)=StrCount(left(trim(txt),ii),</a>) maka txt = left(trim(txt),ii) 'Panjang string terbatas keluar untuk else if isascii=1 maka x=x+1 end if end if next InterceptString = txtelse InterceptString = end ifEnd Function' Tentukan berapa kali sebuah string muncul Fungsi StrCount(Str,SubStr) Redupkan iStrCount Redupkan iStrStart Redupkan iTemp iStrCount = 0 iStrStart = 1 iTemp = 0 Str=LCase(Str) SubStr=LCase(SubStr) Lakukan Sementara iStrStart < Len(Str) iTemp = Instr(iStrStart,Str,SubStr,vbTextCompare) Jika iTemp <=0 Maka iStrStart = Len(Str) Else iStrStart = iTemp + Len (SubStr) iStrCount = iStrCount + 1 Akhir Jika Loop StrCount = Fungsi iStrCountEnd
Ambil contoh sistem manajemen situs web Cloud Baru. Pertama cari file kode /inc/NewsChannel.asp yang menumbuhkan halaman artikel statis (CMS lain serupa), masukkan potongan kode pertama di depan baris 248 HtmlContent = Ganti(HtmlContent, {$ArticleContent}, ArticleContent), dan tambahkan ke halaman Masukkan potongan kode kedua hingga sesuai, lalu ubah ArticleContent di baris tersebut menjadi ModifyContent.