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
投稿猜你喜欢
- 我使用的是tensorflow-gpu (1.2.1)和Theano (0.9.0)，2个4G显存Nvidia Quadro M2000 G
一、为何人工智能(AI)首选Python？读完这篇文章你就知道了。我们看谷歌的TensorFlow基本上所有的代码都是C++和Python，- 看到网上也有开源的代码，这不，我拿来进行了二次重写，呵呵，上代码： #encoding: utf-8&n
- 函数的递归调用:是函数嵌套调用的一种特殊形式具体是指:在调用一个函数的过程中又直接或间接地调用到了本身# 直接调用本身def func():
- 目录1.列表中存储字典：1.列表中存储多个字典2.访问列表中字典的值3.遍历访问多个值2.字典中存储列表1.访问字典中的列表元素2.访问字典
- 写在前面之前的文章中已经讲过了遗传算法的基本流程，并且用MATLAB实现过一遍了。这一篇文章主要面对的人群是看过了我之前的文章，因此我就不再
- 表达式的优先级表达式(Expression)是运算符(operator)和操作数(operand)所构成的序列代码段a = 1b = 2c
- 目录1 matplot入门指南2 安装与导入3 图的构成3 总结1 matplot入门指南matplotlib是Python科学计算中使用最
- 1、准备工作准备三张表，一张角色表，一张装备表，一张基础数据表，这里只展示一些教程中需要的字段，在游戏开发的过程中肯定不止这么几个字段，我想
- 本文实例讲述了python+Django+pycharm+mysql 搭建首个web项目。分享给大家供大家参考，具体如下：前面的文章记录了环
- 范围选区概述范围选区是一种常见的对象选择方式，在一个子图中，可以在某一个轴方向上用鼠标选择起始范围的数据，这个特性可用来实现数据缩放（dat
- ''推拉门''动效也可以称作"手风琴"效果，大多数效果实现的思路基本是一样的，下面介绍两
- 快速排序是C.R.A.Hoare于1962年提出的一种划分交换排序。它采用了一种分治的策略，通常称其为分治法(Divide-and-Conq
- 1、pyecharts绘制饼图（显示百分比）# 导入模块from pyecharts import options as optsfrom
- 递归一个函数在执行过程中一次或多次调用其本身便是递归，就像是俄罗斯套娃一样，一个娃娃里包含另一个娃娃。递归其实是程序设计语言学习过程中很快就
- 逛到一个有意思的博客在里面看到一篇关于ValueError: invalid literal for int() with base 10错
- Python 文件操作的详解及实例一、文件操作1、对文件操作流程打开文件，得到文件句柄并赋值给一个变量通过句柄对文件进行操作关闭文件现有文件
- 本文实例讲述了Java使用正则表达式截取重复出现的XML字符串功能。分享给大家供大家参考，具体如下：public static void m
- 我们要先配置npm的全局模块的存放路径以及cache的路径，例如我希望将以上两个文件夹放在nodejs的主目录下，便在nodejs下建立”n
- vue使用this.$confirm首先在element-ui中的el-table下的el-table-column中引入插槽（相当于占位符
