第一珠宝精品导购互动平台 投稿
-高级珠宝,贵族生活
奢华珠宝关键字:钻石 奢华 限量 系列 奢华珠宝

奢华资讯TOP5
    <%@ Page Language="vb" AutoEventWireup="false" src="include/db.vb" Inherits="db"%> <%@ OutputCache Duration="60" VaryByParam="cid" VaryByCustom="minorversion" %> <% Dim cid As String = strtoint(Request("cid"), 1) Dim count As Integer = strtoint(Request("count"), 5) Dim pbnamearray As Array Dim ChannelLevel As String Dim i As Integer = 0 opendb() rs = query("select ChannelLevel from webchannel where channelid=" & cid) If rs.Read() Then ChannelLevel = rs("ChannelLevel") End If rs.Close() rs = query("select distinct top " & count & " tt.Caption,tt.HtmlUrl2,tt.Hits,tt.lastweekviews,tt.weekviews,tt.lastdayviews from ArticleOfChannel t inner join ArticlePage_TABLE tt on t.ArticlePageID=tt.ArticlePageID where t.ChannelID in (select channelid from webchannel where ChannelLevel like '" & ChannelLevel & "%') and htmlurl<> '' order by lastweekviews desc,weekviews desc,lastdayviews desc,hits desc") While rs.Read() %>
  • " title="<%=rs("Caption")%>" target="_blank"><%=Replace(strleft(rs("Caption"), 40), "'", "\'")%>
  • <% End While rs.close() closedb() %>
互动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() %>
最受关注的品牌BRAND
    锘<%@ Page Language="vb" AutoEventWireup="false" src="include/db.vb" Inherits="db"%> <%@ OutputCache Duration="60" VaryByParam="*" VaryByCustom="minorversion" %> <% Dim count As Integer = strtoint(Request("count"), 16) 'Dim cid As Integer = strtoint(Request("cid"), 0) Dim materialid As Integer = strtoint(Request("mid"), 0) Dim channel As Integer = strtoint(Request("cid"), 0) Dim btype As Integer = strtoint(Request("btype"), 0) Dim designer As String = Request("designer") Dim sqlstr As String = " 1=1 " If channel > 0 Then sqlstr = sqlstr & " and channels like '%" & channel & "%'" ElseIf materialid > 0 Then sqlstr = sqlstr & " and pbclass like '%," & materialid & ",%'" End If If btype >= 0 And btype < 3 Then sqlstr = sqlstr & " and btype=" & btype ElseIf btype = 3 Then sqlstr = sqlstr & " and btype=" & btype End If If btype <> 1 Then sqlstr = sqlstr & " and orderid>0" End If If designer = "true" Then sqlstr = sqlstr & " and isdesignerbrand=1" End If opendb2() rs2 = query2("select top " & count & " domain,PBAutoID,PBName,PBZBLogo from productbrand where " & sqlstr & " ORDER BY orderid DESC,lastweekviews DESC") While rs2.read() %>
  • /" target="_blank" title="<%=rtrim(rs2("PBName"))%>"><%=Replace(strleft(rs2("PBName"), 30), "'", "\'")%>
  • <% End While rs2.close() closedb2() %>
奢华首饰廊LUXURY
    锘<%@ Page Language="vb" AutoEventWireup="false" src="include/db.vb" Inherits="db"%> <%@ OutputCache Duration="60" VaryByParam="channel" VaryByCustom="minorversion" %> <% Dim colnum As Integer = 1 Dim materialid As Integer = strtoint(Request("materialid"), 0) Dim count As Integer = strtoint(Request("count"), 3) Dim channel, sqlstr As String channel = strtoint(Request("channel"), 0) Dim designer As String = Request("designer") If channel > 0 Then sqlstr = "where visitable=1 and orderid>0 and (visible=1 or visible is null) and PAttrib10 like'%" & channel & "%'" ElseIf materialid > 0 Then sqlstr = "where visitable=1 and orderid>0 and (visible=1 or visible is null) and '" & materialid & "' in (PAttrib2)" Else sqlstr = "where visitable=1 and orderid>0 and (visible=1 or visible is null)" End If If designer = "true" Then sqlstr = sqlstr & " and isdesignerbrand=1" End If opendb2() rs2 = query2("select TOP " & count & " PAutoID,PName,PPicture,PMeaning,pbname,PAttrib1,PHits from products inner join productbrand on PBrandID=pbautoid left join productseries on pseriesid=psautoid " & sqlstr & " order by PHits desc") While rs2.read() %>
  • <%=ConvertNumToChzn(rs2("PHits"))%>浜烘祻瑙
  • <% End While rs2.close() closedb2() %>