shangping_j.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="2" align="center">
  <tr> 
    <td rowspan="4" width="30%"> 
      <%if rs("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs("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("bookid")%> target=_blank><img src="<%=trim(rs("bookpic"))%>"  width=75 border=0 height="75"></a> 
        <%end if%>
      </div>
    </td>
    <td width="70%"><a href=list.asp?id=<%=rs("bookid")%> target=_blank><font color="#800000"><u><strong><%=trim(rs("bookname"))%></strong></u></font></a></td>
  </tr>
  <tr> 
    <td width="70%">市场价：<s><%=trim(rs("shichangjia"))%>元</s> 
      会员价：<font color=#FF0000><strong><%=trim(rs("huiyuanjia"))%>元</strong></font> 
      VIP价：<font color=#FF0000><%=trim(rs("vipjia"))%>元</font></td>
  </tr>
  <tr> 
    <td width="70%"><a href="javascript:demo('gouwu.asp?id=<%=rs("bookid")%>&action=add');"><img src="images/goumai.gif" width="43" height="12" border=0></a>&nbsp;&nbsp;<a href="javascript:;" onClick="javascript:window.open('shoucang.asp?id=<%=rs("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>
  <tr> 
    <td width="70%"><font color="#999999"> 
      <%if len(trim(rs("bookcontent")))>50 then
	response.write left(trim(rs("bookcontent")),50)&"...."
	else
	response.write trim(rs("bookcontent"))
	end if%></font></td>
  </tr>
  <tr> 
  <td colspan="2" height=1 background="images/bj_x1.gif"></td>
  </tr>
</table>