网站同一显示很多广告？需要不同权重？简单的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)
【支持权重的无组件ASP广告显示代码】相关文章：