가중치를 지원하는 구성 요소 없는 ASP 광고 디스플레이 코드

사이트에 같은 광고가 많이 나오나요?다른 권한이 필요합니까?간단한 20줄 코드. 
  

 
  
Dim cc_fv_ad_468_80_code,cc_fv_ad_power,cc_fv_ad_i  
  
  '            Copyright http://www.5iya.com/blog     
  
  cc_fv_ad_power = Array(1,3,2,4) '          
  
  Redim cc_fv_ad_ubound(Ubound(cc_fv_ad_power))  
  
  cc_fv_ad_ubound(0) = cc_fv_ad_power(0)  
  
  For cc_fv_ad_i = 1 To Ubound(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  
  
  Dim cc_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  
  
  For cc_fv_ad_j = 0 To Ubound(cc_fv_ad_power)  
  
    If cc_fv_ad_random <= cc_fv_ad_ubound(cc_fv_ad_j) Then  
  
      cc_fv_ad_number = cc_fv_ad_j  
  
      Exit For  
  
    End If  
  
  Next  
  
  '      
  
  cc_fv_ad_468_80_code = Array("