从数据库中打印多条数据，多条数据连接赋值问题

[ljm115]

Set rsCheck=Server.CreateObject("ADODB.RecordSet") 
strsql="select ID,Name,Score,Price2,price1,amount,VipPrice,Stock,solded from Product where ID in order by ID"
rsCheck.open strsql,conn,1,3
Do While Not rsCheck.EOF
%>

<%=rsCheck("name")%>
<%=rsCheck("id")%>
,这里是数据循环输出
<%
rsCheck.MoveNext
Loop

我想要实现的是，将循环输出的所有NAME字段的内容赋值给某个变量e，
请帮忙

[Msxindl_Com]

<%
......
Do While Not rsCheck.EOF
dim x,e
x=x&rsCheck("name")&","  '用逗号分开.
%>
<%=rsCheck("name")%>
<%=rsCheck("id")%>
,这里是数据循环输出
<%
rsCheck.MoveNext
Loop
e=left(x,(len(x)-1))  '这里是变量e取得的值
....
%>

[ljanycall888]

[Quote=引用 1 楼 liaitan 的回复:]
VBScript code
<%
......
Do While Not rsCheck.EOF
dim x,e
x=x&rsCheck("name")&"," '用逗号分开.
%>
<%=rsCheck("name")%>
<%=rsCheck("id")%>
,这里是数据循环输出
<%
rsCheck.MoveNext
Loop
e=left(x,(len(x)-1)) '这里是变量e取得的值
....
%>
[/Quote]



支持，这个方法不错！

[ljm115]

谢谢了啊，问题解决了，结贴