程序代码：

<%
'字段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


 
%>