随机位置批量添加内容 怎么实现？？

'、3、4、5、6、7、8
'应：
'2、x3、x4、x5、x6、x7、x8

x2 = cstr(Rndstr(1))
.
x4 =cstr(Rndstr(2))


'其他的就不详细说了。你该懂了。
function Rndstr(jige_f)
     dim Strs,i,Str,N
     Strs="1234567890"
     Max=len(Strs)
     Randomize
     for i=1 to int(jige_f)
     N=int(Max*rnd+1)
     Str=Str+mid(Strs,N,1)
     next
     Rndstr=Str
     'response.write Rndstr
end function

set rs = server.createobject("adodb.recordset")
for i = 1  to 5
  x2 = 2
  x3 = Rndstr(2)
  x4 = Rndstr(2)
  x5 = Rndstr(2)
  x6 = Rndstr(2)
  x7 = Rndstr(2)
  x8 = 8
  neirong = x2&"、"&x3&"、"&x4&"、"&x5&"、"&x6&"、"&x7&"、"&x8
  rs.open"select * from 表",conn,1,3
  rs.addnew
  rs("字段2") = neirong
  rs.update
  rs.close
next
set rs = nothing

function Rndstr(jige_f)
     dim Strs,i,Str,N
     Strs="123456789ab"
     Max=len(Strs)
     Randomize
     for i=1 to int(jige_f)
     N=int(Max*rnd+1)
     Str=Str+mid(Strs,N,1)
     next
     Rndstr=Str
     'response.write Rndstr
end function