تقدم هذه المقالة بشكل أساسي طريقة تنفيذ إدراج إعلان صورة داخل صورة في كل مقالة ويمكن للأصدقاء المحتاجين الرجوع إليها.
على الرغم من أن العديد من الأشخاص قد قدموا طرقًا لإضافة إعلانات صورة داخل صورة إلى كل مقالة، إلا أن هذه الأساليب المزعومة لا يمكنها حقًا تحقيق تأثير صورة داخل صورة للنص المحيط بالإعلان، ويمكنها فقط محاذاة اليسار أو اليمين. يمكن للطريقة التي سيتم مناقشتها الآن تحقيق تأثير الإعلان بصورة داخل صورة مثل تأثير سينا وسوهو.
أولاً، دعنا نتحدث عن طريقة div+CSS الخاطئة، وآمل ألا يتم تضليلك:
<div id=outer style=float:left;><div id=inner style=float:left;margin:0;width:200px;height:200px;></div>محتوى النص</div>
لا يمكن اعتبار ما ورد أعلاه إلا تأثير المحاذاة اليسرى. هناك العديد من الطرق الأخرى التي يتم تنفيذها بمساعدة الجداول أو إطارات iframe، وليس أكثر من هذا.
إذًا، كيف يمكننا حقًا تحقيق تأثير إضافة إعلانات صورة داخل صورة على دفعات إلى كل مقالة؟ يمكن القيام بذلك عن طريق اعتراض الحقول، حيث يوجد قطعتان من التعليمات البرمجية.
الفقرة الأولى هي تحليل عدد كلمات محتوى المقالة ثم إدخال الكود الخاص بالإعلان:
Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr'' يعترض العدد المناسب من السلاسل إذا len(ArticleContent)<320 ثم headlen=200else headlen=320end iftempStr=ArticleContentLeftContent=InterceptString(tempStr,headlen)'الحصول على محتوى النص الذي تم اعتراضه 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
ما ورد أعلاه هو إدراج الإعلانات من خلال DIV+JS، ويتم وضع رمز الإعلان في ملف ad.js ويمكن أيضًا إدراجه من خلال table+JS أو باستخدام iframe مباشرةً. وفي كلتا الحالتين، يجب عليك تعيين خصائصه على محاذاة إلى اليسار أو إلى اليمين حتى يتمكن من الالتفاف حول الإعلان.
الفقرة الثانية التالية هي الحكم على كود الإعلان بصورة داخل صورة.
دالة InterceptString(txt,length)Dim x,y,ii,c,ischines,isascii,tempStrtxt=trim(txt)x = len(txt)y = 0if x >= 1 ثم لـ ii = 1 إلى xc=asc(mid (txt,ii,1))إذا كان c< 0 أو c >255، فإن "الوصف عبارة عن حرف صيني y = y + 2" ischines=1 isascii=0else 'الشرح هو رمز ascii y = y + 1 ischines=0 isascii=1end if'إذا كان الطول أكبر من طول السلسلة الفرعية المحددة، حدد ما إذا كانت تحتوي على سلاسل حساسة وافصلها إذا y > = الطول ثم إذا كانت ischines=1 وStrCount(left(trim(txt),ii),<a)=StrCount(left(trim(txt),ii),</a>) ثم txt = left(trim(txt),ii) 'خروج بطول سلسلة محدود لـ else if isascii=1 ثم x=x+1 end إذا end إذا كان InterceptString التالي = txtelse InterceptString = end ifEnd Function' تحديد عدد المرات التي تظهر فيها السلسلة الدالة StrCount(Str,SubStr) Dim iStrCount Dim iStrStart Dim iTemp iStrCount = 0 iStrStart = 1 iTemp = 0 Str=LCase(Str) SubStr=LCase(SubStr) افعل بينما iStrStart < Len(Str) iTemp = Instr(iStrStart,Str,SubStr,vbTextCompare) إذا كان iTemp <=0 ثم iStrStart = Len(Str) Else iStrStart = iTemp + Len (SubStr) iStrCount = iStrCount + 1 End If Loop StrCount = دالة iStrCountEnd
خذ نظام إدارة موقع الويب New Cloud كمثال. ابحث أولاً عن ملف التعليمات البرمجية /inc/NewsChannel.asp الذي يكبر صفحة المقالة الثابتة (أنظمة إدارة المحتوى الأخرى مشابهة)، وأدخل الجزء الأول من التعليمات البرمجية أمام السطر 248 HtmlContent = Replace(HtmlContent, {$ArticleContent}, ArticleContent)، و أضفه إلى الصفحة أدخل الجزء الثاني من التعليمات البرمجية حتى يصبح مناسبًا، ثم قم بتغيير ArticleContent في هذا السطر إلى ModifyContent.