第一珠宝精品导购互动平台 投稿

国庆遇上金价跌 珠宝首饰销量涨3至4成

日期:2013/10/09 来源:编辑:gali
文章TAG:
<%@ Page Language="vb" AutoEventWireup="false" src="include/db.vb" Inherits="db"%> <%@ OutputCache Duration="60" VaryByParam="brandid" VaryByCustom="minorversion" %> <%@ Import Namespace="IPServices" %> <%@ Import Namespace="Discuz.Common" %> <% Dim brandid As String = strtoint(Request("brandid"), 0) Dim result As String = "" Dim _configs As BizConfigs = New BizConfigs Dim sql As String = "" Dim quickmsgArr As String() Dim _ipScanner As IPScanner = New IPScanner() Dim i = 0 Dim status, fromdate, todate, name, logan, htmlurl2, logo, city, materials, isSpot, isODM, isJoin, isMall, products, pingying, linkphone, address, foundDate, materialStr, quickmsglist As String opendb() _configs = GetBizConfigs(False) If _configs.opened = 0 Then closedb() Response.End() End If rs = Query("select t.*,tt.htmlurl2,ttt.name as cityname from biz_brand t inner join ArticlePage_TABLE tt on t.id=tt.brandid inner join biz_citys ttt on t.city=ttt.id where t.id=" & brandid) If rs.read Then status = rs("status") fromdate = rs("fromdate") todate = rs("todate") name = rs("name") logan = rs("logan") htmlurl2 = rs("htmlurl2") logo = rs("logo") city = rs("cityname") materials = rs("materials") isSpot = rs("isSpot") isODM = rs("isODM") isJoin = rs("isJoin") isMall = rs("isMall") products = rs("products") pingying = rs("pingying") linkphone = rs("linkphone") address = rs("address") foundDate = rs("foundDate") quickmsglist = rs("quickmsglist") End If rs.close() If logo = "" Then logo = "http://www.525zb.com/images/no_photo.jpg" End If '已过期的品牌可以显示信息,但屏蔽电话,可留言,但不发送邮件 'If status = "1" And Date.Compare(Date.Now, Convert.ToDateTime(fromdate)) >= 0 And Date.Compare(Date.Now, Convert.ToDateTime(todate)) <= 0 Then If status = "1" Then result = "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & name & "" & logan & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" result = result & "" result = result & "" result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf 'result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf 'result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf 'result = result & "" & vbCrLf 'result = result & "" & vbCrLf 'result = result & "" & vbCrLf 'result = result & "" & vbCrLf result = result & "" & vbCrLf If Date.Compare(Date.Now, Convert.ToDateTime(fromdate)) >= 0 And Date.Compare(Date.Now, Convert.ToDateTime(todate)) <= 0 Then result = result & "" & vbCrLf result = result & "" & vbCrLf Else result = result & "" & vbCrLf End If result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf 'result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "
服务范围:服务类别:" If isJoin = "1" Then result = result & "品牌加盟," & vbCrLf End If If isODM = "1" Then result = result & "ODM订单," & vbCrLf End If If isSpot = "1" Then result = result & "现货批发," & vbCrLf End If If isMall = "1" Then result = result & "交易中心" & vbCrLf End If result = result & "招商地区:办公城市:" & city & "
经营材质:" 'rs = Query("select name from biz_material where id in (" & materials & ")") 'While rs.read ' materialStr = materialStr & rs("name") & "," 'End While 'rs.close() 'result = result & materialStr & vbCrLf 'result = result & "
联系电话:" & linkphone & " 成立时间:" & foundDate & "
公司地址:" & address & "
主营产品:主营业务:" & products & "" result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf '提示 result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "优质的珠宝商家:" & vbCrLf result = result & "
" & vbCrLf result = result & "为珠宝商把关," & vbCrLf result = result & "
" & vbCrLf result = result & "精挑细选优质的珠宝厂商/交易中心。" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "回复快速深入:" & vbCrLf result = result & "
" & vbCrLf result = result & "留下您的详细联系方式,企业将第一" & vbCrLf result = result & "
" & vbCrLf result = result & " 时间与您取得联系。" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "保持电话畅通:" & vbCrLf result = result & "
" & vbCrLf result = result & "商家收到您的留言后将直接与" & vbCrLf result = result & "
" & vbCrLf result = result & "您联系!请保持通话畅通。" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf '提示结束 result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "
" result = result & "
姓名:
" result = result & "" result = result & "*(必填)" result = result & "
邮箱:
" result = result & "
" result = result & "
电话:
" result = result & "*(必填)" result = result & "
地址:
" result = result & "
称呼:" & vbCrLf result = result & "" & vbCrLf result = result & "*" & vbCrLf result = result & "
" result = result & "
留言:
" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "
" result = result & "" & vbCrLf result = result & "
" & vbCrLf result = result & "
    " & vbCrLf result = result & "
  • 您可以根据意向选择下列[快捷留言]
  • " & vbCrLf If quickmsglist = "" Then quickmsglist = _configs.quickmsglist End If _ipScanner.IP = Request.UserHostAddress quickmsglist = Replace(quickmsglist, "{#brand#}", name) quickmsglist = Replace(quickmsglist, "{#city#}", _ipScanner.IPLocation()) quickmsgArr = Split(quickmsglist, vbCrLf) For i = 0 To UBound(quickmsgArr) If quickmsgArr(i) <> "" Then result = result & "
  • " & quickmsgArr(i) & "
  • " & vbCrLf End If Next result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "" & vbCrLf result = result & "" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "
" & vbCrLf result = result & "" & vbCrLf End If closedb() Response.Write(result) %>

昨日,记者走访成都多家珠宝首饰行得知,十一黄金周期间,恰逢国际金价下跌,带动了许多以投资为目的的潜在客户。珠宝首饰销量平均上涨3到4成,而增长的销量主要来自于针对节日推出的平价促销活动。

婚庆首饰刚需唱主角

记者在春熙路看到,节日期间,大量市民涌进商场、珠宝首饰行挑选珠宝首饰。在一家商场的某珠宝品牌柜台前,一位销售人员一边开销售单一边告诉记者:“人实在太多了,从早上9点开店就开始忙,一直忙到下午还没顾得上吃饭。”记者发现,前来购买珠宝首饰的顾客以新婚夫妻为主。一对正在挑选珠宝的情侣告诉记者,他们计划在本月18日举行婚礼,“原本打算在这家购买一套金饰,在别家买钻戒的,但是看到商家推出满2万元,送30分钻戒的活动,就打算都一起买了。”

成都市婚庆协会会长蒙汀介绍:“金九银十是传统的婚庆高峰,初步估算,今年选择在国庆期间成婚的新人大概有2500多对。从以往的经验来看,新人成婚高峰会带动珠宝首饰销量。同时今年新人选择珠宝首饰有理性化、平价化的趋势。”

记者走访了成都梨花街、琴台路、总府路等主要珠宝批发零售市场发现,国庆期间,大部分商家主打平价亲民路线。永泰珠宝导购告诉记者,和以往只求最贵,以送礼为主的消费需求不同,今年主要的消费需求已经回归理性,来购买的也多是新人和长辈给晚辈的送礼。

金价下跌助力首饰热销

四川省珠宝玉石首饰协会秘书长徐振华告诉记者,“国庆历来就是珠宝首饰热销的节点,并且以婚庆需求为主的消费需求也很少受到政策等外来因素的影响。同时,许多商家也为把握节点推出种种促销活动。今年国庆,又恰逢国际金价下跌,更带动了许多以投资为目的的潜在客户群。”

据记者了解,节前千足金价格接近340元/克左右,而在国庆期间,千足金跌至312元/克左右。一位前来购买金手镯的李女士告诉记者,金价的下跌直接引发了她的购买热情。“去年国庆期间千足金价格差不多是450元/克,现在才312元/克,这意味着我买一个金手镯可以便宜近千元。”

四川省珠宝玉石首饰协会提醒消费者,不要盲目被降价冲昏头,认准含金量与钻石等宝石的品质,比一味追求价格便宜更重要。



分享 |
    锘<%@ Page Language="vb" AutoEventWireup="false" src="include/db.vb" Inherits="db"%> <%@ OutputCache Duration="60" VaryByParam="*" VaryByCustom="minorversion" %> <% Dim pbname As String = DealInput(Request("keyword"), 1000) Dim englishname As String = DealInput(Request("englishname"), 1000).ToLower() dim pbnamearray as array Dim sqlstr As String = "" Dim count As Integer = strtoint(Request("count"), 5) Dim i As Integer = strtoint(Request("index"), 0) Dim retStr = "" If pbname = "" Then sqlstr = sqlstr & " 1=1" Else pbnamearray = Split(pbname, " ") If i < pbnamearray.Length Then sqlstr = sqlstr & " lower(t.Caption) like '%" & pbnamearray(i) & "%' or lower(t.keyword) like '%" & pbnamearray(i) & "%'" Else sqlstr = sqlstr & " 1=1" End If If englishname <> "" Then sqlstr = sqlstr & " or lower(t.Caption) like '%" & englishname & "%' or lower(t.keyword) like '%" & englishname & "%'" End If End If opendb() rs = query("select top " & count & " tt.Chname,tt.HtmlUrl as ChHtmlUrl,t.Caption,t.HtmlUrl,t.HtmlUrl2,t.Content,t.Hits,t.createdate from ArticlePage_TABLE t, webchannel tt where t.channelid=tt.channelid and tt.channeltype=0 and (" & sqlstr & ") order by t.createdate DESC") While rs.Read() retStr = retStr & "
  • " & CutString(rs("Caption"), 30, "") & "
  • " End While rs.close() closedb() Response.Write(retStr) %>
    锘<%@ Page Language="vb" AutoEventWireup="false" src="include/db.vb" Inherits="db"%> <%@ OutputCache Duration="60" VaryByParam="*" VaryByCustom="minorversion" %> <% Dim pbname As String = DealInput(Request("keyword"), 1000) Dim englishname As String = DealInput(Request("englishname"), 1000).ToLower() dim pbnamearray as array Dim sqlstr As String = "" Dim count As Integer = strtoint(Request("count"), 5) Dim i As Integer = strtoint(Request("index"), 0) Dim retStr = "" If pbname = "" Then sqlstr = sqlstr & " 1=1" Else pbnamearray = Split(pbname, " ") If i < pbnamearray.Length Then sqlstr = sqlstr & " lower(t.Caption) like '%" & pbnamearray(i) & "%' or lower(t.keyword) like '%" & pbnamearray(i) & "%'" Else sqlstr = sqlstr & " 1=1" End If If englishname <> "" Then sqlstr = sqlstr & " or lower(t.Caption) like '%" & englishname & "%' or lower(t.keyword) like '%" & englishname & "%'" End If End If opendb() rs = query("select top " & count & " tt.Chname,tt.HtmlUrl as ChHtmlUrl,t.Caption,t.HtmlUrl,t.HtmlUrl2,t.Content,t.Hits,t.createdate from ArticlePage_TABLE t, webchannel tt where t.channelid=tt.channelid and tt.channeltype=0 and (" & sqlstr & ") order by t.createdate DESC") While rs.Read() retStr = retStr & "
  • " & CutString(rs("Caption"), 30, "") & "
  • " End While rs.close() closedb() Response.Write(retStr) %>
发表评论
条评论 | 我要评论 | 进入论坛

资讯TOP5
互动TOP5
    <%@ Page Language="vb" AutoEventWireup="false" src="include/db.vb" Inherits="db"%> <%@ OutputCache Duration="60" VaryByParam="*" VaryByCustom="minorversion" %> <% Dim cid As String = DealInput1(Request("cid"), 1000) Dim fid As String = DealInput1(Request("fid"), 1000) Dim count As Integer = strtoint(Request("count"), 4) Dim len_topic As Integer = strtoint(Request("len"), 40) Dim sqlstr As String Dim column As Integer = 1 If fid <> "" Then sqlstr = " and fid in(" & fid & ")" End If opendb_bbs() rs_bbs = query_bbs("SELECT TOP " & count & " tid,title FROM dnt_topics where fid<>53 " & sqlstr & " order by lastpost DESC ") While rs_bbs.Read() %>
  • .aspx" target="_blank" title="<%=rs_bbs("title")%>"><%=Replace(strleft(rs_bbs("title"), len_topic), "'", "\'")%>
  • <% End While rs_bbs.close() closedb_bbs() %>