随机插入内容老重复,那位高手帮忙改一下 - 编程论坛

程序代码：

<%
'字段2 strarry="2,3,4,5,6,7,8"
'定义的好数字字符串 strdim="4,5"
strarry="2,3,4,5,6,7,8"
strarry1="2,3,4,5,6,7,8"
strdim="aaaa,bbbb,cccc,ddddd"
strarry=split(strarry,",")
strarry1=split(strarry1,",")
strdim=split(strdim,",")
dimlen=UBound(strdim)
arrylen=UBound(strarry)

for i=0 to arrylen
  randomize
  j=int(rnd()*(arrylen+1))
  k=int(rnd()*(dimlen+1))
  if strarry1(j)=strarry(j) then
  strarry(j)=strarry(j)&strdim(k)
  end if

Next

For i=0 To arrylen

response.write strarry(i)
next

%>

随机插入内容老重复,那位高手帮忙改一下并限制插入量