网上粮店

<% dim Temp:Temp=trim(request.QueryString("Temp")) dim StrTemp:StrTemp = trim(request.QueryString("StrTemp")) 'Temp 模型为 username_rice 'StrTemp 模型为 " md5(_pathkEy,jjtuinc_rice)" dim LocTemp:LocTemp = "_pathkEy,"&Temp dim LocStrTemp:LocStrTemp = md5(LocTemp) 'if (LocStrTemp = StrTemp) then '执行特别通道接口 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'strLen 商品名称文字个数(汉字,字母均算一个) Sub getPicList(num,couNumber,strLen,StronID,casePrice,caseName) pgSize = 20 '定义也的显示大小 '显示前几条。couNumber显示前几列，strLen显示名称长度，StronID 需要显示那个店名称 Dim szSQL,imgUrl 'TOP " & num & " szSQL = "select a.ID,a.ProdName,a.ProdPrice,RIGHT(d.FileName,4) AS fileExt from db_Product a left join db_Member b on a.sellerId = b.Id "_ &" left join db_product_Class c on a.ProdclassId = c.id LEFT JOIN db_Image d ON d.ObjectId = a.ID AND d.Object='product' where (b.ID="&StronID&" or b.ParentID = "&StronID&") and a.atWarehouse=0 and a.SysShow=1 and a.ProdCount > 0 order by a.addTime Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open szSQL,path.getConnection(),1,1 If Rs.EOF Then response.Write("暂无记录！") Else rs.PageSize = pgSize rs.AbsolutePage = pageNo nRecordCount = rs.RecordCount Response.Write "" & vbNewLine Response.Write "" & vbNewLine '开始循环 n = 1 While Not (Rs.Eof) And n <= pgSize For i = 1 TO (couNumber) If Rs.eof Or n > pgSize Then For tem = 0 to (couNumber-i) Response.Write("") Next Exit For End If imgUrl = "tempmishiimg/" & rs("ID") & "_small" & rs("FileExt") if not path.IsExists(imgUrl) then imgUrl = "common/showImg.asp?object=product&objectID="& rs("ID") Response.Write "" & vbNewLine If (i mod couNumber) = 0 Then response.write "" n = n + 1 Rs.MoveNext() Next Wend End If Rs.Close : Set Rs = Nothing Response.Write "" & vbNewLine Response.Write "

" & vbNewLine Response.Write "" & vbNewLine Response.Write "" & vbNewLine if caseName = true and LocStrTemp <> StrTemp then Response.Write "" & vbNewLine elseif caseName = true and LocStrTemp = StrTemp then Response.Write "" & vbNewLine end if if casePrice =true then Response.Write "" & vbNewLine else end if Response.Write "

"& vbNewLine response.Write "" response.Write "

" & path.cutStr(Rs("ProdName"),(strLen*2)) & "

" & FormatCurrency(rs("ProdPrice"),2,true,true,false) & "

" & vbNewLine Response.Write "

" & vbNewLine Response.Write " "&getStorePageBar(nRecordCount,pageNo,pgSize) End Sub 'strLen 商品名称文字个数(汉字,字母均算一个) Sub getPicListCommond(num,couNumber,strLen,StronID,casePrice,caseName) pgSize = 20 '定义也的显示大小 '显示前几条。couNumber显示前几列，strLen显示名称长度，StronID 需要显示那个店名称 Dim szSQL,imgUrl szSQL = "" szSQL = "select TOP " & num & " a.ID,a.ProdName,a.ProdPrice,RIGHT(d.FileName,4) AS fileExt from db_Product a left join db_Member b on a.sellerId = b.Id "_ &" left join db_product_Class c on a.ProdclassId = c.id LEFT JOIN db_Image d ON d.ObjectId = a.ID AND d.Object='product' where b.ID="&StronID&" or b.ParentID = "&StronID&" and a.storeCommend =1 order by a.addTime Desc" Set RsCommond = Server.CreateObject("ADODB.Recordset") 'response.Write(szSQL) RsCommond.open szSQL,path.getConnection(),1,1 If RsCommond.EOF Then response.Write("暂无记录！") Else RsCommond.PageSize = pgSize Response.Write "" & vbNewLine Response.Write "" & vbNewLine '开始循环 n = 1 While Not (RsCommond.Eof) And n <= pgSize For i = 1 TO (couNumber) If RsCommond.eof Or n > pgSize Then For tem = 0 to (couNumber-i) Response.Write("") Next Exit For End If imgUrl = "tempmishiimg/" & RsCommond("ID") & "_small" & RsCommond("FileExt") if not path.IsExists(imgUrl) then imgUrl = "common/showImg.asp?object=product&objectID="& RsCommond("ID") Response.Write "" & vbNewLine If (i mod couNumber) = 0 Then response.write "" n = n + 1 RsCommond.MoveNext() Next Wend End If RsCommond.Close : Set RsCommond = Nothing Response.Write "" & vbNewLine Response.Write "

"& vbNewLine response.Write "" response.Write "

" & path.cutStr(RsCommond("ProdName"),(strLen*2)) & "

" & FormatCurrency(RsCommond("ProdPrice"),2,true,true,false) & "

" & vbNewLine Response.Write "

" & vbNewLine End Sub '''''''''''''''''''''''''''''''''''''''' '商铺名称列表 'StronID 组下,多个地区用逗号(,)隔开 Sub getAreaList(num,strLen,StronID) Dim szSQL szSQL = "SELECT TOP " & num & " a.ID,a.MemName,b.StoreName,RIGHT(c.FileName,4) AS fileExt FROM db_Member as a left join db_Store as b on a.ID = b.UserID left join db_Image as c on c.ObjectId = b.ID AND c.Object='shop' WHERE a.ParentId="&StronID&" ORDER BY a.RegTime DESC" 'response.Write(szSQL) Set Rs = path.Execute(szSQL) If Not Rs.Eof Then While Not Rs.Eof response.Write("·"&rs("StoreName")&"
") Rs.MoveNext Wend End If Rs.Close : Set Rs = Nothing End Sub Sub FugoNews(rowID,lenID,doUser,Target) '其中rowID表示为多少条，其中lenID为你需要控制标题的长度 sql="select top "&rowID&" Title from db_Announce where AddUser = '"&doUser&"' and Target = '"&Target&"' order by AddTime Desc" 'response.write(sql) set rs = path.execute(sql) If rs.EOF then response.Write"暂无记录！" Else while not rs.eof response.write("·"&rs("Title")&"
") Rs.MoveNext wend End If rs.Close:set rs=nothing End Sub %>

    为深入贯彻《公民道德建设实施纲要》和树立社会主义荣辱观，深入开展“放心粮油”工程，宣传粮食科普知识，推进依法治粮和我市粮食信用体系建设，在全社会营造粮食流通产业新形象的良好氛围。根据市粮食局有关指示精神，无锡粮油中心批发市场自开展“放心粮油进社区”活动之后，又将启动“网上粮店”这一便民服务。
    改革开放以来，无锡市政府为重振米市雄风，在无锡国家高新技术开发区、京杭大运河畔，建造了全新的国家级“无锡粮油中心批发市场”。市场目前一期占地150亩，固定资产1.8亿元，现有店铺、摊位300余个，客商办公用房及生活用房170余套。
    2007年9月，无锡粮油中心批发市场开通“网上粮店”这一便民服务，该平台以“电子商务”和“呼叫中心”为双核心，以电子购粮为主要应用，市民可以通过福购网、“中国无锡米市”网站和电话三种途径查询粮油产品信息，足不出户就可以订购放心粮油产品。

    无锡米市网上粮店为进一步贯彻党的“十七大”有关民生精神，落实市政府、市粮食局放心粮油进社区具体政策措施，真正让广大市民吃到安全、放心的粮油商品，并能享受到方便、快捷的服务。本网上粮店特公布购物细则如下：
一、定购方式
1、网上订购客户通过登陆http://www.wxrice.com/或http://www.wangshanglia
ngdian.com/或http://fugo.wuxi.cn/根据操作步骤订购所需商品，网上粮店工作人员会根据您的网上
订单进行回访确定送货时间等事宜,所有网上订单需经电话回访双方认可后方可生效。
二、可供商品
    可供订购商品以网上和客服热线即时公布为准，同时网上粮店商品信息会根据需求而有所变动。
    网上粮店所提供商品都经过无锡粮油中心批发市场质检中心严格检验，请市民放心购买食用。
三、订购时间
    网上订购为24小时服务；
客服中心96889222服务时间为
8：00——18：00，其余时间转留言服务。
四、送货范围
    目前网上粮店送货范围以无锡市主城区为主,并适当向东延伸至太湖花园长江北路线；向南延伸至清扬新村金城路线；向西延伸至西郊宾馆环湖路线；向北延伸至五河新村江海路线。
五、送货时间
1、当天8：00-18：00通过客服中心订购的商品次日送达；当天18：00后留言订购的商品隔日送达。
2、当天17：00前网上订购的商品次日送达；当天17：00后网上订购的商品隔日送达。
注：商品数量较大的订单将于72小时内送达。

	鹤乡园 -- 鹤乡园牌射阳大米
	秋源牌 -- 秋源牌方正大米
	诺敏河牌 -- 氏富硒香米
	谷裕牌 -- 宜兴香米
	为什么要选购品牌大米

服务对象
    只要是满足左侧“网上粮店购物细则”第四条所述条件的任何个人、家庭及团体，通过正常订货手续均能享受到免费送货上门的服务。

付款方式
    货到付款团购或订购数量较大者需预付20%定金。

投诉处理
    市民如发现商品质量、服务态度等问题请在第一时间内拨打96889222投诉，我们会及时将处理意见和结果通知您

法律责任
     为维护网上粮店正常运作，保证广大市民的利益，对于极少数恶意订购或恣意干扰我网上粮店健康运行者，本网上粮店不排除诉求法律支持的可能。

<%call getPicListCommond(6,2,5,6026,false,true)%>