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
投稿猜你喜欢
很多的朋友一而再，再而三的在Server.Mappath上卡壳，cnbruce也是一遍两遍地重复，还是不能全部解决，所以通过下面的举例，希望- 使用ASP做网站虽然有点落伍，但在中国还是有很大市场的，因为大部分国内用户使用Windows Server服务器，在Windows Serv
- 一般做法都是用aspjpeg的组件，这里有份用法说明，看一下吧。aspjpeg是一款非常强大的图片处理组件，纯英文版本。不过早已经有免费版和
- 密码强度是一个很普遍的功能，比较简单，主要是怎么制定这个强度规则。现在需要升级密码强度的验证，以前的验证比较简单，现在已经不能满足需求了，现
- 今天在做sql Server 2005的实验的时候碰到的问题,问题描述很清楚,怀疑是我以前给计算机修改了名称而导致的.可以用select @
- 这里所谓的复杂表单，是指表单中包含多种不同的输入类型，比如下拉列表框、单行文本、多行文本、数值等。在经常需要更换这类表单的场合，需要有一个表
- 浏览网页的时候经常会碰到一些不认识的英文单词，或者想知道一些中文单词的翻译，这时候再去找翻译软件或者翻译网站就有些麻烦了。因此我做了一个“中
- 问题：如何用ASP实现点击数统计？比如我要实现某篇文章被浏览一次就增加一个点击数，该怎么做?回答：就是说，比如，你的页面是：shownews
- RegExp就是建立正则的对像。如:Set regEx = New RegExp regE
- 1、为什么淘宝的手机频道页面，竟然会有笔记本、数码相机、随身听，甚至是游戏之类的栏目，而且还有一个“数码·生活”栏目是包括以上这些设备的综合
- 二进制转字符串入口参数:字节流函数返回:字符串Code By:Madpolice利用 ADODB.Stream 对象,速度比原来
- 1，SELECT 语句 在SQL的世界里，最最基础的操作就是SELECT 语句了。在数据库工具下直接采用SQL
- 本节笔者主将要介绍Active Server Page的另一对象Response，Response对象的作用是在向浏览器发送数据。将Resp
- ＜％ '测试读取MySql数据库的内容strconnection="driver={mysql odbc 3.51 dri
- 1、现象a.用localhost访问，正常b.用IP地址访问，则出现403错误2、分析a.怀疑是ACL问题，设置Everyone为完全控制，
- 其实我这样做的本意是为了防止盗链！大家帮忙看一下通过代码能够根治盗链！只要不是HTTP_REFERER来源于（google.com goog
- 做一个项目用到Ajax,开始觉得挺好，后来发现一个问题，例如删除一项，恢复之后就不能再接着删除，必须要等一段时间，后来知道是IE缓存的问题。
- FileSystemObject、Folder 和 File 对象的一些方法都与通过 TextStream 对象创建、读取或写入文件有关。虽
- Microsoft SQL Server 2005 Mobile Edition 3.0 (SQL Server Mobile) 支持两种与
- 一，啥是Block Formatting Context当涉及到可视化布局的时候，Block Formatting Context提供了一个
