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

幻镜森林亮相上海展 金伯利钻石邀你开启治愈心灵之旅

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

水泥城市中奔忙的人们

是否曾幻想过回归幻镜森林

逃离都市

开启一场治愈心灵之旅

幻镜森林亮相上海展 金伯利钻石邀你开启治愈心灵之旅

这个忙着造梦的治愈系钻石艺术家

最近正尝试着用自己的力量温暖你我

幻镜森林亮相上海展 金伯利钻石邀你开启治愈心灵之旅

幻镜森林亮相上海展 金伯利钻石邀你开启治愈心灵之旅

幻镜森林亮相上海展 金伯利钻石邀你开启治愈心灵之旅

用镜面、自然与线条

构筑出富有温暖力量的幻镜森林

这里有自然梦境,有丛林使者

有怀揣神秘故事的钻石树洞

……

千枚克拉钻珍藏于此

为造访者们带来更多惊喜

更有“时光之眼”破世而来,这颗诞生于古老神秘的非洲大陆,西非玫瑰安哥拉,重51.71克拉,颜色D色,净度FL,切工3EX的梨形珍钻,承载了由古至今无数瑰丽奔放的幻想,无论时间更迭,光年迢迢,纯净、璀璨的梨形珍钻永远如同上帝沉静的双眸,折射出万千种的可能。

幻镜森林亮相上海展 金伯利钻石邀你开启治愈心灵之旅

展讯

上海国际珠宝首饰展览会

上海世博展览馆 金伯利钻石展厅

(展位号:1L01-12)

时间:2019年5月8日——5月12日

# 探索幻镜森林#

打卡“幻镜森林”展厅,赢取森系伴手礼

赶赴幻镜之约,发掘限量版独家记忆

幻镜森林亮相上海展 金伯利钻石邀你开启治愈心灵之旅



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