<!--#include file="Inc/SysProduct.asp" -->
<!--#include file="inc/Skin_css.asp"-->
<script language="JavaScript"> 
<!-- 
var flag=false; 
function DrawImage(ImgD){ 
 var image=new Image(); 
 image.src=ImgD.src; 
 if(image.width>0 && image.height>0){ 
  flag=true; 
  if(image.width/image.height>= 200/200){ 
   if(image.width>200){
    ImgD.width=200; 
    ImgD.height=(image.height*200)/image.width; 
   }else{ 
    ImgD.width=image.width;
    ImgD.height=image.height; 
   } 
   ImgD.alt="点击查看详细信息..."; 
  } 
  else{ 
   if(image.height>200){
    ImgD.height=200; 
    ImgD.width=(image.width*200)/image.height; 
   }else{ 
    ImgD.width=image.width;
    ImgD.height=image.height; 
   } 
   ImgD.alt="点击查看详细信息..."; 
  } 
 }
}
//--> 
</script> 

<%
ShowSmallClassType=ShowSmallClassType_Article
dim ID
ID=trim(request("ID"))
if ID="" then
	response.Redirect("Product.asp")
end if

sql="select * from Product where ID=" & ID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
	response.write"<SCRIPT language=JavaScript>alert('找不到此产品！');"
  response.write"javascript:history.go(-1)</SCRIPT>"
else	
	rs("Hits")=rs("Hits")+1
	rs.update
Start=Rs("Title")
BigClassName=Rs("BigClassName")
SmallClassName=Rs("SmallClassName")
If CheckInstr(bigClassName,AllPurview) Or CheckInstr(SmallClassName,AllPurview) then checkvalue=true
If session("adminName")<>"" or session("vipuser") then checkvalue=False
If CheckValue then Response.Redirect "Error.asp?error=需要vip权限，请登陆或者联系管理员!"	
%>
<!-- #include file="Head.asp" -->
<TABLE class="xmtable" border=0 align="center" cellPadding=0 cellSpacing=12 bgcolor="#FFFFFF">
  
  <tr> 
    <td  height="450" valign="top" Class="tdbg_left"><table width="100%" border="0" cellspacing="0" cellpadding="0">

      <tr>
        <td height="10"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><% call ShowUserLogin() %>              </td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="5"></td>
      </tr>
    </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;产品列表</td>
        </tr>
        <tr>
          <td height="5"></td>
        </tr>
        <tr>
          <td height="10"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><% call ShowSmallClass_Tree() %>                </td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td height="5"></td>
        </tr>
      </table>
      </td>
    <TD width=1 background=images/MainLine.gif></TD>    
    <td valign="top" bgcolor="#FFFFFF"><table Class=border width="100%" height="150%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="670" valign="top"><table width="670" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><% If IsFlash3="Yes" Then %>
                <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="<%=width3%>" height="<%=High3%>">
                  <param name="movie" value="<%=BannerUrl3%>">
                  <param name="quality" value="high">
                  <param name="wmode" value="transparent">
                  <embed src="<%=BannerUrl3%>" width="<%=width3%>" height="<%=High3%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
                </object>
                <% Else %>
                <img src="<%=BannerUrl3%>" width="<%=width3%>" height="<%=High3%>">
                <% end If%>
            </td>
          </tr>
        </table>
          <br>
          <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                              border=0>
            <TBODY>
              <TR>
                <TD class="title_b"></TD>
                <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                    <TBODY>
                      <TR>
                        <TD width=98 class="title_c">产品展示</TD>
                        <TD width="555" class="title_right">　</TD>
                      </TR>
                    </TBODY>
                </TABLE></TD>
              </TR>
              <TR>
                <TD vAlign=bottom colSpan=2 height=5><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                    <TBODY>
                      <TR>
                        <TD bgColor=#e3e3e3 
                                height=1></TD>
                      </TR>
                    </TBODY>
                </TABLE></TD>
              </TR>
            </TBODY>
          </TABLE>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <TR>
                <TD 
                  height=25><%
response.write "&nbsp;<a href='Product.asp?BigClassName=" & rs("BigClassName") & "'>" & rs("BigClassName") & "</a>&nbsp;&gt;&gt;&nbsp;"
if rs("SmallClassName") & ""<>"" then
	response.write "<a href='Product.asp?BigClassName=" & rs("BigClassName")&"&SmallClassName=" & rs("SmallClassName") & "'>" & rs("SmallClassName") & "</a>&nbsp;&gt;&gt;&nbsp;"
end if
response.write rs("Title")
%>                <a href="Payment.asp?Product_Id=<%=rs("Product_Id")%>",target="_blank"></a></TD>
              </TR>
              <TR>
                <TD 
                  height=1 colspan="2" background=img/naBialym.gif><IMG height=1 src="img/1x1_pix.gif" 
              width=10></TD>
              </TR>
              <TR>
                <TD height="237" colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="21" colspan="3">　</td>
                    </tr>
                    <tr>
                      <%fileExt=lcase(getFileExtName(rs("DefaultPicUrl")))%>
                      <td width="44%" rowspan="6"><font color="#FF6600">&nbsp;</font><font color="#FF6600">&nbsp;</font>
                          <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                          <a href="propic_view.asp?id=<%=rs("id")%>" target=_blank><img style="BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-COLOR: #cccccc; BORDER-TOP-COLOR: #cccccc; BORDER-RIGHT-COLOR: #cccccc" src=<%=rs("DefaultPicUrl")%> width="200" height="200" onload="javascript:DrawImage(this);"></a>
						  <%else if fileext="" then%>
			<img style="BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-COLOR: #cccccc; BORDER-TOP-COLOR: #cccccc; BORDER-RIGHT-COLOR: #cccccc" src=img/nopic.gif >                          
			             <%else if fileext="swf" then%>
                          <object  classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='200' height='200'>
                            <param name=movie value='<%=rs("DefaultPicUrl")%>'>
                            <param name=quality value=high>
                            <param name='Play' value='-1'>
                            <param name='Loop' value='0'>
                            <param name='Menu' value='-1'>
                            <embed src='<%=rs("DefaultPicUrl")%>' width='200' height='200' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' ></embed>
                          </object>

                          <%end if end if end if%>                      </td>
                      <td height="18%"><div align="right">产品编号：</div></td>
                      <td><font color="#FF6600"><strong><%=rs("Product_Id")%></strong></font></td>
                    </tr>
                    <tr>
                      <td width="15%" height="18%"><div align="right">产品名称：</div></td>
                      <td width="41%"><font color="#FF6600"><strong><%=rs("title")%></strong></font></td>
                    </tr>
                    <tr>
                      <td height="18%"><div align="right">规　　格：</div></td>
                      <td><font color="#FF6600"><strong><%=rs("Spec")%></strong></font></td>
                    </tr>
                    <tr>
                      <td height="18%"><div align="right">产品备注：</div></td>
                      <td><font color="#FF6600"><strong><%=rs("Memo")%></strong></font></td>
                    </tr>
                    <tr>
                      <td height="18%"><div align="right">产品类别：</div></td>
                      <td><font color="#FF6600"><strong><%=rs("BigClassName")%></strong></font></td>
                    </tr>
                    <tr>
                      <td height="18%">
                      <div align="right">产品类别：</div></td>
                      <td><a href="Payment.asp?Product_Id=<%=rs("Product_Id")%>",target="_blank"><img border=0 src=Images/inquire_now.gif
width=86 height=21></a></td>
                    </tr>
                    <tr>
                      <td height="9" colspan="3">&nbsp;</td>
                    </tr>
                </table></TD>
              </TR>
              <TR>
                <TD  colspan="2">
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                              border=0>
                    <TBODY>
                      <TR>
                        <TD class="title_b"></TD>
                        <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                            <TBODY>
                              <TR>
                                <TD width=98 class="title_c">产品说明</TD>
                                <TD width="555" class="title_right">　</TD>
                              </TR>
                            </TBODY>
                        </TABLE></TD>
                      </TR>
                      <TR>
                        <TD vAlign=bottom colSpan=2 height=5><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                            <TBODY>
                              <TR>
                                <TD bgColor=#e3e3e3 
                                height=1></TD>
                              </TR>
                            </TBODY>
                        </TABLE></TD>
                      </TR>
                    </TBODY>
                  </TABLE></TD>
              </TR>
              <TR>
                <TD height="1" colspan="2"><br>
                <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td><%call ShowProductContent()%></td>
                      </tr>
                </table>
                <br></TD></TR>
              <TR>
                <TD 
                  height=1 colspan="2" background=img/naBialym.gif><IMG height=1 src="img/1x1_pix.gif" 
              width=10></TD>
              </TR>
              <TR>
                <TD 
                  height=25 align="right">点击数：<%=rs("Hits")%>&nbsp; 录入时间：<%= FormatDateTime(rs("UpdateTime"),2) %>&nbsp;【<a href='javascript:window.print()'>打印此页</a>】&nbsp;【<a href="javascript:self.close()">关闭</a>】<a href="Payment.asp?Product_Id=<%=rs("Product_Id")%>",target="_blank"></a></TD>
              </TR>
			  <TR>
                <TD height=25"><%Call Contextual() %></TD>
              </TR>
          </table></td>
      </tr>
    </table></td>
    <TD width=1 background=images/MainLine.gif></TD>    
    <TD width="79" > </TD>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
</BODY></HTML>
<%
end if
rs.close
set rs=nothing
call CloseConn()

'=================================================
'过程名：contextual
'作  用：显示"&ChannelItemName&"上下"&ChannelItemUnit&"
'参  数：无
'Web:   http://Www.MelyySoft.Com
'=================================================
Sub Contextual()
set RelationArt = Conn.execute("select top 1 ID,Title from [Product] where ID<"&Id&" and Passed=True order by Id desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上个产品：</font>已经没有了<BR> " & vbCrLf    
else
Response.Write "<font color=red>·上个产品：</font><a href=""ProductShow.Asp?ID=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>" & vbCrLf   
end if   
Set RelationArt=Nothing
set RelationArt = Conn.execute("select top 1 ID,Title from [Product] where ID>"&ID&" and Passed=True order by ID")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下个产品：</font>已经没有了" & vbCrLf   
else
Response.Write "<font color=red>·下个产品：</font><a href=""ProductShow.Asp?ID=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>" & vbCrLf  
end if  
Set RelationArt=Nothing 
end sub
%>