当前位置:编程学习 > asp >>

如何随机显示网站链接?

答案:

<%
DIM LinkArray(4,2)
' 定义链接数组

LinkArray(0,1)=" http://www.waterpub.com.cn/"
LinkArray(0,2)="中国水利水电出版社社"

LinkArray(1,1)="http://www.intels.net"
LinkArray(1,2)="时尚咨询的个人网站"

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.eachnet.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,2)%></A><BR>
  <%
  OK = false
NEXT
%>
</BODY>
</HTML>

上一个:如何使用表格来储存数据库的记录?
下一个:如何同时处理数据库和页面错误?

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,