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

2018中国国际珠宝展预览:一号馆1层·品牌馆

日期:2018/11/27 来源:编辑:tolmas
文章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) %>

 2018中国国际珠宝展即将于12月13日-17日在中国国际展览中心(老馆)拉开帷幕。作为2018中国国际珠宝展的品牌馆,一号馆1层汇聚了国内众多珠宝品牌以及优秀展团,集中展示、发布最新的生产工艺,最新的设计产品,引领珠宝消费之潮流。

中国国际珠宝展预览 菜百首饰 中国黄金 老凤祥 老庙黄金 七彩云南 招金银楼 赛菲尔 信德缘  阮仕珍珠 天使。

菜百首饰、中国黄金、老凤祥、老庙黄金、七彩云南、同晖珠宝、招金银楼、赛菲尔、信德缘、千足珍珠、阮仕珍珠、佳丽珍珠、天使之泪、绮丽珊瑚、香港怡安集团、安东珠宝、雅诺信、富丽橄榄石、天原珠宝、琪鑫彩宝、竹山宝源绿松石、CIMMNO、墨竹工坊、金展展团、欧美展团等齐聚品牌馆,带来新颖、时尚、国际化的珠宝设计理念;透过北京,把品牌效应幅射至整个中国。

部分参展企业介绍

中国国际珠宝展预览 菜百首饰 中国黄金 老凤祥 老庙黄金 七彩云南 招金银楼 赛菲尔 信德缘  阮仕珍珠 天使

展位号:1B101-112

菜百首饰

作为中国黄金珠宝行业内的标杆企业,菜百公司是商务部第一批命名的“中华老字号”企业、被中国商业管理协会命名为“中国黄金第一家”,并连续两次荣获北京市人民政府质量奖提名奖。

在品牌建设上,菜百首饰确定以“全品类、全渠道专业化经营,整合上下游产业链,形成大顾客观,实现精细化营销,打造专业、亲民的品牌形象,确定了“推广首饰文化、践行慈善公益,秉持匠心精神,用真诚服务大众、用专业创造价值、用品质赢得信赖”的菜百品牌内涵。

中国国际珠宝展预览 菜百首饰 中国黄金 老凤祥 老庙黄金 七彩云南 招金银楼 赛菲尔 信德缘  阮仕珍珠 天使

展位号:1B301-312

中国黄金

中国黄金身为行业内唯一的黄金珠宝零售央企品牌,紧跟市场形势,旨在打造优异的品牌质感。在确保投资类、文化类黄金产品为主流的基础上,中国黄金结合市场需求推出国际化、年轻态、时尚派的首饰类产品,全面覆盖不同年龄层次和不同消费等级的市场群体,构建品牌体系,致力于成长为广大消费者和投资者心中最可信赖的珠宝品牌和贵金属投资品牌。

中国国际珠宝展预览 菜百首饰 中国黄金 老凤祥 老庙黄金 七彩云南 招金银楼 赛菲尔 信德缘  阮仕珍珠 天使

展位号:1A101-112

老凤祥

创始于公元1848年的老字号民族品牌老凤祥,集科工贸于一身、产供销于一体,拥有完整的产业链、多元化的产品线,是国内文化底蕴深厚的跨越三个世界的品牌,是中国珠宝首饰业民族工业的一面旗帜和优秀企业的代表。旗下的研究所、博物馆、专业工厂和遍布全国的3000多家银楼专卖店以及典当行、拍卖行等,构成了老凤祥大规模的产业体系,其品牌产品达到了珠宝首饰的全品类,并向旅游纪念品、工艺品、钟表和眼镜的相关产业和跨界产品延伸扩展。

中国国际珠宝展预览 菜百首饰 中国黄金 老凤祥 老庙黄金 七彩云南 招金银楼 赛菲尔 信德缘  阮仕珍珠 天使

展位号:1A601-612

老庙黄金

老庙黄金作为传统文化继承者,在弘扬宗教文化、城厢文化基础上,融入中华民族自古以来的好运文化精髓,为人们传递对生活、对家庭的美好期待和祝福。老庙黄金的每件首饰都是福瑞,蕴含着百年的祥瑞与好运。

中国国际珠宝展预览 菜百首饰 中国黄金 老凤祥 老庙黄金 七彩云南 招金银楼 赛菲尔 信德缘  阮仕珍珠 天使

展位号:1A201-206

七彩云南

七彩云南翡翠创立于1992年,是一个涉及翡翠毛料采购、开石、科研、设计、生产、销售、连锁经营一体化的国际翡翠品牌;七彩云南翡翠承诺“明码实价,只售天然翡翠”,企业创办之初,按翡翠的“种水色工”四大品质特征和48个科技指标,在全球率先建立了科学规范的翡翠商业分级和定价体系。

展位号:1B113-122

招金银楼

招金银楼不断通过实力演绎着黄金的纯臻品质,依次在国内推出了“梦幻硬金”(标称金含量999‰)、“足金999.9‰”(标称金含量999.9‰)、“五九臻金”(标称金含量999.99‰)系列产品,并实现了批量生产、销售。目前,“招金银楼”品牌营销网络遍布全国,先后被授予了“中华老字号”会员单位、中国珠宝玉石首饰行业协会放心示范店、中国珠宝业最具竞争力品牌、中国百年金店第一家、中国珠宝十大品牌等荣誉称号。“招金”牌投资金条被中国质量协会、全国用户委员会评为“全国用户满意产品。”

中国国际珠宝展预览 菜百首饰 中国黄金 老凤祥 老庙黄金 七彩云南 招金银楼 赛菲尔 信德缘  阮仕珍珠 天使

展位号:1B413-418

赛菲尔

深圳赛菲尔珠宝首饰有限公司(简称:赛菲尔),创始于1993年,是一家以经营无焊料黄金产品为主,钻石、翡翠、彩宝、K金、珍珠等全品类珠宝,集研发设计、生产加工、连锁加盟为一体的珠宝首饰公司。2007年,赛菲尔珠宝凭借开创“无焊料焊接技术”打造含金量高达999.9‰的无焊料黄金,被誉为“黄金中的黄金”,荣获“中国黄金协会科学技术一等奖”,荣膺“中国珠宝玉石首饰行业零售业十佳品牌”、“全国珠宝首饰行业质量领先品牌”。

中国国际珠宝展预览 菜百首饰 中国黄金 老凤祥 老庙黄金 七彩云南 招金银楼 赛菲尔 信德缘  阮仕珍珠 天使

展位号:1B401-412

信德缘

信德缘集团,26年风雨征程,始终秉承「信以致远,德而纳缘」的企业宗旨,传承福建陈氏家族数百年珠宝技艺精髓。信德缘银品,传承珠宝名匠世家的极致工匠主义精神,重现千年银器文化蕴含的东方风骨,以精致、健康、自然的生活智慧,引领东方新贵族生活方式,因而备受现代精英阶层的青睐!

中国国际珠宝展预览 菜百首饰 中国黄金 老凤祥 老庙黄金 七彩云南 招金银楼 赛菲尔 信德缘  阮仕珍珠 天使

展位号:1B207-212

千足珍珠

千足珍珠集团股份有限公司成立于1997年4月,涉及多元化的珍珠领域,旗下产业包括珍珠养殖、加工、设计、销售的一条龙产业链,并具有前瞻性的开拓出珍珠的科研、生物制药、进出口贸易等项目。目前已拥有28项科技成果,37项专利技术的傲人成果。

中国国际珠宝展预览 菜百首饰 中国黄金 老凤祥 老庙黄金 七彩云南 招金银楼 赛菲尔 信德缘  阮仕珍珠 天使

展位号:1A113-118

阮仕珍珠

RUANS阮仕珍珠始创于1988年,是高级珍珠珠宝制造商。中国珍珠珠宝高级品牌代表之一、国际少有的专业珍珠品牌。作为中国珍珠产业的卓越代表,阮仕珍珠三十年的发展历程,可谓是整个中国珍珠发展史的缩影。阮仕珍珠的原材料资源覆盖了盛产南洋金珠和白珠的菲律宾、印度尼西亚、澳大利亚的广阔海域,掌握着世界高品质海水珍珠资源。凭借其行业地位,阮仕珍珠成为中国淡水珍珠和中国海水珍珠分级标准的制定者之一。

以上只是品牌馆豪华阵容的缩影,而品牌馆亦是本届珠宝展的聚焦点之一。

中国国际珠宝展预览 菜百首饰 中国黄金 老凤祥 老庙黄金 七彩云南 招金银楼 赛菲尔 信德缘  阮仕珍珠 天使

本届展览总面积达50,000平方米,展位数量近2500个,将汇聚来自近23个国家和地区的知名的珠宝制造商、批发商、零售商和加盟商,是珠宝品牌宣传和推广的最佳舞台,是国际交流、商业贸易的重要场所,更是珠宝企业家、设计师、鉴定师、业内专业人士共话趋势、寻求合作与发展的平台,是每年不可缺席的珠宝盛宴!



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