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

重磅彩蛋|中国珠宝行业创新力量震撼来袭

日期:2018/11/28 来源:编辑: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珠宝行业创新展区(新产品、新工艺、新技术)”

中宝协 中国国际珠宝展 文创 设计

中宝协 中国国际珠宝展 文创 设计

中宝协 中国国际珠宝展 文创 设计

中宝协为促进行业创新,一直以来坚持鼓励企业为主体、市场为导向、产学研深度融合的技术创新体系,“珠宝行业创新展(新产品、新工艺、新技术)”作为每年中国国际珠宝展的重头戏,在促进科技成果转化、倡导知识产权创造、创新驱动发展等方面集中展示,让更多的业内外人士全方面了解和感受科技时代的珠宝魅力。

中宝协 中国国际珠宝展 文创 设计

中国国际珠宝展展览期间,

相信每一位有极高声望的科技珠宝人,

都不愿错过这个一展芳华的绝好机会。

只要你敢想敢做敢挑战,

中宝协就会为你提供更大的舞台!

2018年展区效果图

参展方式

联络:中宝协行业发展部

展区位置:中国国际展览中心(老馆)

👉5号文创设计馆

(北京市朝阳区北三环东路6号)

展示时间:2018年12月13~17日

项目咨询请联络:李甜鸽、孟琳、陈杞

电话: 010-58276064 、010-58276073

微信:13910813126、13811151071、a17710587062



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