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=4><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">演示：</TD>
            <TD width=278><font color=#ff6633size=4><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">简介：</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" bgColor=#f7f7f7>报价：</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>
          <%end if%>
      </TABLE>

  <tr> 
    <td background="images/tb_bg09.gif" colspan=2 height="23">&nbsp;&nbsp;<b>详细说明:</b></td>
  </tr>
  <tr><td colspan=2 style="PADDING-LEFT:1em;PADDING-right:1em"><%=MemoSpec%></td>
  </tr>
 
  <%	'获取作品点击次数
		n=rsprod("ClickTimes")
		n=n+1

'增加作品查看次数
conn.execute "UPDATE ProdMain SET ClickTimes ="&n&" WHERE ProdId ='"&id&"'"
set rsprod=nothing
end if
%>
  <td width="77"></td>
  <td width="77"></td>
  </tr>
</table>