<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="./dsnroot.asp" -->
<!-- #include file="./links.asp" -->
<%
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rs1=Server.CreateObject("ADODB.Recordset")
cn.Open mycnstr
id=Request.QueryString ("id")
menu="0100000"
if id="" then
		id=0 
	else
		id=cint(id)
end if		
if id<>0 then
	sqltext="select top 1 id,pid,title,picname,picname4,body from danwei where id="&id&" and enable=1 and ppid=9 order by pl"
	rs.Open sqltext,cn,1,1
	if not rs.EOF then
		titletxt=trim(rs("title"))
		picname=trim(rs("picname"))
		picname4=trim(rs("picname4"))
		contenttxt=checkstr(trim(rs("body")),1)
		pid=rs("pid")
	end if
	rs.Close 
else
	errtxt="ERR."	
end if
%>
<!-- #include file="./func.inc" -->
<!-- #include file="./begin.asp" -->
      <table width="778" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td colspan="2" bgcolor="#FFFFEC" align="center" valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" height="36">
              <tr> 
                <td width="20" background="images/nav2_bg2.gif">&nbsp;</td>
                <td width="188" background="images/nav2_bg2.gif"><a href="default.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image8','','images/bt2_home2.gif',1)"><img name="Image8" border="0" src="images/bt2_home.gif" width="55" height="18"></a></td>
                <td background="images/nav2_bg2.gif" align="center">&nbsp; </td>
              </tr>
            </table>
            <table width="95%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="26">&nbsp;</td>
              </tr>
            </table>
            <table width="95%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="20" height="36"><img src="images/company/title_sign.gif" width="14" height="18"></td>
                <td class="font2"><font color="#996600"><b><%=titletxt%></b></font></td>
              </tr>
            </table>
            <table width="95%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td background="images/company/point_line.gif" height="1"></td>
              </tr>
              <tr>
                <td>&nbsp;</td>
              </tr>
            </table>
            <table width="95%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="210"> 
                  <table width="82%" border="0" cellspacing="0" cellpadding="0">
                    <%if picname<>"" then%>
                    <tr> 
                      <td align="center"><img src="upfile/<%=trim(picname)%>"></td>
                    </tr>
                    <%end if%>
                    <tr> 
                      <td align="center" height="32">
                        <table width="180" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <%if picname4<>"" then%>
									<td width="16"><img src="images/products/icon_large.gif" width="14" height="14"></td>
									<td width="70"><a href="#" onclick="pro_large()" class="a12"><font color="#996600">[LARGE]</font></a></td>
                            <%end if%>
                            <td width="16"><img src="images/products/icon_order.gif" width="14" height="14"></td>
                            <td><a href="#" onclick="check_select(order_select)" class="a12"><font color="#996600">[ORDER]</font></a></td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
                <td width="50">&nbsp;</td>
					<%sqltext="select id,title from cdanwei where pid="&id&" and enable=1 order by pl"
					  rs.Open sqltext,cn,1,1
					  if not rs.EOF then
							ls=2
							if rs.RecordCount mod ls <>0 then
									hs=fix(rs.RecordCount /ls)+1
								else
									hs=rs.RecordCount /ls
							end if		
					%>  
						<td valign="top" class="font1"><b><font color="#CC9900">Spec:<br></font></b>
						<table width="95%" border="0" cellspacing="0" cellpadding="0">
						  <form name=order_select action="order.asp?id=<%=id%>&mode=9" method="post" onsubmit="return check_select(order_select)">
						  <%for i=1 to hs%>
						  <tr>
						    <%for j=1 to ls%>
						      <%if not rs.eof then%>
								<td width="1%"><input name=sel value="<%=rs("title")%>" type="checkbox"></td>
								<td width="49%" class="font1"><%=rs("title")%></td>
							  <%
							  rs.MoveNext
							  else%>	
								<td>&nbsp;</td><td>&nbsp;</td>
							  <%end if%>
						    <%next%>
						  </tr>  	  	
						 <%next%> 
						 </form>
						</table> 
					</td>
			    <%end if  %>
			    <%rs.Close%>
              </tr>
            </table>
            <table width="95%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td background="images/company/point_line.gif" height="1"></td>
              </tr>
              <tr>
                <td>&nbsp;</td>
              </tr>
            </table>
            <table width="95%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td class="font1"><b><font color="#CC9900">Explain:</font></b><br><%=contenttxt%></td>
              </tr>
            </table>
            
          </td>
          <td bgcolor="#cc9933" valign="top" align="center" width="170"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td> 
                  <div id="Layer3" style="position:absolute; width:10px; height:10; z-index:2"> 
                    <div id="Layer4" style="position:absolute; width:200px; height:115px; z-index:1; left: -15px; top: 80px"> 
                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td><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="307" height="60">
                              <param name=movie value="images/f_wanbao.swf">
                              <param name=quality value=high>
                              <param name="wmode" value="transparent">
                              <embed src="images/f_wanbao.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="307" height="60">
                              </embed> 
                            </object></td>
                        </tr>
                      </table>
                    </div>
                  </div>
                </td>
              </tr>
            </table>
            <table width="170" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="145">&nbsp;</td>
              </tr>
            </table>
            <%sqltext="select id,title from classes where pid=9 and enable=1 order by pl"
              rs.Open sqltext,cn,1,1
              do while not rs.EOF 
                 if pid=rs("id") then
            %>
		            <table width="170" border="0" cellspacing="0" cellpadding="0">
				      <tr> 
						<td background="images/news/nav_over_brown.gif"><a href="products.asp?id=<%=rs("id")%>" class="link2"><font color="#996600"><%=trim(rs("title"))%></font></a></td>
					  </tr>
					  <tr> 
						<td height="1"></td>
					  </tr>
					</table>
				<%else%>	
					<table width="170" border="0" cellspacing="0" cellpadding="0">
				      <tr> 
						<td background="images/news/nav_out_brown.gif"><a href="products.asp?id=<%=rs("id")%>" class="link2"><%=trim(rs("title"))%></a></td>
					  </tr>
					  <tr> 
						<td height="1"></td>
					  </tr>
					</table>
				<%end if%>	
            <%rs.MoveNext 
              loop
              rs.Close 
            %>
          </td>
          <td bgcolor="#FFF9E1" valign="top" align="center" width="137"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="250">&nbsp;</td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td align="center" height="70"><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="65" height="65" id=ShockwaveFlash2>
                    <param name=movie value="images/banner_service2.swf">
                    <param name=quality value=high>
                    <embed src="images/banner_service2.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="65" height="65">
                    </embed> 
                  </object></td>
              </tr>
              <tr> 
                <td align="center" height="70"><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="65" height="65" id=ShockwaveFlash3>
                    <param name=movie value="images/banner_business2.swf">
                    <param name=quality value=high>
                    <embed src="images/banner_business2.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="65" height="65">
                    </embed> 
                  </object></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td colspan="2" bgcolor="#FFFFEC" align="center" valign="top"> 
            <table width="95%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td colspan="4">&nbsp;</td>
              </tr>
              <tr> 
                <td background="images/company/point_line.gif" height="1" colspan="4"></td>
              </tr>
              <tr> 
                <td height="36" align="right" width="20"><img src="images/company/icon_back.gif" width="14" height="14"></td>
                <td height="36"><a href="products.asp?id=<%=pid%>" class="a02">Back</a></td>
                <td height="36" align="right" width="30"><img src="images/company/icon_top.gif" width="14" height="14"></td>
                <td height="36" width="30" align="center"><a href="#" class="a02">TOP</a></td>
              </tr>
            </table>
          </td>
          <td bgcolor="#CC9933" valign="top" align="center" width="170">&nbsp;</td>
          <td bgcolor="#FFF9E1" valign="top" align="center" width="137">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="2" bgcolor="#FFFFEC" align="center" valign="top" height="36">&nbsp;</td>
          <td bgcolor="#CC9933" valign="top" align="center" width="170">&nbsp;</td>
          <td bgcolor="#FFF9E1" valign="top" align="center" width="137">&nbsp;</td>
        </tr>
      </table>
<!-- #include file="./end.asp" -->
<script language="Javascript">

    function check_select(form)
    {
        var sub_ok=0;
        for (i=0;i<(form.sel.length);i++)
          { 
			if (form.sel(i).checked){sub_ok=1;}
		  }
		if(sub_ok==1){form.submit();return true;}else{alert("Please select Product Spec£¡");return false;}  
    }
    
    function pro_large()
    {
        window.open('products_display_large.asp?id=<%=id%>','corplist','width=778,scrollbars=no')
    }
</script>    
