在写一个项目时要用到广告模块,为了不想用asp生成脚本代码时较麻烦,于是产生了写脚本类的念头,即是用一个类模块的脚本代码去控制所有在同一页面显示的漂浮广告.但在写的过程中发现js脚本竟然在settimeout里不能使用类的方法.奇怪,是不是我弄错了还是js脚本就不能这样??但vbs脚本就可以!我晕……
【程序编程相关:linux编程(2) GCC和GDB】不说了,贴代码: 【推荐阅读:国产中间件抢滩ITS】
【扩展信息:[转贴]资深程序员点评当前某些对Lotu】[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_terminateend sub
public sub scrollimg() dim offheight,offwidth,irnd offwidth=objdiv.offsetwidth offheight=objdiv.offsetheight ... 下一页