Meskipun banyak orang memiliki metode menambahkan iklan gambar di setiap artikel, metode yang disebut ini tidak dapat benar-benar menyadari efek teks di sekitar iklan, dan hanya dapat diselaraskan ke kiri dan kanan. Artikel ini adalah metode implementasi untuk memasukkan iklan di ASP ke dalam artikel. Mari ikuti editor saluran teknologi baru yang salah untuk belajar di bawah ini!
Pertama, mari kita bicara tentang metode Div+CSS yang salah, dan saya harap semua orang tidak akan disesatkan:
<Div id = "Outer" style = "float: left;"> <div id = "inner" style = "float: left; margin: 0; width: 200px; tinggi: 200px;"> </div> konten teks </div>
Di atas hanya dapat dianggap sebagai efek yang selaras kiri. Ada banyak hal yang dapat dicapai dengan bantuan tabel atau iframe, yang tidak lebih dari itu.
Jadi, bagaimana kita bisa benar-benar mencapai efek dari penambahan iklan gambar-in-picture ke setiap artikel? Ini dapat dilakukan dengan menggunakan bidang yang dicegat, dengan dua potong kode.
Paragraf pertama menganalisis jumlah kata dalam artikel dan kemudian memasukkan kode iklan:
Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr'''Intercept the appropriate number of strings if len(ArticleContent)<320 then headlen=200else headlen=320end iftempStr=ArticleContentLeftContent=InterceptString(tempStr,headlen)'Get intercepted text ContentRightContent = Right (Articlecontent, Len (Articlecontent) -len (LeftContent)) ModifyContent = LeftContent & "<Div Style =" "Float: Left;" "> <Script Language =" "JavaScript" "SRC =" "http://www.eryi
Di atas adalah memasukkan iklan melalui Div+JS. Kode iklan ditempatkan dalam file AD.js, atau dapat dimasukkan melalui Tabel+JS atau langsung menggunakan IFRAME. Dengan cara apa pun, sifat-sifatnya harus diatur ke kiri atau selaras kanan sehingga dapat dijamin mengelilingi iklan.
Paragraf kedua berikutnya adalah penilaian kode iklan gambar-in-picture.
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))if c< 0 or c >255 then 'Explanation is a Chinese character y = y + 2 ischines=1 isascii=0else 'Explanation is an ascii code y = y + 1 ischines=0 isascii=1end if'If the length is already greater than the length of the defined substring, determine whether it contains sensitive strings and is separated if y >= length then if ischines=1 and StrCount(left(trim(txt),ii),"<a")=StrCount(left(trim(txt),ii),"</a>") then txt = Kiri (trim (txt), ii) '"batas batas string untuk yang lain jika isascii = 1 lalu x = x+1 end jika akhir jika interceptString berikutnya = txtelse interceptString =" "end ifend function'judge Jumlah kali string muncul strcount (str, substr) redup iStrcount dim istrcarttart dime istrcount = 0 Substr) deded iStrcount Substr = lcase (substr) lakukan sementara istrstart <len (str) itemp = instr (istrstart, str, substr, vBtextCompare) jika itemp <= 0 kemudian istrstart = len (str) elstrstart = itemp + len (substrcount) istrcount = istrcount + 1 end jika loop strcount = istrcount = istrcount + 1 end jika loop strcount = istrcount = istrcount + 1 end jika loop strcount = istrcount = istrcount = 1 loop strcount = istrcount = istrcount + 1
Ambil sistem manajemen situs web cloud baru sebagai contoh. Pertama temukan file kode /inc/newschannel.asp (CMS lainnya mirip dengan ini), masukkan potongan kode pertama di depan htmlcontent = ganti (htmlcontent, "{$ articlecontent}", ArticLecontent) pada baris 248, masukkan bagian kedua dari bagian kedua sampai sesuai halaman, dan kemudian di halaman.
Di atas adalah metode implementasi untuk memasukkan iklan di ASP ke dalam artikel. Saya berharap bahwa setelah memahami pengenalan artikel ini, semua orang akan memiliki pemahaman tertentu, dan saya berharap semua orang akan terus mendukung saluran teknologi baru yang salah!