top.asp

asp商城之王

					  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 > <a href="javascript:;" onClick="javascript:window.open('shopcart.asp?id=<%=rs2("bookid")%>&action=add','gouwu','width=600,height=600,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/goumai.gif" width="40" height="18" border=0></a>　　<a href="javascript:;" onClick="javascript:window.open('favorites.asp?id=<%=rs2("bookid")%>&action=add','shouchang','width=600,height=600,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/Favorites.gif" width="40" height="18" border=0></a></td>
                              </tr>
                              <tr> 
                                
                            <td height="2" background="images/bj_x1.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/top/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" style="padding-left:20px"> 
                              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                    <tr> 
                                      
                                  <td width="59%" height="18"><a href="list.asp?id=<%=rs("bookid")%>" target=_blank><font color="#999999">查看详细信息</font></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=5
end if
response.write "<img src=images/pingji/"&xx&".gif alt=评论星级 align=top>"
%>
                                      </td>
                                    </tr>
                                  </table>
                                
                            </td>
                              </tr>
                              <tr> 
                                
                            <td style="padding-left:6px" height="22"> 
                              <%response.write "<a href=list.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 background="images/bj_x1.gif" height="1"></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 rs2.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" style="padding-left:20px"> 
                              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                    <tr> 
                                      
                                  <td width="59%" height="18"><a href="list.asp?id=<%=rs2("bookid")%>" target=_blank><font color="#999999">查看详细信息</font></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=5
end if
response.write "<img src=images/pingji/"&xx&".gif alt=评论星级 align=top>"
%>
                                      </td>
                                    </tr>
                                  </table>
                                
                            </td>
                              </tr>
                              <tr> 
                                
                            <td style="padding-left:6px" height="22"> 
                              <%response.write "<a href=list.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 background="images/bj_x1.gif" height="1"></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>
				<%end if%>
              </td>
            </tr>
          </table>
          
    </td>
      </tr>
    </table>
<!--#include file="webfoot.asp"-->
</body>
</html>