ASP中实用的广告交替组件

[Axiong]

谁有这样的sample，要实际能用的.

万分感谢!!!!!!!!!!!!!!!!!!!!!!!11

[huntout]

<% Set ad = Server.CreateObject("MSWC.AdRotator") %>
<%= ad.GetAdvertisement("adrot.txt") %>

---ADROT.TXT---
REDIRECT /scripts/adredir.asp
WIDTH 440
HEIGHT 60
BORDER 1
*
http://kabaweb/ads/homepage/chlogolg.gif
http://www.bytecomp.com/
Check out the ByteComp Technology Center
20
http://kabaweb/ads/homepage/gamichlg.gif
-
Sponsored by Flyteworks
20
http://kabaweb/ads/homepage/ismodemlg.gif
http:// www.proelectron.com/
28.8 internal PC modem, only $99
80
http://kabaweb/ads/homepage/spranklg.gif
http://www.clocktower.com/
The #1 Sports site on the net
10

[Tyro]

<%
set arc = server.createobject("MSWC.Adrotator")
Response.write(arc.getadvertisement("adschedule.txt"))
%>

getadvertisement返回的字符串类似于：
<a href="aredirect.asp?url=http://www.companya.com&images/ada.gif">
<img src="images/ada.gif" alt="company a" width=200 height=50 border=0>
</a>

广告调度文件：adschedule.txt 这里广告a,b,c出现的频率为25%，25%，50%

redirect adredirect.asp
width 200
height 50
border 0

*

images/ada.gif
http:www.companya.com
company a
25

images/adb.gif
http:www.companyb.com
company b
25

images/adc.gif
http:www.companyc.com
company c
50