木子屋
 

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

作者: dnawo

日期: 2007-09-13 09:03 AM

分类: Web编程

内容: 网站同一显示很多广告？需要不同权重？简单的20行代码。
复制内容到剪贴板 程序代码<%
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)
%>

+ 查看当前日志评论 (0)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.051 ms

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

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.051 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.051 ms