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

<%
Dim sCode,ad_power,i
'广告权重显示 明月星光 Copyright http://www.5iya.com/blog 原创
ad_power = Array(1,3,2,4) '设置每个广告权重
Redim ad_ubound(Ubound(ad_power))
ad_ubound(0) = ad_power(0)
For i = 1 To Ubound(ad_power)
	ad_ubound(i) = ad_ubound(i-1)+ad_power(i)
Next
Randomize
Dim j,ad_random,ad_number
ad_number = 1
ad_random = Int(Rnd*ad_ubound(Ubound(ad_power)))+1
For j = 0 To Ubound(ad_power)
	If ad_random <= ad_ubound(j) Then
		ad_number = j
		Exit For
	End If
Next
'广告代码
sCode = Array("广告代码一","广告代码二","广告代码三","广告代码四")
Response.Write sCode(ad_number)
%>