<!--#include file="conn.asp" -->
<%
strCurrMenu="14636"
ThisPage=request.ServerVariables("URL")
strClassName=GetVariable("classname")
if strClassName="" then
	strClassName="All Products"
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="Search：" & strKey
end if

strPrice1=GetVariable("price1")
if strPrice1<>"" then
	strQuery=strQuery & " And p_price>=" & strPrice1 
	strClassName=strClassName & "　　From $" & strPrice1
end if

strPrice2=GetVariable("price2")
if strPrice2<>"" then
	strQuery=strQuery & " And p_price<=" & strPrice2
	strClassName=strClassName & "　　To $" & 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 )
%>
                  <!--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
					%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html;">
<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, "KEY")) return false;
	if(!CheckInteger(theform.price1, "The low price!")) return false;
	if(!CheckInteger(theform.price2, "The high price")) 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>

</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" BodyBegin>
<!--#include file="top.asp"-->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td colspan="2" height="2" valign="top"><img src="images/mega_1_047.gif" width="208" height="12"></td>
  </tr>
  <tr> 
    <td width="208" height="46" valign="top"> 
      <table width="208" border="0" cellspacing="0" cellpadding="0" height="100%">
        <tr> 
          <td width="198" height="44" bgcolor="f3f2f2" valign="top"> 
            <table width="198" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="3" bgcolor="#CCCCCC">
                    <tr> 
                      <td bgcolor="#FFFFFF"></td>
                    </tr>
                  </table>
                  <table width="100%" border="0" cellspacing="1" cellpadding="0" height="5" bgcolor="#CCCCCC">
                    <tr> 
                      <td bgcolor="#FFFFFF"></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td background="images/lin-bg.gif" height="33">
                  <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFFFFF">Productions 
                    Class</font></b></font></div>
                </td>
              </tr>
              <tr> 
                <td height="215"> 
                  <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
                    <tr> 
                      <td height="168" valign="top"> <table width="100%" height="36" border="0" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="10" colspan="2"></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 rsClass=Server.CreateObject("ADODB.RecordSet")
									rsClass.open strSQL,conn,1,1
									for i=1 to rsClass.recordcount
									Level=(Len(rsClass("c_code"))/4-1)*3
									%>
                          <tr> 
                            <td width="46" height="26" align="right" > 
                              <li></td>
                            <td width="148" >
                              <%
			If Len(rsClass("c_code"))>4 Then Response.Write "├"
			Response.Write String(Level,"-")
			%>
                              <a href="?class=<%=rsClass("id")%>&classname=<%=trim(rsClass("c_name"))%>" class="aBlack"><%=trim(rsClass("c_name"))%></a></td>
                          </tr>
                          <%
									rsClass.movenext
								next
								%>
                        </table></td>
                    </tr>
                    <tr>
                      <td height="20"> 
                        <div align="center"> </div>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
            <table width="198" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="3" bgcolor="#CCCCCC">
                    <tr> 
                      <td bgcolor="#FFFFFF"></td>
                    </tr>
                  </table>
                  <table width="100%" border="0" cellspacing="1" cellpadding="0" height="5" bgcolor="#CCCCCC">
                    <tr> 
                      <td bgcolor="#FFFFFF"></td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td background="images/lin-bg.gif" height="33"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFFFFF">Productions 
                    Search</font></b></font></div></td>
              </tr>
              <tr> 
                <td height="215"> <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
                    <tr> 
                      <td height="168" valign="top"><form name="form1" method="post" action="?" onSubmit="return checkform(this)">
                          <table width="175" border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr> 
                              <td width="58" height="8" align="right"></td>
                              <td width="117" height="8"></td>
                            </tr>
                            <tr> 
                              <td width="58" height="26" align="right">Class:</td>
                              <td width="117" height="26"> <select name="class" id="class" style="width:80px">
                                  <option value="">Show all prducts</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">Key Word:</td>
                              <td height="26"> <input name="key" type="text" id="key" size="15" maxlength="50" style="width:80px"> 
                              </td>
                            </tr>
                            <% if showPrice<>"none" then %>
                            <tr> 
                              <td height="26" align="right">Price:</td>
                              <td height="26"> <input name="price1" type="text" id="price1" size="2" maxlength="5" style="width:30px">
                                To 
                                <input name="price2" type="text" id="price2" size="2" style="width:30px"> 
                              </td>
                            </tr>
                            <%end if%>
                            <tr align="left"> 
                              <td height="30" colspan="2"> <table width="173" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
                                  <tr> 
                                    <td width="173" height="40" align="center"> 
                                      <input type="submit" name="Submit" value=" Search "><input type="reset" name="Submit2" value=" Reset "></td>
                                  </tr>
                                </table></td>
                            </tr>
                          </table>
                        </form> </td>
                    </tr>
                    <tr> 
                      <td height="20"> <div align="center"> </div></td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            <!--Link Begin-->
            <%
							isLink=GetKey("Enable",WebUserID,"link")
							if isLink="Yes" then
							%>
            <table width="198" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="3" bgcolor="#CCCCCC">
                    <tr> 
                      <td bgcolor="#FFFFFF"></td>
                    </tr>
                  </table>
                  <table width="100%" border="0" cellspacing="1" cellpadding="0" height="5" bgcolor="#CCCCCC">
                    <tr> 
                      <td bgcolor="#FFFFFF"></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td background="images/lin-bg.gif" height="33"> 
                  <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFFFFF">links</font></b></font></div>
                </td>
              </tr>
              <tr> 
                <td height="215"> 
                  <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
                    <tr> 
                      <td height="169" align="center"><script language="JavaScript" src="admin/link/link.asp"></script></td>
                    </tr>
                    <tr> 
                      <td height="20"> 
                        <div align="center"> </div>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
            <%
							  end if
							  %>
            <!--Link End-->
          </td>
          <td width="9" height="44">&nbsp;</td>
        </tr>
      </table>
    </td>
    <td height="46" width="572" valign="top"> 
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height="21"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td background="images/lin-bg.gif" height="33" width="1%"><img src="images/left.gif" width="9" height="33"></td>
                <td background="images/lin-bg.gif" height="33" width="4%"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFFFFF"><img src="images/ys-j2g.gif" width="14" height="14"></font></b></font></td>
                <td background="images/lin-bg.gif" height="33" width="91%"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFFFFF">Productions</font></b></font></td>
                <td background="images/lin-bg.gif" height="33" width="4%"> 
                  <div align="right"><img src="images/right.gif" width="10" height="33"></div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td height="48"><strong><%=strClassName%>: RESULTS <%=intCount%></strong></td>
        </tr>
        <tr> 
          <td>
            <%
					 '循环输出
					 for i=1 to intPageSize
						if rs.eof then exit for
					%>
            <table height="155" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr align="center"> 
                <td width="521" height="139"> 
                  <table width="470" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="197" rowspan="7" align="center"><a href="productshow.asp?id=<%=trim(rs("id"))%>&mnid=<%=strCurrMenu%>&classname=<%=trim(rs("c_name"))%>&uppage=<%=ThisPage%>" target="_blank"><img src="UpFile/<%=trim(rs("p_smallpic"))%>" width="146" vspace="10" border="0"></a></td>
                      <td width="445" height="22"> 
                        <%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> 　<strong>Classification: </strong><%=trim(rs("c_name"))%></td>
                    </tr>
                    <%end if%>
                    <%if showSymbol<>"none" then %>
                    <tr> 
                      <td><font color="#FF0000">　</font><strong>Type: </strong><%=trim(rs("p_symbol"))%></td>
                    </tr>
                    <%end if%>
                    <%if showFace<>"none" And showFace<>"Null" then %>
                    <tr> 
                      <td><font color="#FF0000">　</font><strong>Appearance:</strong> 
                        <%=trim(rs("p_face"))%></td>
                    </tr>
                    <%end if%>
                    <%if showSize<>"none" then %>
                    <tr> 
                      <td><font color="#FF0000">　</font><strong>Size: </strong><%=trim(rs("p_size"))%></td>
                    </tr>
                    <%end if%>
                    <%if showPrice<>"none" then %>
                    <tr> 
                      <td><font color="#FF0000"><strong>　Price: $</strong><%=trim(rs("p_price"))%></font></td>
                    </tr>
                    <%end if%>
                    <%if showShop<>"none" then %>
                    <tr> 
                      <td height="30"><a href="javascript:;" onClick="PutWare('<%=trim(rs("id"))%>')"><img src="images/buyprotect2.gif" width="88" height="12" hspace="10" border="0"></a></td>
                    </tr>
                    <%end if%>
                  </table>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#990000">
                    <tr> 
                      <td height="1" bgcolor="#666666"></td>
                    </tr>
                  </table></td>
              </tr>
              <tr align="center"> 
                <td height="16">&nbsp;</td>
                <td>&nbsp;</td>
              </tr>
            </table>
            <%
								
							rs.movenext
						next
			%>
            <br> <table width="92%" border="0" align="center">
              <tr> 
                <td></td>
              </tr>
              <tr> 
                <td height="28" align="right" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td align="right"> <%=Page%>/<%=intPageCount%>, 
                        <%
			'计算每一段的开始页
			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("page ")
			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
			'后一段
			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>
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="3" bgcolor="#CCCCCC">
  <tr> 
    <td bgcolor="#FFFFFF"></td>
  </tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="54" align="center" background="images/foot-bg.gif"> <font color="#FFFFFF">未设置<br></font><br>
      <script language="JavaScript" src="admin/count/counter.asp"></script></td>
  </tr>
</table>
<script language="JavaScript" src="common/init.js"></script>
</body>
</html>



