<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%dim action,searchkey,categoryid,jiage
categoryid=Cint(request.form("categoryid"))
jiage=FormatSQL(request.form("jiage"))
action= FormatSQL(SafeRequest("action",1))
searchkey=FormatSQL(SafeRequest("searchkey",0))
if categoryid="" then categoryid= FormatSQL(SafeRequest("categoryid",1))
if jiage="" then jiage= FormatSQL(SafeRequest("jiage",1))
if action="" then action=Cint(request.form("action"))
if searchkey="" then searchkey=sqlCheckstr(request.form("searchkey"))%>
<%

webtitle="商品搜索结果"
webkeywords="商品搜索结果"
webdescription="商品搜索结果|"&webname
%> 

<!--#include file="include/header.asp"--> 
<%call sss()%>
<TABLE width="980" BORDER="0" CELLSPACING="0" CELLPADDING="0" align="center" class=table-zuoyou bgcolor="#FFFFFF" >
<TR><TD HEIGHT="30" bgcolor="#FFFFFF" width="75" class=table-xia><FONT COLOR="#FFFFFF">&nbsp;<b>搜索结果：</b></FONT></TD>
<td bgcolor="#FFFFFF" class=table-xia>&nbsp;
<%if searchkey="" then
	response.write "对不起，请您输入查询关键字"
	response.End
	else
	response.write "您查询的关健字是：<font color=red>"&searchkey&"</font>"
	end if%> </td></tr> </table><%'开始分页
				Const MaxPerPage=20
   				dim totalPut   
   				dim CurrentPage
   				dim TotalPages
   				dim j
   				dim sql
    				if Not isempty(request("page")) then
      				currentPage=Cint(request("page"))
   				else
      				currentPage=1
   				end if 
				
set rs=server.CreateObject("adodb.recordset")
if jiage=0 then  '//普通查询
select case action
case "1"
rs.open "select id,name,brand,introduce,price1,price2,productdate from product where name like '%"&searchkey&"%' ",conn,1,1
case "2"
rs.open "select id,name,brand,introduce,price1,price2,productdate from product where brand like '%"&searchkey&"%' ",conn,1,1
case "3"
rs.open "select id,name,brand,introduce,price1,price2,productdate from product where introduce like '%"&searchkey&"%' ",conn,1,1
case "4"
rs.open "select id,name,brand,introduce,price1,price2,productdate,detail from product where detail like '%"&searchkey&"%' ",conn,1,1
end select
else
'//高级查询
if categoryid<>0 then  '//判断查询分类,分类不为空。  
select case action
case "1"
rs.open "select id,name,brand,introduce,price1,price2,productdate from product where name like '%"&searchkey&"%' and price1 < "&jiage&" and categoryid="&categoryid&" order by price1 desc",conn,1,1
case "2"
rs.open "select id,name,brand,introduce,price1,price2,productdate from product where brand like '%"&searchkey&"%' and price1< "&jiage&" and categoryid="&categoryid&" order by price1 desc",conn,1,1
case "3"
rs.open "select id,name,brand,introduce,price1,price2,productdate from product where introduce like '%"&searchkey&"%'  and price1< "&jiage&" and categoryid="&categoryid&" order by price1 desc",conn,1,1
case "4"
rs.open "select id,name,brand,introduce,price1,price2,productdate,detail from product where detail like '%"&searchkey&"%'  and price1< "&jiage&" and categoryid="&categoryid&" order by price1 desc",conn,1,1
end select
else
'//分类为空。
select case action
case "1"
rs.open "select id,name,brand,introduce,price1,price2,productdate from product where name like '%"&searchkey&"%' and price1< "&jiage&" order by price1 desc",conn,1,1
case "2"
rs.open "select id,name,brand,introduce,price1,price2,productdate from product where brand like '%"&searchkey&"%'  and price1< "&jiage&" order by price1 desc",conn,1,1
case "3"
rs.open "select id,name,brand,introduce,price1,price2,productdate from product where introduce like '%"&searchkey&"%'  and price1< "&jiage&" order by price1 desc",conn,1,1
case "4"
rs.open "select id,name,brand,introduce,price1,price2,productdate,detail from product where detail like '%"&searchkey&"%'and price1< "&jiage&" order by price1 desc",conn,1,1
end select
end if
end if
				
  				if rs.eof And rs.bof then
       				Response.Write "<p align='center'  > 对不起，没有查询到您需要的商品！</p>"
   				else
	  				totalPut=rs.recordcount

      				if currentpage<1 then
          				currentpage=1
      				end if

      				if (currentpage-1)*MaxPerPage>totalput then
	   					if (totalPut mod MaxPerPage)=0 then
	     					currentpage= totalPut \ MaxPerPage
	   					else
	      					currentpage= totalPut \ MaxPerPage + 1
	   					end if
      				end if

       				if currentPage=1 then
            			showContent
            			showpage totalput,MaxPerPage,"research.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookbrand
            				bookbrand=rs.bookbrand
            				showContent
             				showpage totalput,MaxPerPage,"research.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"research.asp"
	      				end if
	   				end if
   				   				end if

   				sub showContent
       			dim i
	   			i=0

			%> 
<TABLE width="980" BORDER="0" CELLSPACING="0" CELLPADDING="0" align="center" class=table-zuoyou bgcolor="#FFFFFF" >
<tr align="center" height=30> 
<td width="240" class=table-youxia><FONT COLOR="#930000">商品名称</FONT></td>
<td width="120"class=table-youxia><FONT COLOR="#930000">商品品牌</FONT></td>
<td width="100" class=table-youxia><FONT COLOR="#930000">上货日期</FONT></td>
<td width="80" class=table-youxia><FONT COLOR="#930000">市场价</FONT></td>
<td width="80" class=table-youxia><FONT COLOR="#930000">网店价</FONT></td>
<td width="140" class=table-xia><FONT COLOR="#930000">购买</FONT></td></tr> 
<%do while not rs.eof%> 
<tr align="center" height=30> 
<%Dim num1 '//判断数字奇偶
num1 = Num1+1
If num1 Mod 2 = 0 Then%> 
<td  style="padding-left:6px" align="left" class=table-youxia><%response.write "<a href=product.asp?id="&trim(rs("id"))&" target=_blank>"&trim(rs("name"))&"</a>"%> </td>
<td class=table-youxia><%=trim(rs("brand"))%></td>
<td class=table-youxia> <%=trim(rs("productdate"))%></td>
<td class=table-youxia><%=rs("price1")%>元</td>
<td class=table-youxia><% if LngUserID=0 or Lnggrpid = 4 then%>
		<FONT COLOR=#BEBEBE><s>批发价</s></FONT>
             <% Else %>
		<FONT COLOR=#C40000><%=Round(trim(rs("price2")*LngDiscount),2)%></FONT>
                  元 
                    <%End If %></td>
<td class=table-xia><a href="shopcart.asp?ProdId=<% = rs("id") %>" target="_blank"><img src=skin/skin<%=skin%>/default/addto.gif align=absmiddle border=0></a></td>
<%else%> 
<td  style="padding-left:6px" align="left" class=table-youxia><%response.write "<a href=product.asp?id="&trim(rs("id"))&" target=_blank>"&trim(rs("name"))&"</a>"%> </td>
<td class=table-youxia><%=trim(rs("brand"))%></td>
<td class=table-youxia><%=trim(rs("productdate"))%></td>
<td class=table-youxia><%=rs("price1")%>元</td>
<td class=table-youxia><% if LngUserID=0 or Lnggrpid = 4 then%>
		<FONT COLOR=#BEBEBE><s>批发价</s></FONT>
             <% Else %>
		<FONT COLOR=#C40000><%=Round(trim(rs("price2")*LngDiscount),2)%></FONT>
                  元 
                    <%End If %></td>
<td class=table-xia><a href="shopcart.asp?ProdId=<% = rs("id") %>" target="_blank"><img src=skin/skin<%=skin%>/default/addto.gif align=absmiddle border=0></a><%end if%></td></tr> 
<%i=i+1
		if i>=MaxPerPage then Exit Do
		rs.movenext
  loop
  rs.close
  set rs=nothing%> </table><%  
				End Sub   
  
				Function showpage(totalnumber,maxperpage,filename)  
  				Dim n
  				
				If totalnumber Mod maxperpage=0 Then  
					n= totalnumber \ maxperpage  
				Else
					n= totalnumber \ maxperpage+1  
				End If %>
				
				<form method=Post action=<% = filename %>?searchkey=<% = searchkey %>&action=<% = action %>&categoryid=<% = categoryid %>&jiage=<% = jiage %>>
	    		<%	If CurrentPage<2 Then  %>
				<div align="center">首 页 上一页
				<% Else  %>
				<div align="center"><a href=<% = filename %>?page=1&searchkey=<% = searchkey %>&action=<% = action %>&categoryid=<% = categoryid %>&jiage=<% = jiage %>>首 页</a>
				<a href=<% = filename %>?page=<% = CurrentPage-1 %>&searchkey=<% = searchkey %>&action=<% = action %>&categoryid=<% = categoryid %>&jiage=<% = jiage %>>上一页</a>
				<%	End If
				If n-currentpage<1 Then  %>
				下一页 末 页
				
				<%	Else  %>
				<a href=<% = filename %>?page=<% = (CurrentPage+1) %>&searchkey=<% = searchkey %>&action=<% = action %>&categoryid=<% = categoryid %>&jiage=<% = jiage %>>下一页</a> 
				<a href=<% = filename %>?page=<% = n %>&searchkey=<% = searchkey %>&action=<% = action %>&categoryid=<% = categoryid %>&jiage=<% = jiage %>>末 页</a>
				<%	End If  %>
				 第&nbsp;<b><% = CurrentPage %></b>&nbsp;页 共&nbsp;<b><% = n %></b>&nbsp;页
				 共查询到&nbsp;<b><% = totalnumber %></b>&nbsp;件商品
				转到第<input type="text" name="page" size=2 maxlength=10 value=<% = currentpage %>>
				页<input type='submit'  class='contents' value='跳转' name='cndok'></div></form>
				<%
				End Function  
sub sss() 
if action="1" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from keyname where keyname='"&searchkey&"' ",conn,1,3
if rs.eof and rs.bof then
rs.close
rs.open "select * from keyname",conn,1,3
rs.addnew
rs("keyname")=searchkey
rs("keyorder")=1
rs.update
rs.close
set rs=nothing
else
rs("keyorder")=rs("keyorder")+1
rs.update
rs.close
set rs=nothing
end if
end if
end sub%> </td></tr> </table>
<!--#include file="include/footer.asp"--> 
