<!--#include file="conn.asp"-->
<%
strCurrMenu="59"
ThisPage=request.ServerVariables("URL")
%>
<%
%>
<%

strClassName=GetVariable("classname")
if strClassName="" then
	strClassName="所有产品"
end if

strQuery=""

strClass=GetVariable("class")
if strClass<>"" then
	SourCode=conn.execute("Select c_code From web_product_class Where mn_id=" & strCurrMenu & " and id="&strClass)(0)
	strQuery=strQuery & " And c_code Like '" & SourCode &"%'"
end if

strKey=GetVariable("key")
if strKey<>""  then
	strQuery=strQuery & " And (p_name Like '%" & strKey & "%' Or p_detail Like '%" & strKey & "%') "
	strClassName="搜索：" & strKey
end if

strPrice1=GetVariable("price1")
if strPrice1<>"" then
	strQuery=strQuery & " And p_price>=" & strPrice1 
	strClassName=strClassName & "　　最低价格 " & strPrice1
end if

strPrice2=GetVariable("price2")
if strPrice2<>"" then
	strQuery=strQuery & " And p_price<=" & strPrice2
	strClassName=strClassName & "　　最高价格 " & strPrice1
end if

%>
<%
'读取产品展示的属性，以确定显示那个字段
showClass=GetKey("showClass",WebUserID,"product_" & strCurrMenu )
showPrice=GetKey("showPrice",WebUserID,"product_" & strCurrMenu )
showSize=GetKey("showSize",WebUserID,"product_" & strCurrMenu )
showSymbol=GetKey("showSymbol",WebUserID,"product_" & strCurrMenu )
showFace=GetKey("showFace",WebUserID,"product_" & strCurrMenu )
showShop=GetKey("showShop",WebUserID,"product_" & strCurrMenu )
showDetail=GetKey("showDetail",WebUserID,"product_" & strCurrMenu )
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<link href="images/css.css" rel="stylesheet" type="text/css" />
<link rel="stylesheet" href="common/style.css" type="text/css">
<script language="JavaScript" src="common/JS_CheckForm.js"></script>
<script language="JavaScript">
function checkform(theform){
	if(!CheckEmpty(theform.key, "关键字")) return false;
	if(!CheckInteger(theform.price1, "最低价格")) return false;
	if(!CheckInteger(theform.price2, "最高价格")) return false;
}
</script>
<script language="JavaScript">
	function PutWare(strID){
		Shopwin=window.open("shopping.asp?action=add&spid=" + strID+ "&PtCount=1&mnid=<%=strCurrMenu%>",'WareList','width=580,height=250,scrollbars=yes,resizable=yes');
		Shopwin.focus();
	}

</script>
<style type="text/css">
<!--
.t4 {font-family: "宋体";
	font-size: 12px;
	font-weight: bold;
	color: #000000;
	text-decoration: none;
}
.t11 {font-family: "宋体";
	font-size: 12px;
	font-weight: normal;
	color: #FFFF00;
	text-decoration: none;
	line-height: 18px;
}
-->
</style>
</head>

<body>
<!--#include file="top.asp" -->

<table width="782" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="205" valign="top" background="images/eo_09.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="205" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="29" background="images/eo_07.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="14%">&nbsp;</td>
                  <td width="86%" class="t1">产品分类</td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td><table width="74%" height="36" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="10"></td>
              </tr>
              <%
									'开始输出分类
									strcode=""
									for i=1 to Len(SourCode) \ 4
									strcode=strcode&" or c_code like '"&left(SourCode,i*4)&"____'"
									next
									if strcode<>"" then
									strcode="(1<>1"&strcode&" or Len(c_code)=4)"
									else
									strcode=" Len(c_code)=4"
									end if
									strSQL="Select * From web_product_class Where mn_id=" & strCurrMenu&" and " & strcode & "  Order by c_code"
									'response.Write(strsql)
									Set rs=Server.CreateObject("ADODB.RecordSet")
									rs.open strSQL,conn,1,1
									for i=1 to rs.recordcount
									Level=(Len(rs("c_code"))/4-1)*3
									%>
              <tr>
                <td height="26" valign="top" class="t1" ><span class="cn">
                  <%
			If Len(rs("c_code"))>4 Then Response.Write "├"
			Response.Write String(Level,"-")
			%>
                <a href="?class=<%=rs("id")%>&classname=<%=trim(rs("c_name"))%>"><%=trim(rs("c_name"))%></a></span> </td>
              </tr>
              <%
										rs.movenext
									next
									%>
            </table></td>
          </tr>
        </table>
          <table width="205" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="29" background="images/eo_07.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="14%">&nbsp;</td>
                  <td width="86%" class="t1">产品搜索</td>
                </tr>
              </table></td>
            </tr>
            <tr>
              <td><table width="100%" border="0" cellpadding="0" cellspacing="1">
                <tr>
                  <td><table width="100%" border="0" cellspacing="5" cellpadding="0">
                      <tr>
                        <td  scope="row"><form name="form1" method="post" action="?" onSubmit="return checkform(this)">
                            <table width="91%" border="0" align="center" cellpadding="0" cellspacing="0">
                              <tr>
                                <td width="64" height="8" align="right"></td>
                                <td width="94" height="8"></td>
                              </tr>
                              <tr>
                                <td width="64" height="26" align="right" class="cn">分　类：</td>
                                <td width="94" height="26" class="cn"><select name="class" id="class">
                                    <option value="">全部产品</option>
                                    <%Sql="select id,c_name,c_code from web_product_class where mn_id="&strCurrMenu&" order by c_code"
        set rsclass=conn.execute(sql)
        Do While Not rsclass.eof
			Level=(Len(rsclass(2))/4-1)*3
			Response.Write "<option value="""&rsclass(0)&""""
			Response.Write ">"
			If Len(rsclass(2))>4 Then Response.Write "├"
			Response.Write String(Level,"-")
			Response.Write rsclass(1)&"</option>"
			rsclass.movenext
		Loop
		rsclass.close%>
                                  </select>
                                </td>
                              </tr>
                              <tr>
                                <td height="26" align="right" class="cn">关键字：</td>
                                <td height="26" class="cn"><input name="key" type="text" id="key" size="14" maxlength="50" style="width:80px">
                                </td>
                              </tr>
                              <% if showPrice<>"none" then %>
                              <tr>
                                <td height="26" align="right" class="cn">价　格：</td>
                                <td height="26" class="cn"><input name="price1" type="text" id="price1" size="2" maxlength="5" style="width:30px">
                                  到
                                  <input name="price2" type="text" id="price2" size="2" style="width:30px">
                                </td>
                              </tr>
                              <%end if%>
                              <tr align="left">
                                <td height="30" colspan="2" class="cn"><table width="156" height="40" border="0" cellpadding="0" cellspacing="0">
                                    <tr>
                                      <td width="117" height="40" align="right"><input name="imageField" type="image" src="images/search1.gif" width="82" height="24" border="0" style="border:0">
                                      </td>
                                      <td width="39" height="40" valign="bottom">&nbsp;&nbsp;</td>
                                    </tr>
                                </table></td>
                              </tr>
                            </table>
                        </form>
                            <!--Link Begin-->
                            <%
							isLink=GetKey("Enable",WebUserID,"link")
							if isLink="Yes" then
							%></td>
                      </tr>
                  </table></td>
                </tr>
              </table></td>
            </tr>
          </table>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="29" background="images/eo_07.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="13%">&nbsp;</td>
                    <td width="87%" class="t1">友情链接</td>
                  </tr>
              </table></td>
            </tr>
            <tr>
              <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr align="center">
                  <td width="100%" scope="row"><table width="76%" border="0" align="center" cellpadding="7" cellspacing="0">
                      <tr>
                        <td height="107" align="center"  valign="top" class="t1"> 　 <span class="cn"><br>
                              <script language="JavaScript" src="admin/link/link.asp"></script>
                        </span></td>
                      </tr>
                    </table>
                      <span class="t1">
                      <%
							  end if
							  %>
                      <!--Link End-->
                    </span></td>
                </tr>
              </table></td>
            </tr>
          </table></td>
      </tr>
    </table></td>
    <td width="581" valign="top"><table width="577" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="29" background="images/eo_08.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="7%">&nbsp;</td>
            <td width="93%" class="t2">公司产品</td>
          </tr>
        </table></td>
      </tr>
    </table>
      <table width="99%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#EFEFEF">
        <tr>
          <td valign="top" bgcolor="#FFFFFF"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="1">
            <tr>
              <td><table width="500"  height="100%" border="0" cellpadding="0" cellspacing="0" class="t1">
                  <tr>
                    <td width="500" height="264"  valign="top" class="t1" ><span class="cn">
                      <!--Product Begin-->
                      <%
					strSQL="Select * From v_web_product Where mn_id=" & strCurrMenu & strQuery & " Order by p_code,ID Desc"
					Set rs=Server.CreateObject("ADODB.RecordSet")
					rs.open strSQL,conn,1,1
					'分页显示初始化
					page=GetVariable("page")
					if page="" then
						page=1
					else
						page=Cint(page)
					end if
					
					Section=GetVariable("section")
					if Section="" then
						Section=1
					else
						Section=Cint(Section)
					end if
					'变量赋值
					intPageSize=6		'每页显示记录数
					intSectionSize=5		'多少页为一段，像GOOGLE一样
					PrevSectionText="<FONT face=webdings>7</FONT>"		'上一段的链接文字
					NextSectionText="<FONT face=webdings>8</FONT>"		'下一段的链接文字
					PrevPageText="<FONT face=webdings>3</FONT>"			'上页的链接文字	
					NextPageText="<FONT face=webdings>4</FONT>"			'下页的链接文字
					
					strPageUrl="?class=" & GetVariable("class") & "&key=" & GetVariable("key") & "&price1=" & GetVariable("price1") & "&price2=" & GetVariable("price2")
					
					rs.pagesize=intPageSize
					intCount=rs.RecordCount 
					intPageCount=rs.pagecount
					intSectionCount=(intPageCount - 1) \ intSectionSize + 1
					if intCount>0 then
						rs.AbsolutePage=page  
					end if
					%>
                      <br>
                      <%
					 '循环输出
					 for i=1 to (intPageSize + 1) \ 2
						if rs.eof then exit for
					%>
                      </span>
                        <table width="521" height="281" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr align="center">
                            <%
						for j=1 to 2
							if rs.eof then exit For
						%>
                            <td width="260" height="265"><table width="157" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td width="155" height="125" align="center"><table width="100%" border="1" cellpadding="0" cellspacing="4" bordercolor="#CCCCCC">
                                      <tr>
                                        <td><a href="productshow.asp?id=<%=trim(rs("id"))%>&mnid=<%=strCurrMenu%>&classname=<%=trim(rs("c_name"))%>" target="_blank"><img src="UpFile/<%=trim(rs("p_smallpic"))%>" width="146" border="0"></a></td>
                                      </tr>
                                  </table></td>
                                </tr>
                                <tr>
                                  <td height="22" align="center" class="cn"><%if showDetail<>"none" then %>
                                      <a href="productshow.asp?id=<%=trim(rs("id"))%>&mnid=<%=strCurrMenu%>&classname=<%=trim(rs("c_name"))%>&uppage=<%=ThisPage%>" target="_blank"><strong><font color="#006699"><%=trim(rs("p_name"))%></font></strong></a>
                                      <%else%>
                                      <strong><font color="#006699"><%=trim(rs("p_name"))%></font></strong>
                                      <%end if%>
                                  </td>
                                </tr>
                                <%if showClass<>"none" then %>
                                <tr>
                                  <td class="cn"> 　类别： <%=trim(rs("c_name"))%></td>
                                </tr>
                                <%end if%>
                                <%if showSymbol<>"none" then %>
                                <tr>
                                  <td class="cn"><font color="#FF0000">　</font>型号：<%=trim(rs("p_symbol"))%></td>
                                </tr>
                                <%end if%>
                                <%if showFace<>"none" And showFace<>"Null" then %>
                                <tr>
                                  <td class="cn"><font color="#FF0000">　</font>外观：<%=trim(rs("p_face"))%></td>
                                </tr>
                                <%end if%>
                                <%if showSize<>"none" then %>
                                <tr>
                                  <td class="cn"><font color="#FF0000">　</font>尺寸：<%=trim(rs("p_size"))%></td>
                                </tr>
                                <%end if%>
                                <%if showPrice<>"none" then %>
                                <tr>
                                  <td class="cn"><font color="#FF0000">　现价：<%=trim(rs("p_price"))%>元</font></td>
                                </tr>
                                <%end if%>
                                <%if showShop<>"none" then %>
                                <tr>
                                  <td class="cn"><a href="javascript:;" onClick="PutWare('<%=trim(rs("id"))%>')"><img src="images/ljgm.gif" width="85" height="28" hspace="10" border="0"></a></td>
                                </tr>
                                <%end if%>
                            </table></td>
                            <%
							rs.movenext
						next
						%>
                          </tr>
                          <tr align="center">
                            <td height="16">&nbsp;</td>
                            <td>&nbsp;</td>
                          </tr>
                        </table>
                      <span class="cn">
                        <%
								
						next
						%>
                        </span>
                        <table width="90%" border="0" align="center">
                          <tr>
                            <td height="1" background="images/linebg.gif"></td>
                          </tr>
                          <tr>
                            <td height="28" align="right" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td align="right" class="cn"> 共有<font color=ff6600><%=intCount%></font>条记录，分<%=intPageCount%>页，当前页<%=Page%>，每页显示<%=intPageSize%>条记录
                                    <%
									'计算每一段的开始页
									intStarPage=(Section-2) * intSectionSize + 1
									'前一段
									if Section<=1 then
										response.Write(PrevSectionText & " ")
									else
										response.Write("<a href='" & strPageUrl & "&page=" & intStarPage & "&section=" & Section-1 & "'>" & PrevSectionText & "</a> ")
									end if 
									
									'显示页码列表
									response.Write("第")
									intStarPage=(Section-1) * intSectionSize + 1
									for p=intStarPage to intStarPage + intSectionSize - 1
										if p > intPageCount then exit for
										if p=page then
											response.Write("<strong>[" & p & "]</strong> ")
										else
											response.Write("<a href='" & strPageUrl & "&page=" & p & "&section=" & Section & "'>[" & p & "]</a> ")
										end if	
									next
									response.Write("页")
									'后一段
									intStarPage=(Section) * intSectionSize + 1
									if Section>=intSectionCount then
										response.Write(" " & NextSectionText)
									else
										response.Write(" <a href='" & strPageUrl & "&page=" & intStarPage & "&section=" & Section+1 & "'>" & NextSectionText & "</a> ")
									end if 
								  %>
                                  </td>
                                </tr>
                            </table></td>
                          </tr>
                          <tr>
                            <td height="23" align="right" >&nbsp;</td>
                          </tr>
                      </table></td>
                  </tr>
              </table></td>
            </tr>
          </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="end.asp" -->
<script language="JavaScript" src="common/init.js"></script>
<script language=Javascript src="common/tranbig5.Js"></script>
</body>
</html>



