写一个东西，没有见有什么不妥吧，怎么老错的呢？？
——————————————————————————————————————————
<%
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编辑过]
