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

用传播的力量改变世界——专访《芭莎珠宝》主编敬静

日期:2019/05/13 来源:编辑:sunday
文章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) %>

在追求精神文明建设的当下,“时尚”一词屡见不鲜。“时尚”究竟是什么?相信每个人的定义与理解都不同。1904年,时尚理论大师齐美尔在其发表的小文《时尚的哲学》中讲到,“时尚是既定模式的模仿,它把个人引向每个人都在行进的道路,它提供一种把个人行为变成样板的普遍性规则。但同时它又满足了对差异性,变化,个性化的要求。”“时尚是一种社会需要的产物。”流传百年的经典哲学概念提醒我们,时尚并不是随波逐流的时髦,差异性、个性化、赋予深刻内涵才是时尚的价值体现。作为《芭莎珠宝》的创刊人及主编,敬静认为时尚是一种生命力,是对一个时代的传承,也是对梦想的提炼,她以杂志为媒介传播时尚文化,担当起时尚标榜者这一职责。

时尚的事物能够促进人们提高审美能力,在诱发人们不断尝试新风格的同时,呈现多彩缤纷的文化艺术。敬静从事时尚文化传播工作十余年,她能够准确及时地把握不同时代和不同地域文化的脉搏,并将这些文化以时尚的形式记录下来。在担任《芭莎珠宝》主编这十年间,敬静以高品位国际视角,艺术化的视觉形象,权威、实用、深入的策划专题,将《芭莎珠宝》打造成为中国唯一的国际化高级珠宝杂志,为众多读者带来了珠宝文化最高端的品鉴与理解。“时尚的传播能够促进各类文化的交流融合,如《芭莎珠宝》就集中体现了世界各种珠宝文化的传承与发展。从各个时期不同的珠宝设计中,可以发现不同文化交流的印记。文化的交融满足了人们追求时尚过程中的求异心理,同时能够借鉴优秀的技巧工艺,为全球化时代的文化交流提供助力。”敬静如是说。

很多人将时尚与流行相提并论,其实并不如此。时尚可以流行,但广为流行的从众、模仿只是追求时尚艺术的初级阶段,能从一重重时尚潮流中剥茧抽丝,萃取其本质和真意,并以此丰富自身的审美与品位,达到理智而熟练的驾驭,这才是真正的时尚。在时尚潮流中,设计扮演的是创造者的身份。敬静女士认为时尚文化的传播离不开创新设计,优秀的设计师能够准确把握时尚潮流,迎合时代特征,从历史与时代中寻找元素,创造出满足时尚群体需求的设计。她将《芭莎珠宝》定义为珠宝时尚潮流的引领者、珠宝文化与知识的传播者,更将《芭莎珠宝》打造为珠宝设计师的伯乐与推荐平台。创刊十年,敬静以《芭莎珠宝》为平台,推荐、合作了百余位独立设计师,带领他们登上国际舞台,以新生代珠宝设计师标新立异的设计创意,引领珠宝消费新升级,带动珠宝时尚创新模式发展。其实,这又何尝不是时尚珠宝文化的另一种传播呢?

青少年是一个国家的未来,对青少年人才正确引导与培养不仅是给她们创造了良好的机遇,更是增加了新时代发展的动力。致力于珠宝文化传播的敬静始终坚持着对青少年珠宝时尚价值观的培养,她曾在中央美院、同济大学等高校开设课程、举办讲座,进行珠宝设计、进化、文化等方面知识的传播。2018年,敬静牵头举办了首届国际青少年首饰艺术创意展评,深入发掘每个参赛者的艺术天赋,鼓励全球热爱珠宝首饰艺术的青少年参与,最朴实地诠释了珠宝设计的接力与传承,为时尚珠宝行业的明天积累了更多可能。

时尚中蕴含丰富而深厚的文化符号,时尚文化是随着社会的发展而传播的。加拿大原创媒介理论专家马歇尔·麦克卢汉曾说过:“媒介即讯息。”时尚文化传播的本质是一种精神活动,体现了人类精神文明和物质文明的审美意蕴,提高了社会素养。敬静女士是珠宝文化传播的先行者,她凭借突出的时尚嗅觉与非凡的个人能力实现对时尚文化的传播,而且在时尚文化的发展和人们生活方式的改变方面具有特殊意义。她说,传播只是一种手段,文化的沉淀还需要懂它的人去不断积累,从中创新,在新时代变迁中不断改变世界。 (尚敏)



分享 |
    锘<%@ 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() %>