product_listsearch.asp

多多网店系统v3.01 完全免费可用版-功能简介: 支持多模板皮肤色切换[8套] 支持按商品特性[推荐商品/特价商品/新品分类]浏览 支持按商品类别浏览 支持单件商品用支付宝交易按钮直接支付订

<%
dim dbpath
dbpath=""
%>
<!--#include file=Conn.asp -->
<!--#include file=include/MyRequest.asp -->
<!--#include file="Sub.asp"-->
<!--#include file=include/Pages.asp-->
<%
dim search_prod_id,search_prod_name,search_prod_detail,search_prod_UserPriceMin,search_prod_UserPriceMax,search_prod_flag
search_prod_cid         =my_request("cid",0)              '类别id
search_prod_name        =my_request("name",0)             '商品名称关键字
search_prod_detail		=my_request("detail",0)           '商品介绍关键字
search_prod_UserPriceMin=my_request("UserPriceMin",0)     '商品价格下限
search_prod_UserPriceMax=my_request("UserPriceMax",0)     '商品价格上限
search_prod_flag		=my_request("flag",0)             '商品特性

//参数设置表中相关参数调出
dim rs,sql,root_option_NumsPerRow,root_option_WidthSPic,root_option_HeighSPic,root_option_RowsPerPage,NumsPerPage
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select root_option_NumsPerRow,root_option_WidthSPic,root_option_HeighSPic,root_option_RowsPerPage from root_option where id=1"
rs.open sql,conn,1,1
root_option_NumsPerRow  =rs(0)
root_option_WidthSPic   =rs(1)
root_option_HeighSPic   =rs(2)
root_option_RowsPerPage =rs(3)
rs.close
set rs=nothing

if root_option_WidthSPic="" then root_option_WidthSPic=80
if root_option_HeighSPic="" then root_option_HeighSPic=80

NumsPerPage=root_option_NumsPerRow*root_option_RowsPerPage
if NumsPerPage="" then NumsPerPage=20
if NumsPerPage="0" then NumsPerPage=20
if root_option_NumsPerRow="" then root_option_NumsPerRow=5

dim Search
Search=""
if search_prod_cid<>"" then
    Search=Search & " and cid="&search_prod_cid
end if

if search_prod_name<>"" then
    Search=Search & " and product_info_name like '%"&search_prod_name&"%'"
end if
if search_prod_detail<>"" then
    Search=Search & " and product_info_detail like '%"&search_prod_detail&"%'"
end if
if search_prod_UserPriceMin<>"" then
    Search=Search & " and product_info_PriceS>="&search_prod_UserPriceMin
end if
if search_prod_UserPriceMax<>"" then
    Search=Search & " and product_info_PriceS<="&search_prod_UserPriceMax
end if
if search_prod_flag<>"" then
    Search=Search & " and instr(product_info_flag,"&search_prod_flag&")>0"
end if

call up("搜索结果","搜索结果","<a href=Product_Search.asp>商品搜索</a> &raquo; 搜索结果")
response.write "<tr><td>"
call Product_ListSearch(Search,root_option_NumsPerRow,NumsPerPage)
response.write "</td></tr>"
call down()
%>