<% MyRandn(n) '生成随机数字，n为数字的个数
 dim thechr
 thechr = ""
 for i=1 to n
  dim zNum,zNum2
  Randomize
  zNum = cint(9*Rnd)
  zNum = zNum + 48
  thechr = thechr & chr(zNum)
 next
 MyRandn = thechr
end
%>
<%a=MyRandn(1)%>'数字为1，生成一位随机数字，为2，生成两位的随机数字
<%if a mod 2 =0 then%>
广告代码1
<%else%>
广告代码2
<%end if%>

当然这个还是可以扩展成多个广告轮显的，大家自己去研究一下！