Asp 分割字符 并且随机抽取数据

超新星

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
str="你|好|啊|a|b|c|d|e|f|g|"
arr=split(str,"|")
num=ubound(arr)
randomize
i=cint(rnd*num)
j=i
do while j=i
j=cint(rnd*num)
loop
response.Write("<br>1--"&arr(i))
response.Write("<br>2--"&arr(j))
%>