mtb_crm_asp/quantitySearch.asp

<!--#include file="Conn.asp"--><%Checklogin()%>
<%
product=Request.QueryString("productId")
country=Request.QueryString("country")
str=""

Set Rs=Server.CreateObject("ADODB.RecordSet")
	Rs.open "select ProductName,ProductImg,unit,moq,tips from Products where id="&product,conn,1,1
	    If not Rs.bof and Not Rs.eof Then
		 productname=Rs("productname")
		 productImg=Rs("productImg")
		 unit=Rs("unit")
		 moq=Rs("moq")		 
		 tips=TextUnCode(Rs("tips"))
		 if isnull(moq) Then moq="无数量限制"
		 str="<td>"&productname&"</td><td><img src="&productImg&"></td><td>"&moq&"</td>"
		End If
	Rs.close


	Rs.open "select * from Products where (nosale like '"&country&"%' or nosale like '%,"&country&",%' or nosale like '%"&country&"') and Id="&product&"",conn,1,1
	If Not Rs.bof and not Rs.eof Then
		str=str&"<td class=""nosale"">产品无法在该地区销售，请勿报价。<br>"&TextUnCode(Rs("note"))&"</td>"
	Else
		
	
		Set Rs1=Server.CreateObject("ADODB.RecordSet")	
			Rs1.open "select distinct num,price from price where productId="&product&" and AreaId="&country&" order by num asc",conn,1,1
				If not Rs1.bof and not Rs1.eof Then
				    str=str&"<td><ul>"
					for i=1 to Rs1.Recordcount
					str=str&"<li>订单数量:≥"&Rs2("num")&"<span class=""unit"">"&unit&"</span><span class=""price"">"&Rs2("price")&"</span>RMB</li>"
					Rs1.moveNext
					Next	
						str=str&"</ul></td><td>"&tips&"</td>"					
				Else
					Set Rs2=Server.CreateObject("ADODB.RecordSet")				
						Rs2.open "select distinct num,price from price where productId="&product&" and AreaId=0 order by num asc",conn,1,1	
						str=str&"<td><ul>"						
						Do while Not Rs2.bof and not Rs2.eof
						str=str&"<li>订单数量:≥"&Rs2("num")&"<span class=""unit"">"&unit&"</span><span class=""price"">"&Rs2("price")&"</span>RMB</li>"
						Rs2.moveNext
						loop
						str=str&"</ul></td><td>"&tips&"</td>"					
					    Rs2.close
						Set Rs2=Nothing
				End if		
			Rs1.close
		Set Rs1=Nothing				
	End If	
	Rs.close
	response.write str
Set Rs=Nothing
conn.close
Set conn=Nothing
%>