ad.asp

三鸟个人网站源码。

<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit
Dim num
dim ad(4) '你想要轮播的广告个数
'--------广告代码开始--------------------------------------------------------------------------------
'注意等号后面的引号内不能再有引号，原有引号可去掉或用单引号代替！
'如果你还要增加，请注意数字递增，同时修改上面的个数和下面随机数！
ad(0) = "<a href=http://www.2558.net/><img src=http://www.netpig.net/links/banner.gif width=468 height=60 border=0></a>"

'---------------广告代码结束-----------------------------------------------------------------------------
Randomize   '初始化随机数生成器。
num = Int(1 * Rnd)   ' 产生 0 - 3 的随机数，如果上面的个数变了这里要随之改变。
Response.Write "document.write('" & ad(num) & "')"
%>