| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 527 人关注过本帖
标题:求助,增加显示新文章标记功能
只看楼主 加入收藏
dsqdsqdsq
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2018-2-8
  问题点数:0  回复次数:0   
求助,增加显示新文章标记功能
function DeNews(CID,list,num,Sut)
  dim rs,sql,i,InfoName,classname
    set rs = server.createobject("adodb.recordset")
    sql="select id,ClassId,TopID,InfoName,hits,addtime from zhi_rui_g_io where ClassId="&CID&" or TopID="&CID&" and ViewFlag=1 order by id desc"
    rs.open sql,conn,1,1
    response.write"<table width='99%' border='0' cellspacing='0' cellpadding='0'>"
    if rs.bof and rs.eof then
    response.write "<li>暂无相关信息</li>"
    else
    response.write "<tr>"
    for i=1 to list
    if rs.eof then exit for
    InfoName=Left(rs("InfoName"),num)
    response.write "<td><a href='info_Show.asp?InfoId="&rs("ID")&"&ClassId="&rs("ClassId")&"&Topid="&rs("TopID")&"'>"&InfoName&"</a></td>"
    response.write "<td width='8%'>"&FormatDate(rs("AddTime"),3)&"</td>"
    if i mod Sut = 0 then
    response.write "</tr>"
    end if
     rs.movenext
    next
    end if
    response.write"</table>"
    rs.close
end function
===============================================
如何增加显示新文章标记的功能
2018-02-08 16:50







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021664 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved