asp,vbscript，一次性插入到表中多条不同的记录

[dangerhu]

从某一表中读出一个人的联系方式，在tele字段下存有N多号码，并用逗号分开，我想将这N多号码分成N条记录，写到另一张表里，请问怎么做，谢谢。。。我只会做一次插入一条记录的，多谢了。

[hookee]

uname = rs("name").Value
tele = rs("tele").Value
arr = split(tele, ",")

Dim aFlds(1), aVals(1) ' 假设另一张表有两个字段 username和tele
aFlds(0) = "username"
aFlds(1) = "tele"

Set rs2 = CreateObject("ADODB.RecordSet")
rs2.cursorLocation = 3
rs2.open "SELECT username, tele FROM table2 WHERE 1=0",conn, 1,4
For i = 0 To UBound(arr)
aVals(0) = uname
aVals(1) = arr(i)
rs2.AddNew aFlds, aVals
Next
rs2.UpdateBatch
rs2.close
Set rs2 = Nothing
conn.close
Set conn = Nothing

[dangerhu]

谢谢，详细的在这里，能帮我看吗，，
http://blog.csdn.net/dangerhu/archive/2007/06/27/1668591.aspx

[dangerhu]

唉，，，我还是不会，希望有人能再指点。分不够可再加，当时正好没分。

[cwb003]

query = Split(字符串, ",")
For Each x In query
response.writeline(x) '输出的就是以","格开一条条的
next