Allen 2009-08-31 16:27:04 6837 2 0 0 0

很小巧的ASP数组随机排序源码

今天为了实现WPG首页随机排列显示网站图片的功能,不得不努力去找相关的方法。
终于找到这个小巧的函数,我的问题也迎刃而解!

以下源码可以实现asp数组随机排序功能:打乱数组的顺序,随机显示出来,让每一次显示出来的顺序都不一样。

<%

Dim tt,pTxt

pTxt="1,2,3,4,5,6,7,"
tt=Split(pTxt,",")

^随机排序  
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

%>

挺好用的,效率也是蛮高滴~~

PS:注意,要排列的字符串最后要保留一个“,”,否则最后一位无法随机排列,总是在最后。

加个“,”就可以了,但这样排列出的元素就有为空的了。

所以如果引用数组时,建议判断一下是否为空,不为空时再使用。

这样就很完美了~~


Tag: ASP知识 VB技巧 网页编程 TTTBLOG
我也要发一个   ·   返回首页   ·   返回[Asp.net]   ·   前一个   ·   下一个
评论
Allen#1Allen 2009-09-01 12:18:45(N) 链接地址
| 272 | g | 2009-09-01 12:18:45 | [email protected] | http://www.titanchor.com/wp |
-----
看了下代码,不能给最后一位随机,估计是rnd()*leng造成的,rnd默认小于1的话,in以后取不到最后一个。[REVERT=taoether 于 2009-9-1 19:43:44 回复]已经解决了:字符串最后要保留一个“,”[/REVERT]
Allen#2Allen 2009-09-01 13:58:36(N) 链接地址
| 273 | 卢松松 | 2009-09-01 13:58:36 | [email protected] | http://www.lusongsong.com |
-----
嘿嘿 这段代码我用过[REVERT=taoether 于 2009-9-1 19:43:07 回复]看来松松也是ASP高手啊~~[/REVERT]
顶部     1/1 
欢迎评论
未登录,
请先 [ 注册 ] or [ 登录 ]
(一分钟即可完成注册!)
返回首页     ·   返回[Asp.net]   ·   返回顶部