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

业内资讯TOP10
    <%@ 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() %>