Dim TPinPName="";
<%do while not rs.eof
IF TPinPName<>rs("pinpai_name") Then
%>
<a href="pinpai.asp?pinpai=<%=rs("pinpai_id")%>"><%=rs("pinpai_name")%></a>
<%
TPinPName=rs("pinpai_name")
End IF
rs.movenext
loop
rs.close%>
如此循环呢？