格式如下：s="地,在要,大,奇功,不知,但是,不示"
我想把它split來循环，但是不知怎样才能随机不重复时示5条记录出来?請大家帮忙。

<%
Dim arr
arr = Array("haa","ada","asdfad","b","c","ff")

Response.write "<br>Result=" + GetRandomArray(2,arr)

Function GetRandomArray(m, arr)
Dim intMax,intLeft
intLeft = m
intMax = Ubound(arr)
GetRandomArray=""
count = 0
do while intLeft > 0
Dim tValue,tIndexArray
Dim tRnd
Randomize
count =count + 1
tRnd = Int(intMax * Rnd)
tValue = "{"&Cstr(tRnd)&"}"
If Instr( 1,GetRandomArray,tValue,1)>0 Then
Else
GetRandomArray = GetRandomArray & tValue
intLeft = intLeft-1
End If
if count > 20 Then exit do
loop
End Function

%>

谢谢你的答复,不过显示出来的是数組排列的序号,而不是数组裏面的内容,再请经典的朋友来帮手解答一下。

那个是让你学习的，你看明白了再根据你自己的情况改改撒。