飞云网络日志-Feiyun's blog


April 2006
            1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30


公告

我的分类(专题)

日志更新

最新评论

留言板

链接

Blog信息





随机显示广告图片的原代码
飞云 发表于 2006-4-17 14:05:46

最近有几个朋友想要随机显示广告的代码,就动手写了个。

点这里预浏演示效果

点这里下载已经打包好的源代码

下面是源代码:
<%
'飞云编写
'CSDN帐号:jspadmin
'QQ:33323489
'个人网站http://www.pifoo.com  蚍蜉中文站
'欢迎交换链接。本站提供***博客申请注册。
'本代码为个人原创,你可以使用或修改本代码
'但是请保留版权信息或链接,谢谢使用!
'如果有问题或建议,请给我留言 http://www.pifoo.com/lyb/
'以上声明注释并不会影响程序性能,请保留
%>

<%
'随机显示广告图片---原代码
'请将图片放到images文件夹下,并以1.gif,2.gif,3.gif.......数字序号顺序编号,然后正确设置文件扩展名和图片总张数
total=10 '请设置你的图片总张数,也就是最后一张图片的文件名
extname="gif" '请正确设置文件扩展名,如gif,jpg,bmp等
%>

<%
'代码开始
Randomize
total=cint(total)
do while(1=1)
 name=Int(10*Rnd)
  if (name>0) and (name<total) then
   exit do
  end if
loop
%>

现在显示的是第<%=name%>副图片:<BR>
<%''在要显示图片广告的地方插入下面这句代码%>
<IMG SRC="images/<%=name%>.<%=extname%>">


阅读全文() | 回复(0) | 引用通告() | 编辑
 


蚍蜉中文站-免费提供博客

发表评论:

    昵称:
    密码:
    主页:
    标题:


蚍蜉中文站-免费提供博客空间
Powered by Oblog.