支持权重的无组件ASP广告显示代码

Dim _fv_ad_468_80_code,_fv_ad_power,_fv_ad_i 
  '广告权重显示 明月星光 Copyright http://.5iya./blog 原创 
  _fv_ad_power = Array(1,3,2,4) '设置每个广告权重 
  Redim _fv_ad_ubound(Ubound(_fv_ad_power)) 
  _fv_ad_ubound(0) = _fv_ad_power(0) 
  For _fv_ad_i = 1 To Ubound(_fv_ad_power) 
    _fv_ad_ubound(_fv_ad_i) = _fv_ad_ubound(_fv_ad_i-1)+_fv_ad_power(_fv_ad_i) 
  Next 
  Randomize 
  Dim _fv_ad_j,_fv_ad_random,_fv_ad_number 
  _fv_ad_number = 1 
  _fv_ad_random = Int(Rnd*_fv_ad_ubound(Ubound(_fv_ad_power)))+1 
  For _fv_ad_j = 0 To Ubound(_fv_ad_power) 
    If _fv_ad_random <= _fv_ad_ubound(_fv_ad_j) Then 
      _fv_ad_number = _fv_ad_j 
      Exit For 
    End If 
  Next 
  '广告代码 
  _fv_ad_468_80_code = Array("<iframe width=""468"" height=""60"" align=""center"" marginwidht=""0"" name=""union163"" marginheight=""0"" hspace=""0"" vspace=""0"" frameborder=""0"" scrolling=""no"" src=""http://news2.163./product/photo/tpl1.jsp?ID=yibaoxiang&NO=21688&productid=0422""></iframe>","<script type=""text/javascript"" src=""http://.joyo./lianmeng/ad.asp?s=cg5iya&k=1""></script>","http://.5iya./blog","<script language=""JavaScript1.1"" src=""http://smarttrade.allyes./main/adfshow?user=1|8033|103810&db=smarttrade&border=0&local=yes&js=ie""></script>") 
  Response.Write _fv_ad_468_80_code(_fv_ad_number)