如何写连两个变量的组合？
<%
sql= "select   *   from   Produce_PIO   where   PP_ACNo= ' "&PS_ID& " '   order   by   PP_ID   "
set   PRs=OpenRs(sql)
k=0
while   not   PRs.eof
k=k+1
PP_Desc&k=PRs( "PP_Desc ")
PRs.movenext
wend
%>
我想表达的意思是:当K=1时，PP_Desc1=PRs( "PP_Desc ")
当K=2时，PP_Desc2=PRs( "PP_Desc ")
.......

可是PP_Desc&k=PRs( "PP_Desc ")
这样的写法似乎不对，请教各位大侠如何书写正确？或者如何解决。多谢。

------解决方案--------------------
为什么不用数组????


Eval( 'PP_Desc ' & k & '=PRs( "PP_Desc ") ')
------解决方案--------------------
Dim DataArray,i
sql= "select PP_Desc from Produce_PIO where PP_ACNo= ' "&PS_ID& " ' order by PP_ID "
set PRs=OpenRs(sql)
If Not PRs.Eof Then
DataArray=PRs.GetRows(-1)
'Rs自带了转换到数组的方法GetRows,括号里代表转换的记录数,-1时代表取所有
ENd If
'判断是否有记录并处理数据
If IsArray(DataArray) Then
'转换得到的是2维数组,第一维代表列,第2维代表行
For i=0 to Ubound(DataArray,2)
Response.Write "PP_Desc: "& DataArray(0,i) & " <br/> "
Next
Else
Response.Write "No Record! "
End If