答案:<%
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>
上一个:如何使用表格来储存数据库的记录?
下一个:如何同时处理数据库和页面错误?