网站同一显示很多广告？需要不同权重？简单的20行代码。

复制代码 代码如下:

Dimcc_fv_ad_468_80_code,cc_fv_ad_power,cc_fv_ad_i

'广告权重显示明月星光Copyrighthttp://www.5iya.com/blog原创

cc_fv_ad_power=Array(1,3,2,4)'设置每个广告权重

Redimcc_fv_ad_ubound(Ubound(cc_fv_ad_power))

cc_fv_ad_ubound(0)=cc_fv_ad_power(0)

Forcc_fv_ad_i=1ToUbound(cc_fv_ad_power)

cc_fv_ad_ubound(cc_fv_ad_i)=cc_fv_ad_ubound(cc_fv_ad_i-1)+cc_fv_ad_power(cc_fv_ad_i)

Next

Randomize

Dimcc_fv_ad_j,cc_fv_ad_random,cc_fv_ad_number

cc_fv_ad_number=1

cc_fv_ad_random=Int(Rnd*cc_fv_ad_ubound(Ubound(cc_fv_ad_power)))+1

Forcc_fv_ad_j=0ToUbound(cc_fv_ad_power)

Ifcc_fv_ad_random<=cc_fv_ad_ubound(cc_fv_ad_j)Then

cc_fv_ad_number=cc_fv_ad_j

ExitFor

EndIf

Next

'广告代码

cc_fv_ad_468_80_code=Array("<iframewidth=""468""height=""60""align=""center""marginwidht=""0""name=""union163com""marginheight=""0""hspace=""0""vspace=""0""frameborder=""0""scrolling=""no""src=""http://news2.163.com/product/photo/tpl1.jsp?ID=yibaoxiang&NO=21688&productid=0422""></iframe>","<scripttype=""text/javascript""src=""http://www.joyo.com/lianmeng/ad.asp?s=cg5iyacom&k=1""></script>","http://www.5iya.com/blog","<scriptlanguage=""JavaScript1.1""src=""http://smarttrade.allyes.com/main/adfshow?user=1|8033|103810&db=smarttrade&border=0&local=yes&js=ie""></script>")

Response.Writecc_fv_ad_468_80_code(cc_fv_ad_number)