proddetail.asp

全功能网上商城

<TABLE border=0 width="570" cellspacing="2" cellpadding="2" align=center><tr>
    <td colspan=2 height=30>目前位置：<%=id%>号商品详细资料</td>
  </tr><tr><td width="570" colspan=2 align="center" height="1" background="images/bg_xg_01.gif"></td></tr>
<%
'根据ID号显示某个商品
sqlprod="select * from ProdMain where Online=true and ProdId='"&id&"'"
Set rsprod=Server.CreateObject("ADODB.RecordSet") 
Application.Lock
rsprod.Open sqlprod,conn,1,1 
if rsprod.bof and rsprod.eof then
		response.write "<tr><td width=100% rowspan='2' height=150 align=center>您好！目前商城的暂无此商品</td></tr>"
else
	ProdDisc=rsprod("ProdDisc")
	if ProdDisc<>"" then ProdDisc=Autolink(ProdDisc)
	MemoSpec=rsprod("MemoSpec")
	if MemoSpec<>"" then MemoSpec=Autolink(MemoSpec)
%>
<tr> 
    <td width=<%=rsprod("ImgFullWidth")%> align=center valign=top> <img src="<%=rsprod("ImgFull")%>" width="<%=rsprod("ImgFullWidth")%>" height="<%=rsprod("ImgFullHeight")%>"><br>
      <%	'如果有超大图则显示按纽
		if rsprod("FileOther")="1" then
		Set fileother=Server.CreateObject("ADODB.Recordset")
		prodid="select * from FileOther where ProdId='"&id&"'"
		fileother.Open prodid,conn,1,1
			if fileother.bof and fileother.eof then
			  response.write " "
			else
			response.write "<a href='filemore.asp?ProdId="&fileother("ProdId")&"' target='_blank'><img src='images/bigpic.jpg' border=0></a>"
			end if
		set fileother=nothing
		end if
%>
    </td>
    <td width=491 valign=top> 
      <TABLE  width="333" border=0 align="center" cellPadding=4 cellSpacing=0 class=new>
        <TBODY> 
        <TR> 
          <TD colSpan=2 valign="bottom"><FONT color=#ff6633                         size=5><B><%=rsprod("ProdName")%></B></FONT></TD>
        </TR>
        <TR> 
          <TD  height=1 colSpan=2 align="right" bgColor=#cccccc></TD>
        </TR>
        <TR> 
          <TD width=55 align="right">型&nbsp;&nbsp;号：</TD>
          <TD width=278><font color=#ff6633><b><%=rsprod("Model")%></b></font></TD>
        </TR>
        <TR> 
          <TD  height=1 colSpan=2 align="right" bgColor=#cccccc></TD>
        </TR>
        <TR> 
          <TD align="right" width="55">简&nbsp;&nbsp;介：</TD>
          <TD width="278"><%=ProdDisc%></TD>
        </TR>
		<TR> 
          <TD  height=1 colSpan=2 align="right" bgColor=#cccccc></TD>
        </TR>


		<TR> 
          <TD width=55 align="right">市场价：</TD>
          <TD width=278>
		<b><S><%=rsprod("PriceOrigin")%></S> 元</b>
	  </TD>
        </TR>

		<TR> 
          <TD  height=1 colSpan=2 align="right" bgColor=#cccccc></TD>
        </TR>

		<TR> 
          <TD width=55 align="right">热卖价：</TD>
          <TD width=278>
		  <%if rsprod("PriceList")=0 then
		  //如果价格为0则不可以购买，说明价格没有定下来，需要电询手工下单%>
		<font color=#ff6633><b>请咨询客服订购...</b></font>
		<%else%>
		<font color=#ff6633><b><%=rsprod("PriceList")%></font> 元</b>
	  </TD>
        </TR>
        <TR> 
          <TD vAlign=top bgColor=#cccccc colSpan=2 height=1></TD>
        </TR>
        <TR> 
          <TD width=55 align="right" bgcolor="#f7f7f7">购&nbsp;&nbsp;买：</TD>                 
				  <TD width=278 bgcolor="#f7f7f7">
	<a href="#" onClick="window.open('order/add.asp?ProdId=<%=rsprod("ProdId")%>','add','scrollbars=yes,resizable=no,width=650,height=450')"><%if rsprod("Quantity")>0 then
	//如果库存为大于0则可以正常购买，如果小于0则提示需要定购%><img src='images/mybuy_02.gif' border=0 vspace=3 hspace=5>
	<%else%><img src='images/mybuy.gif' border=0 vspace=3 hspace=5>
	<%end if%></a></TD>
        </TR>
		<%end if%>
      </TABLE>

<%	'获取商品点击次数
		n=rsprod("ClickTimes")
		if n< 10 then n=10
		n=n+1
'增加商品查看次数
conn.execute "UPDATE ProdMain SET ClickTimes ="&n&" WHERE ProdId ='"&id&"'"
set rsprod=nothing
end if
%>
    <tr><td bgcolor="#FF9900" colspan=2 height="23">&nbsp;&nbsp;<b>详细说明:</b></td></tr>
    <tr><td colspan=2 style="PADDING-LEFT:1em;PADDING-right:1em"><%=MemoSpec%></td></tr>
    <tr><td align=right colspan=2 height=35 >本商品浏览次数: <%=n%> 次 &nbsp;&nbsp;</td></tr>
   </tr>
</table>