bookorder.asp

佳可商务购物程序v1.0

					  else
					  response.write trim(rs2("bookname"))
					  end if
					  response.write "</a>"					  
					  %>
                                  <br>
                                  适合年龄：<%=trim(rs("bookzz"))%>&nbsp;&nbsp;品牌：<%=trim(rs2("bookchuban"))%> 
                                </td>
                              </tr>
                              <tr> 
                                <td height="2" background="images/paihang/dd.gif"></td>
                              </tr>
                            </table>
                          </td>
                        </tr>
                      </table>
                      <%if i>=3 then exit do
			rs2.movenext
			loop%>
                    </td>
                  </tr>
                </table>
                <table width="100%" border="0" cellpadding="1" cellspacing="2">
                  <tr> 
                    <td width="16%" height="58" valign="top"> 
                      <%if rs.recordcount>=4 then
			rs.absoluteposition=4
			i=3
			do while not rs.eof
		 
		 i=i+1%>
                      <table width="80%" height="51" border="0" cellpadding="3" cellspacing="2">
                        <tr> 
                          <td height="46">
                            <div align="center"><img src="images/paihang/top<%=i%>.gif"></div>
                          </td>
                        </tr>
                      </table>
                      <%
			  if i>=20 then exit do
			  rs.movenext
			  loop
			  end if%>
                    </td>
                    <td width="44%" valign="top"> 
                      <%i=4
			if rs.recordcount>=4 then
			rs.absoluteposition=4
		    do while not rs.eof
		  i=i+1%>
                      <table width="100%" border="0" cellspacing="2" cellpadding="2">
                        <tr> 
                          <td> 
                            <table width=287 border=0 cellpadding=0 cellspacing=0 height="43">
                              <tr> 
                                <td height="21" background="images/paihang_01.gif" style="padding-left:20px"> 
                                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                    <tr> 
                                      <td width="59%" height="18"><img src="images/index7.gif" width="14" height="10">评论　<img src="images/index7.gif" width="14" height="10"><a href="book.asp?id=<%=rs("bookid")%>">详细</a> 
                                        &nbsp; </td>
                                      <td width="43%" style="padding-left:20px"> 
                                        <%if rs("pingjizong")>0 and rs("pingji")>0 then
xx=rs("pingjizong")\rs("pingji")
else
xx=0
end if
response.write "<img src=images/pingji/"&xx&".gif alt=评论星级 align=top>"
%>
                                      </td>
                                    </tr>
                                  </table>
                                </td>
                              </tr>
                              <tr> 
                                <td background="images/paihang_02.gif" style="padding-left:6px"> 
                                  <%response.write "<a href=book.asp?id="&rs("bookid")&" target=_blank>"
					  if len(trim(rs("bookname")))>24 then
					  response.write left(trim(rs("bookname")),24)&"..."
					  else
					  response.write trim(rs("bookname"))
					  end if
					  response.write "</a>"					  
					  %>
                                </td>
                              </tr>
                              <tr> 
                                <td> <img src="images/paihang_04.gif" width=288 height=3 alt=""></td>
                              </tr>
                            </table>
                          </td>
                        </tr>
                      </table>
                      <%
			if i>20 then exit do
			rs.movenext
			loop
			end if%>
                    </td>
                    <td width="40%" valign="top"> 
                      <%i=4
			if rs.recordcount>=4 then
		  rs2.absoluteposition=4
		  do while not rs2.eof
		  i=i+1%>
                      <table width="100%" border="0" cellspacing="2" cellpadding="2">
                        <tr> 
                          <td> 
                            <table width=287 border=0 cellpadding=0 cellspacing=0 height="43">
                              <tr> 
                                <td height="21" background="images/paihang_01.gif" style="padding-left:20px"> 
                                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                    <tr> 
                                      <td width="59%" height="18"><img src="images/index7.gif" width="14" height="10">评论　<img src="images/index7.gif" width="14" height="10"><a href="book.asp?id=<%=rs("bookid")%>">详细</a> 
                                        &nbsp; </td>
                                      <td width="43%" style="padding-left:20px"> 
                                        <%if rs2("pingjizong")>0 and rs2("pingji")>0 then
xx=rs2("pingjizong")\rs2("pingji")
else
xx=0
end if
response.write "<img src=images/pingji/"&xx&".gif alt=评论星级 align=top>"
%>
                                      </td>
                                    </tr>
                                  </table>
                                </td>
                              </tr>
                              <tr> 
                                <td background="images/paihang_02.gif" style="padding-left:6px"> 
                                  <%response.write "<a href=book.asp?id="&rs2("bookid")&" target=_blank>"
					  if len(trim(rs2("bookname")))>24 then
					  response.write left(trim(rs2("bookname")),24)&"..."
					  else
					  response.write trim(rs2("bookname"))
					  end if
					  response.write "</a>"					  
					  %>
                                </td>
                              </tr>
                              <tr> 
                                <td> <img src="images/paihang_04.gif" width=288 height=3 alt=""></td>
                              </tr>
                            </table>
                          </td>
                        </tr>
                      </table>
                      <%if i>20 then exit do
			rs2.movenext
			loop
			end if
			rs.close
			rs2.close
			set rs=nothing
			set rs2=nothing
			%>
                    </td>
                  </tr>
                </table>
              </td>
            </tr>
          </table>
          <!--#include file="service.asp"-->
          <!--#include file="copyright.asp"-->
        </td>
      </tr>
    </table>
</body>
</html>