当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp数组随机排序

ASP
如何善用Response.Buffer增进浏览速度?
利用 Meta Tag 来增加文件属性
要如何使用 ASP Error 组件?
Server.Execute和#include相异之处
ASP中文本文件与数据库文件的数据交换
如何用ASP建立图表
如何在ASP中通过ODBC调用Excel中的数据
不刷新页面改变下拉菜单内容
使用ASP重启服务器
用模板建立动态ASP页
如何用ASP将一大段文字中的HTML的标识去掉
让使用者可以看到你的ASP的原代码
用ASP实现在特定的时段或对特定访问者开放
在ASP中判断SQL语句是否执行成功
直接显示Monday等星期的ASP语句
LINE 的计数器源程序(附源代码)
使用asp+中的若干问题及解决方案
ASP实现多语言支持
Session对象在各浏览器中的有效范围
SQL Server如何解决加密问题?

ASP 中的 asp数组随机排序


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 250 ::
收藏到网摘: n/a

功能:将一个数组打乱它的顺序,显示出来,让每一次显示出来的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序  
leng=UBound(tt)
randomize  
for ii=0 to leng-1  
 b=int(rnd()*leng)  
 temp=tt(b)  
 tt(b)=tt(ii)  
 tt(ii)=temp
Next
 
For i=0 To leng
 response.write tt(i)&"<br>"
next
%>