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
投稿猜你喜欢
显示日期格式的几个函数
jupyter notebook tensorflow打印device信息实例
JavaScript 获取客户端计算机硬件及系统信息
数据库中两张表之间的数据同步增加、删除与更新实现思路
聊聊python中的load、loads实现反序列化的问题
python标准库sys和OS的函数使用方法与实例详解
python3爬虫之设计签名小程序
NopCommerce架构分析之(六)自定义RazorViewEngine和WebViewPage
asp.net得到本机数据库实例的两种方法代码
SQL2005 高效分页sql语句
Python turtle画图库&&画姓名实例
解析mysql数据库还原错误:(mysql Error Code: 1005 errno 121)
python装饰器简介---这一篇也许就够了(推荐)
Python图像锐化与边缘检测之Sobel与Laplacian算子详解
python轻松办公将100个Excel中符合条件的数据汇总到1个Excel里
python使用Plotly绘图工具绘制柱状图
Go语言的GOPATH与工作目录详解
matplotlib 曲线图 和 折线图 plt.plot()实例
JS实现课程表小程序(仿超级课程表)加入自定义背景功能
