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
===============================================
如何增加显示新文章标记的功能