shj_tj.asp

商业网站开发有源代码可以运行

<script language="JavaScript">
<!--
function demo(Page,scrl){
if (false)window.close();
 if  (!window.win || win.closed)  
 {
 win=open(Page,"gouwu","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,top=2,width=450,height=350,scrollbars="+scrl+",resizable=1");
 }
 else{
  win.close();
  win=open(Page,"gouwu","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,top=2,width=450,height=350,scrollbars="+scrl+",resizable=1");
  } 
}
//-->
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td align="center"> 
      <%set rs_s=server.CreateObject("adodb.recordset")
		  rs_s.open "select Top 8 * from shop_books where shjiaid="&id&" and bestbook=1 order by adddate,bookid desc",conn,1,1
		  if rs_s.eof and rs_s.bof then
		  response.write "<center><br><font color=red size=2>对不起，暂无推荐商品！</font></font>"
		  'response.End
		  else
		  %>

      <table cellspacing=0 cellpadding=0 border=0 width="100%">
        <%
							  dim i1_1,i1_count
							  i1_1=int((rs_s.recordcount+1)/2)
							  if i1_1>5 then 
							  	i1_1=5
							  end if
							  'response.write i1_1
							  for i1_count=1 to i1_1%>
        <tr> 
          <td valign=top width="49%"> 
            <table cellspacing=0 cellpadding=0 width="100%">
              <tr> 
                <td valign=top width="41%" style="PADDING-LEFT: 6px"><br>
                  <%if rs_s("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs_s("bookid")&" target=_blank><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
	else%>
                  <div align="center"><a href=list.asp?id=<%=rs_s("bookid")%> target=_blank><img src="<%=trim(rs_s("bookpic"))%>"  width=75 border=0 height="75" alt="<%=trim(rs_s("bookname"))%>"></a> 
                    <%end if%>
                  </div>
                </td>
                <td valign=top width="59%"><a class=a4 
                        href=list.asp?id=<%=rs_s("bookid")%> target=_blank><font color=#FF6600><br>
                  &nbsp;</font></a><a href=list.asp?id=<%=rs_s("bookid")%> target=_blank>
                  <%if len(trim(rs_s("bookname")))>7 then
	response.write left(trim(rs_s("bookname")),7)&".."
	else
	response.write trim(rs_s("bookname"))
	end if%>
                  </a><br>
                  &nbsp;市场价：<s><%=formatnumber(rs_s("shichangjia"),2)&"元"%></s><br>
                  &nbsp;会员价：<font color=#FF6600><%=formatnumber(rs_s("huiyuanjia"),2)&"元"%></font><br>
                  &nbsp;VIP 价：<font color=#FF0000><%=formatnumber(rs_s("Vipjia"),2)&"元"%></font><br>
                  <font color="#999999"> </font> 
                  <table cellpadding=0 cellspacing=0>
                    <tbody> 
                    <tr> 
                      <td>&nbsp;<a href="javascript:demo('gouwu.asp?id=<%=rs_s("bookid")%>&action=add');"><img src="images/goumai.gif" width="43" height="12" border=0></a>&nbsp;<a href="javascript:;" onClick="javascript:window.open('shoucang.asp?id=<%=rs_s("bookid")%>&action=add','shouchang','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/shoucang1.gif" width="49" height="13" border=0></a></td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
              <tr align="right"> 
                <td valign=top colspan="2" style="PADDING-LEFT: 6px"><font color="#999999"> 
                  </font> <font color="#999999"> </font>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td><font color="#999999"> 
                        <%if len(trim(rs_s("bookcontent")))>50 then
	response.write left(trim(rs_s("bookcontent")),50)&"...."
	else
	response.write trim(rs_s("bookcontent"))
	end if%>
                        </font></td>
                    </tr>
                  </table>
                  <font color="#999999">
                  <%rs_s.movenext%>
                  </font></td>
              </tr>
            </table>
          </td>
          <td valign=top width="1" background="images/bj_x1.gif"></td>
          <td valign=top width="50%"> 
            <%if rs_s.eof then%>
            &nbsp; 
            <%else%>
            <table cellspacing=0 cellpadding=0 width="100%">
              <tr> 
                <td valign=top width="41%" style="PADDING-LEFT: 6px"><br>
                  <%if rs_s("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs_s("bookid")&" target=_blank><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
	else%>
                  <div align="center"><a href=list.asp?id=<%=rs_s("bookid")%> target=_blank><img src="<%=trim(rs_s("bookpic"))%>"  width=75 border=0 height="75" alt="<%=trim(rs_s("bookname"))%>"></a> 
                    <%end if%>
                  </div>
                </td>
                <td valign=top width="59%"><a class=a4 
                        href=list.asp?id=<%=rs_s("bookid")%> target=_blank><font color=#FF6600><br>
                  &nbsp;</font></a><a href=list.asp?id=<%=rs_s("bookid")%> target=_blank>
                  <%if len(trim(rs_s("bookname")))>7 then
	response.write left(trim(rs_s("bookname")),7)&".."
	else
	response.write trim(rs_s("bookname"))
	end if%>
                  </a><br>
                  &nbsp;市场价：<s><%=formatnumber(rs_s("shichangjia"),2)&"元"%></s><br>
                  &nbsp;会员价：<font color=#FF6600><%=formatnumber(rs_s("huiyuanjia"),2)&"元"%></font><br>
                  &nbsp;&nbsp;VIP 价：<font color=#FF0000><%=formatnumber(rs_s("Vipjia"),2)&"元"%></font><br>
                  <font color="#999999"> </font> 
                  <table cellpadding=0 cellspacing=0>
                    <tbody> 
                    <tr> 
                      <td>&nbsp;<a href="javascript:demo('gouwu.asp?id=<%=rs_s("bookid")%>&action=add');"><img src="images/goumai.gif" width="43" height="12" border=0></a>&nbsp;<a href="javascript:;" onClick="javascript:window.open('shoucang.asp?id=<%=rs_s("bookid")%>&action=add','shouchang','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/shoucang1.gif" width="49" height="13" border=0></a></td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
              <tr> 
                <td valign=top colspan="2" style="PADDING-LEFT: 6px"><font color="#999999"> 
                  </font> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td><font color="#999999"> 
                        <%if len(trim(rs_s("bookcontent")))>50 then
	response.write left(trim(rs_s("bookcontent")),50)&"...."
	else
	response.write trim(rs_s("bookcontent"))
	end if%>
                        </font></td>
                    </tr>
                  </table>
                  <%rs_s.movenext%>
                </td>
              </tr>
            </table>
            <%end if%>
          </td>
        </tr>
        <tr> 
          <td valign=top colspan="3" background="images/bj_x1.gif" height="1"></td>
        </tr>
        <%next%>
        <%
				rs_s.close
				set rs_s=nothing%>
      </table>
      <%end if%>
    </td>
  </tr>
</table>