asp,vbscript，一次性插入到表中多条不同的记录
从某一表中读出一个人的联系方式，在tele字段下存有N多号码，并用逗号分开，我想将这N多号码分成N条记录，写到另一张表里，请问怎么做，谢谢。。。我只会做一次插入一条记录的，多谢了。
[解决办法]
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
[解决办法]
query = Split(字符串, ", ")
For Each x In query
response.writeline(x) '输出的就是以 ", "格开一条条的
next
