（原创）飘浮广告显示脚本类（VBS，JS双版）

• 在写一个项目时要用到广告模块，为了不想用ASP生成脚本代码时较麻烦，于是产生了写脚本类的念头，即是用一个类模块的脚本代码去控制所有在同一页面显示的漂浮广告。但在写的过程中发现JS脚本竟然在setTimeout里不能使用类的方法。奇怪，是不是我弄错了还是JS脚本就不能这样？？但VBS脚本就可以！我晕……

  不说了，贴代码：
  [VBS脚本代码]
  '/****************漂浮广告显示类****************************************************
  '/* 作者：死在水中的鱼
  '/* 脚本语言：VBS
  '/* 用法:
  '/* Set Adver1=New AdverClass
  '/* Adver1.ObjName="Adver1"   '设置当前的对象名  [本身对象变量名]
  '/* Adver1.ImgType=1          '图片的类型    0=普通图片   1=Flash动画
  '/* Adver1.ImageWidth=299     '图片的宽度
  '/* Adver1.ImageHeight=87     '图片的高度
  '/* ####以下方法显示广告图片(Flash) 对象.PrintHtml "图片地址","链接地址","提示信息"
  '/* Adver1.PrintHtml "http://edu.qq.com/flash/moto-button.swf","http://www.chinese.bj.cn/","这是什么"
  '/***********************************************************************************
  Class AdverClass
      Public DivID
   Public ObjName
   Private ObjDiv
   Public Delay    '改变数
   Public ImgType
   Private iStep
   Private iTop,iLeft,Width,Height
   Private TopFlag,LeftFlag
   '广告图片的大小
   Public ImageWidth,ImageHeight
   Private Sub Class_Initialize
       Randomize
       DivID=Int(Rnd(Time)*9999+1)
    Delay=80
    Height=document.body.clientHeight
    Width=document.body.clientWidth
    iTop=0
    iLeft=0
    TopFlag=False:LeftFlag=False
    iStep=3
    ImgType=0   '0 是图片  1 是FLASH文件
    ImageWidth=0
    ImageHeight=0
   End Sub
   Private Sub Class_Terminate

• [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• （原创）飘浮广告显示脚本类（VBS，JS双版） 相关文章：
• ·（原创）飘浮广告显示脚本类（VBS，JS双版）
• （原创）飘浮广告显示脚本类（VBS，JS双版） 相关软件

上一篇:[原创]IE里的保存对胡话框里自己设定保存格式

下一篇:[原创]如何实现图片明明是gif或者jpg的，可另存为的时候却变成“无标题”的BMP文件呢？

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐