dim aa()
ii=1
set rs=server.createobject("adodb.recordset")
sql="select * from 商品库"
rs.open sql,conn,1,1
if rs.recordcount<>0 then
redim aa(rs.recordcount)
do while not rs.eof
aa(ii)=replace(trim(Request("'"rs("名称")"'")),"'","")
response.write aa(ii)&"<br>"
'调试一下
ii=ii+1
rs.movenext
loop
end if
rs.close