asp如何随机显示网站链接？
时间：2010-06-07 20:40:00
<％
DIM LinkArray(4,2)
' 定义链接数组
LinkArray(0,1)=" http://www.waterpub.com.cn/"
LinkArray(0,2)="中国水利水电出版社——全国优秀出版社"
LinkArray(1,1)=http://www.aspxhome.com
LinkArray(1,2)="asp之家——为asp学习者提供动力"
LinkArray(2,1)="http://flashdays.126.com"
LinkArray(2,2)="闪亮日子——我是桃花笑春风"
LinkArray(3,1)="http://www.163.net"
LinkArray(3,2)="163中国电子邮局——我的选择"
LinkArray(4,1)="http://www.cidianwang.com"
LinkArray(4,2)="词典网——在线词典，字典"
％>
<HTML>
<BODY>
<％
Randomize
NotChooseUsAgain = "#"
FOR i=0 TO UBound(LinkArray)
WHILE NOT OK
RandomVar = Int(Rnd * (Ubound(LinkArray)+1))
IF InStr(NotChooseUsAgain,"#" & RandomVar & "#")=0
THEN
OK = true
NotChooseUsAgain = NotChooseUsAgain & RandomVar &
"#"
END IF
WEND
％>
<A HREF="<％=LinkArray(RandomVar,1)％>">
<％=LinkArray(RandomVar,2)％></A><BR>
<％
OK = false
NEXT
％>
</BODY>
</HTML>
0
投稿猜你喜欢
关于INDEX SERVER+ASP建立查询引擎的一点心得
使用字符串建立查询能加快服务器的解析速度吗？
数据库Oracle数据的异地的自动备份
Yahoo!上的小秘密
ASP + Serv-u 实现FTP的代码
asp 随机字符串函数
xWin之JS版
说说CSS的优先权 考虑CSS的继承与层叠
mysql存储过程学习总结
重新认识CSS的权重
asp如何用JMail同时给多人发信？
Oracle SQL性能优化系列学习二
asp如何在网站上提供音乐下载？
IE7新支持的CSS属性和属性选择符
sqlserver自动增长列引起的问题解决方法
不用为美化select烦恼模仿combox(select)控件
只截取ip前6位的asp代码
ASP访问数量统计代码
SQL Server数据迁移至云端应用技巧谈
textarea的输入限制统计代码statInput
