<% Set rc=Server.CreateObject("ADODB.Recordset") sql="Select top 4 * from WEBNEWS where News_Class = '"& "邮件营销" &"' order by ID desc" rc.open sql,conn,1,1 %> <%if rc.bof then%>暂时没有该类信息！<%else%><%do while not rc.eof %> <% rc.movenext loop %><%end if%>

" target="_blank"><%if len(rc("News_Title")) > 14 then Response.write left(rc("News_Title"),14)&"..." else Response.write rc("News_Title") end if%>