支持权重的无组件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("<iframe width=""468"" height=""60"" align=""center"" marginwidht=""0"" name=""union163com"" marginheight=""0"" hspace=""0"" vspace=""0"" frameborder=""0"" scrolling=""no"" src=""http://news2.163.com/product/photo/tpl1.jsp?ID=yibaoxiang&NO=21688&productid=0422""></iframe>","<script type=""text/javascript"" src=""http://www.joyo.com/lianmeng/ad.asp?s=cg5iyacom&k=1""></script>","http://www.5iya.com/blog","<script language=""JavaScript1.1"" src=""http://smarttrade.allyes.com/main/adfshow?user=1|8033|103810&db=smarttrade&border=0&local=yes&js=ie""></script>") 
  Response.Write cc_fv_ad_468_80_code(cc_fv_ad_number)

赞 (0)

相关推荐

  • 支持权重的无组件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_

  • Asp无组件生成缩略图的代码

    还是先看看基础部分吧.首先,我们知道在页面中显示图片是如下代码: <img src="pic.gif" border="0" width="300" height="260"> src是图片路径,border控制图片边缘宽度,width是图片的长度,height是图片的高度.缩略图的生成其实就是在原始尺寸上缩放.但一般为了尽量少失真,我们都会按比例缩放.于是,获取图片的长宽尺寸也就成了生成缩略图的重点. 下面便是编

  • 用PHP实现的随机广告显示代码

    <?php  #########随机广告显示##########   function myads(){  $dir="ads";   #设置存放记录的目录   //$dir="ads";   #设置存放记录的目录   $ads="$dir/ads.txt"; #设置广告代码文件  $log ="$dir/ads.log"; #设置ip记录文件 $ads_lines=file($ads);  $lines=count($

  • ASP中取得图片宽度和高度的类（无组件）

    ASP中取得图片宽度和高度的类(无组件) <% Class ImgWHInfo '获取图片宽度和高度的类,支持JPG,GIF,PNG,BMP     Dim ASO     Private Sub Class_Initialize         Set ASO=Server.CreateObject("ADODB.Stream")         ASO.Mode=3         ASO.Type=1         ASO.Open     End Sub     Pri

  • 用asp实现无组件生成验证码的方法2种

    无组件生成验证码-GIF格式 复制代码 代码如下: <% Option Explicit ' 显示声明 Class Com_GifCode_Class ''''''''''''''''''''''''''''''''''''''''''''' ' Author: Layen support@ssaw.net 84815733(QQ) ' Thanks: Laomi, Laomiao, NetRube ' 2006-01-02 '''''''''''''''''''''''''''''''''''

  • Asp无组件上传进度条解决方案

    一.无组件上传的原理我还是一点一点用一个实例来说明的吧,客户端HTML如下.要浏览上传附件,我们通过<input type="file">元素,但是一定要注意必须设置form的enctype属性为"multipart/form-data": <form method="post" action="upload.asp" enctype="multipart/form-data">&l

  • asp.net MVC实现无组件上传图片实例介绍

    例子: 如我想上传一个图片到服务器端:asp页面 复制代码 代码如下: <form id="form1" runat="server" action="/bookIndex/fileUpLoad/(你准备处理的 ActionResult)" method="post" enctype="multipart/form-data"> <input type="file" i

  • windows2008+iis7无组件上传写入文件失败ADODB.Stream 错误 800a0bbc问题

    现象:写入文件失败,ADODB.Stream 错误 800a0bbc 条件:在已排除一般的解决方法文件夹权限后,并且服务器为windows2008 希望写这文章可以让大家避免浪费太多时间,最快地解决问题. 一个ASP程序用到无组件上传,在本地XP SP3 IIS5.1及在Windows Server 2003 + IIS6.0上测试均为可以正常上传.到把程序放了windows2008+IIS7.0上发现内部服务器错误500,最后我把其调为可显示详细错误信息,显示为: 写入文件失败,ADODB.S

  • 无组件生成缩略图

    网上有不少生成缩略图的ASP组件.若你的虚拟空间不支持注册新组件,可能会感觉自己的网站失色不少.心晴不才,结合网上资源写了个无组件生成缩略图程序,仅供参考. 还是先看看基础部分吧.首先,我们知道在页面中显示图片是如下代码: <img src="pic.gif" border="0" width="300" height="260"> src是图片路径,border控制图片边缘宽度,width是图片的长度,heigh

  • 无组件上传图片之文件采用方案

    首先,图片在页面中能查找选择.设计表单页面index.asp和上传选择页upload.asp,upload.asp在index.asp中以iframe包含. 其次,所选图片应能上传到某文件夹.建立一文件夹uploadimg 最后,传上去的图片应如何引用?很显然,采用UBB立即显示.upload.asp的指向对象upfile.asp具有写入UBB标签的功能. 无组件上传调试文件夹    -- index.asp    -- upload.asp    -- upfile.asp    -- upl

随机推荐