我有一行数组   比如   445566778899

怎么写成44,55,66,77,88,99

set rs=server.CreateObject("adodb.recordset")
sql="select * from cd_codedtl where headid='48' order by code asc"
rs.open sql,conn,1,1
arr=""
do while not rs.eof
'arr=rs("code")

If Arr="" Then
  Arr=Rs("code")
Else
  Arr=Arr&","&Rs("code")
End If
rs.movenext
loop


这就吧数据库中的内容读取出来   赋给ARR数组啦