<TABLE border=0 width="570" cellspacing="2" cellpadding="2" align=center><tr>
    <td colspan=2 height=30>目前位置：<%=id%>號商品詳細(xì)資料</td>
  </tr><tr><td width="570" colspan=2 align="center" height="1" background="images/bg_xg_01.gif"></td></tr>
<%
'根據(jù)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"><%=remai%>：</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>

<%	'獲取商品點(diǎn)擊次數(shù)
		n=rsprod("ClickTimes")
		if n< 10 then n=10
		n=n+1
'增加商品查看次數(shù)
conn.execute "UPDATE ProdMain SET ClickTimes ="&n&" WHERE ProdId ='"&id&"'"
set rsprod=nothing
end if
%>
    <tr><td bgcolor=<%=bjcolor%> colspan=2 height="25">&nbsp;&nbsp;<font color='#FFFFFF'>詳 細(xì) 說 明</FONT></td></tr>
    <tr><td colspan=2 style="PADDING-LEFT:1em;PADDING-right:1em"><%=MemoSpec%></td></tr>
    <tr><td align=right colspan=2 height=35 >本商品瀏覽次數(shù): <%=n%> 次 &nbsp;&nbsp;</td></tr>
   </tr>
</table>