将excel内容写入到数据库
EXCEL表格内容如下
姓名  性别
张三  男
李四  男
刘芳  女
..    ..
..    ..


我想将表格内容转换为数组形式，用一条记录保存到数据表table1中

uname                   usex                      utime
张三,李四,刘芳,......   男,男,女,.......          2013-7-2



请指导补充下写入数组的代码，谢谢。
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & Server.MapPath(1.xls)
strSql="Select * From [sheet1$]"
Set rs=db.Execute(strSql)                        '打开excel表格

set rs1 = server.CreateObject("ADODB.Recordset")
rs1.open "select uname,usex,utime from table1 ",strDconn,1,3

rs1.update
........
.......
........
....
%>

另外，在此基础上，读取数组的代码要怎样写？
------解决方案--------------------

dim uName,uSex

do while not rs.eof 

    uName=uName&","&rs(0)

    uSex=uSex&","&rs(1)

    rs.movenext

loop

if len(uName)>0 then uName=mid(uName,1,len(uName)-1)

if len(uSex)>0 then uSex=mid(uSex,1,len(uSex)-1)

读取数组:

strSql="Select * From table1"



set rs1 = server.CreateObject("ADODB.Recordset")

rs1.open "select uname,usex,utime from table1 ",strDconn,1,3

dim arrUName

arrUName=split(rs1("uName"),",")

for i=0 to ubound(arrUName)

    Response.Write arrUName(i) & "<br/>"

next

------解决方案--------------------
可以用rs.GetRows()
参考http://hi.baidu.com/lz0830/item/b1b28ad7c9727fcf1b72b411