<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
         <tr bgcolor="#FFFFFF" align="center">
          <td>订单号</td>          <td>下单用户</td>          <td>订货人姓名<%=rs("name")%></td>          <td>金额总计</td>          <td> 付款方式</td>          <td> 收货方式</td>          <td > 订单状态</td>        </tr>        
<%        
do while not rs.eof//开始循环显示各字段
%>
                 
<tr bgcolor="#FFFFFF" align="center">

<td>&nbsp;<a href=# onClick="javascript:window.open('viewdingdan.asp?dan=<%=trim(rs("dindan"))%>&username=<%=username%>','','width=710,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><%=trim(rs("dindan"))%></a></td>

<td><%=trim(rs("username"))%></td>

<td><%=trim(rs("userzhenshiname"))%></td>

<td>          ffffffffffffff          </td>

<td>                  
                                           <%
                                           rs2.open "select * from shop_songhuo where songid="&int(rs("zhifufangshi")),conn,1,1
                                           if rs2.eof and rs2.bof then
                                           response.write "方式已被删除"
                                           else
                                           response.Write trim(rs2("subject"))
                                           end if
                                           rs2.Close
                                           set rs2=nothing
%>                  
</td>

<td>                  
<%
                                           set rs2=server.CreateObject("adodb.recordset")
                                           rs2.Open "select * from shop_songhuo where songid="&int(rs("songhuofangshi")),conn,1,1
                                           if rs2.eof and rs2.bof then
                                           response.write "方式已被删除"
                                           else
                                           response.Write trim(rs2("subject"))
                                           end if
                                           rs2.close
                                           set rs2=nothing
                                           %>
</td>

<td>
<%
                             select case rs("zhuangtai")
                                         case "1"
                                         response.write "未作任何处理"
                                         case "2"
                                         response.write "未作任何处理"
                                         case "3"
                                         response.write "服务商已收到款"
                                         case "4"
                                         response.write "服务商已发货"
                                         case "5"
                                         response.write "用户已经收到货"
                                         end select                                       
                                %>
</td>
</tr>


        <%
                     i=i+1
                         if i>=MaxPerPage then Exit Do
                         rs.movenext//下移
                         loop
                         rs.close
                         set rs=nothing
                 %>
      </table>

上面是rs2下面是rs

楼主不错哇