مكون ASP AdRotator

مثال

مثال بسيط لـ AdRotator
في هذا المثال، يُظهر كيفية استخدام مكون AdRotator لعرض صورة إعلانية مختلفة كلما زار المستخدم الموقع أو قام بتحديث الصفحة.
AdRotator - رابط الصورة
في هذا المثال، يُظهر كيفية استخدام مكون AdRotator لعرض صورة إعلانية مختلفة كلما زار المستخدم الموقع أو قام بتحديث الصفحة. بالإضافة إلى ذلك، تكون الصورة نفسها رابطًا.

مكون ASP AdRotator

كلما دخل المستخدم إلى الموقع أو قام بتحديث الصفحة، يتم إنشاء مكون AdRotator من قبل ASP AdRotator لعرض صورة مختلفة.

القواعد النحوية:

<%
تعيين adrotator=server.createobject("MSWC.AdRotator")
adrotator.GetAdvertisement("textfile.txt")
%>

مثال

لنفترض أن لدينا ملفاً يُدعى "banners.asp". إنه يشبه هذا:

<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("ads.txt"))
%>
</body>
</html>

ملف "ads.txt" يشبه هذا:

*
codew3c.gif
http://www.codew3c.com/
زيارة CodeW3C.com
80
microsoft.gif
http://www.microsoft.com/
زيارة Microsoft
20

التعليقات: في ملف "ads.txt"، يحدد الكود تحت النجمة كيفية عرض هذه الصور، عناوين الرابط، النص البديل للصورة،��اءة عرض كل 100 ضربة. يمكننا رؤية أن احتمال عرض صورة CodeW3C.com هو 80٪، بينما احتمال عرض صورة Microsoft هو 20٪.

التعليقات:للجعل هذه الروابط تعمل بشكل صحيح عند النقر عليها، نحتاج إلى إجراء بعض التغييرات البسيطة في ملف "ads.txt":

REDIRECT banners.asp
*
codew3c.gif
http://www.codew3c.com/
زيارة CodeW3C.com
80
microsoft.gif
http://www.microsoft.com/
زيارة Microsoft
20

الصفحة التي يتم التحويل إليها ستتلقى متغير اسمه url يحتوي على URL للتحويل.

التعليقات:如需规定图像的高度、宽度和边框，我们可以在 REDIRECT 下面插入这些代码：

REDIRECT banners.asp
WIDTH 468 
HEIGHT 60 
BORDER 0 
*
codew3c.gif
...
...

最后要做的是把这些代码加入文件"banners.asp"中：

<%
url=Request.QueryString("url")
إذا كان url<>"" فإن Response.Redirect(url)
%>
<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("textfile.txt"))
%>
</body>
</html>

好了，这就是全部的内容！

AdRotator 组件的属性

Border 属性

规定围绕广告的边框的尺寸。

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
adrot.Border="2"
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>

Clickable 属性

规定广告本身是否是超级链接。

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
adrot.Clickable=false
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>

TargetFrame 属性

显示广告的框架名称。

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
adrot.TargetFrame="هدف='جديد'"
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>

AdRotator 组件的方法

GetAdvertisement 方法

إرجاع HTML لتظهر الإعلانات في الصفحة.

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>