<% Set rs=Server.CreateObject("ADODB.Recordset") rs.open "select * from zjdd_wzgl where target='电大动态' order by id desc",conn,1,3 If not rs.eof then for i=1 to 4 if len(rs("title"))>19 then title=left(rs("title"),19)+"…" else title=rs("title") end if if len(rs("date"))=10 then data=right(rs("date"),5) elseif len(rs("date"))=9 then data=right(rs("date"),4) elseif len(rs("date"))=8 then data=right(rs("date"),3) end if data=replace(data,"-","月")&"日" %> <% rs.movenext if rs.eof then exit for next End If rs.close set rs=nothing %>   " target="_blank" class="td"><%=title %> <% If (date()-rs("date"))<=10 Then %> <% End If %>