Question

如何将查询的一个字段的所有数据赋值一个变量？

<%
Dim Rs_Cate
set conn = Server.CreateObject("ADODB.Connection")
conn.open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("sjxt.mdb")
set rs=server.createobject("adodb.recordset")
Set Rs_Cate=Conn.ExeCute("select z_zhjddw from _zb")
response.Write(arrA())
%>
为什么得到的只有一个数据？怎么z_zhjddw字段的所有数据赋值给Rs_Cate，并显示出来？

Answer 1

<% While %>
<%=Rs_Cate%>
<%rs.MoveNext()
Wend%>