写一个东西，没有见有什么不妥吧，怎么老错的呢？？


——————————————————————————————————————————

<%
k=1
set rs=server.CreateObject("adodb.recordset")
rs.open "select pinpai_name,count(pinpai_name) from pinpai group by pinpai_name order by pinpai_name",conn,1,1
do while not rs.eof
ppname(k)=rs("pinpai_name")
k=k+1
rs.movenext
loop
rs.close
%>

<%
h=1
set rs=server.CreateObject("adodb.recordset")
rs.open "select pinpai_logo,count(pinpai_logo) from pinpai group by pinpai_logo order by pinpai_logo",conn,1,1
do while not rs.eof
pplogo(h)=rs("pinpai_logo")
h=h+1
rs.movenext
loop
rs.close
%>

<%
j=1
set rs=server.CreateObject("adodb.recordset")
rs.open "select pinpai_content,count(pinpai_content) from pinpai group by pinpai_content order by pinpai_content",conn,1,1
do while not rs.eof
ppcontent(j)=rs("pinpai_content")
j=j+1
rs.movenext
loop
rs.close
%>

<%
i=1
for s=1 to j
if i mod 2=1 then
%>
<tr>
<% end if%>

<td width="50%"><p style="line-height: 120%">
<a href="pinpainame.asp?action=search&pinpai_name=<%=ppname(s)%>"><img border="0" src="<%=pplogo(s)%>" align="left"

width="100"></a><b><%=ppname(s)%></b>：<br><%=ppcontent(s)%>
</td>

<% if i mod 2=0 then%>
</tr><tr><td colspan="2" height="10"></td></tr>

<%
end if
i=i+1
next
%>


————————————————————————————————————————————————

[此贴子已经被作者于2006-9-15 16:20:50编辑过]

得不到显示数据哟。。。。呜。。。。

我这样写就能输出结果。。。


<%
k=1
set rs=server.CreateObject("adodb.recordset")
rs.open "select pinpai_name,count(pinpai_name) from pinpai group by pinpai_name order by pinpai_name",conn,1,1
do while not rs.eof
ppname=rs("pinpai_name")
response.write ppname'先看看是否有数据先
k=k+1
rs.movenext
loop
rs.close
%>



我这样改就得不到输出的结果。。。。是否（Ｋ）有什么不对？？？


<%
k=1
set rs=server.CreateObject("adodb.recordset")
rs.open "select pinpai_name,count(pinpai_name) from pinpai group by pinpai_name order by pinpai_name",conn,1,1
do while not rs.eof
ppname(k)=rs("pinpai_name")
response.write ppname(k)'先看看是否有数据先
k=k+1
rs.movenext
loop
rs.close
%>


这到底是怎么回事呀？？？？

[此贴子已经被作者于2006-9-15 17:18:53编辑过]

哦？？是否能指点一二？？？

“数组”。。。。。有朋友指点一下吗？？

ＨＥＬＰ。。。。。。。。。ＭＥ。。。。

好的。。。谢谢，我看看。。

本人这样来干。。。成功了。。。。谢谢各位朋友关心。。。。拿出来供更多的人借鉴。。。

——————————————————————————————————————————————

<%
dim ppname()
set rs=server.CreateObject("adodb.recordset")
rs.open "select pinpai_name,count(pinpai_name) from pinpai group by pinpai_name order by pinpai_name",conn,1,1
iCount = rs.RecordCount
redim ppname(iCount-1)
for k=0 to iCount-1
ppname(k)=rs("pinpai_name")
rs.movenext
next
rs.close
%>

——————————————————————————————————————————————