<%
//最上部調出或寫入
dim dbpath
dbpath=""
%>
<!--#include file=Conn.asp -->
<!--#include file=include/MyRequest.asp -->
<!--#include file=Sub.asp-->
<!--#include file=include/Pages.asp-->
<%
dim rs,sql,root_info_aboutus
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select root_info_aboutus from root_info where id=1"
rs.open sql,conn,1,1
root_info_aboutus =rs(0)
rs.close
set rs=nothing

//整體框架上部
call up("商品搜索","商品搜索","商品搜索")

//整體框架中部-主體
response.write "			<form name=form1 action=Product_ListSearch.asp method=get>"
response.write "			<tr><td valign=top>商品類別:</td>"
response.write "				<td><select name=cid size=5>"
response.write "					<option value='' selected>所有商品類別下</option>"
  									sql="select cid,product_class_name from product_class order by cid desc"
  									set rs=conn.execute (sql)
 	 								set cid=rs(0)
  									set product_class_name=rs(1)
  									do while not rs.eof
  									response.write "<option value="&cid&">"&product_class_name&"</option>"
 				 					rs.movenext
 				 					loop
  				 					rs.close
  				 					set rs=nothing
response.write "		 			</select>"
response.write "		 		</td>"
response.write "			</tr>"
response.write "			<tr><td>商品名稱包含:</td><td><input type=text name=name size=30> 匹配多個關鍵字全部，可用空格或 AND 連接。</td></tr>"
response.write "			<tr><td>商品內容包含:</td><td><input type=text name=detail size=30></td></tr>"
response.write "			<tr><td>商品價格(本站價):</td><td><input size=6 name=UserPriceMin>元(小值)&nbsp; 至 <input size=6 name=UserPriceMax>元(大值)</td></tr>"
response.write "			<tr><td>商品特性:</td><td><input type=checkbox name=flag1 value=1>推薦&nbsp; <input type=checkbox name=flag2 value=2>新品 <input type=checkbox name=flag value=3>特價</td></tr>"
response.write "			<tr><td>  </td><td><input type=submit value='開始搜索'></td></tr>"
response.write "			</form>"

//整體框架下部
call down()
%>