Question

asp新闻标题加NEW

<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 6 ID,Title,ClassID,DateAndTime,TitleFontColor,IsHot from Yao_Article Where yn=0 and classid=6 order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
If Html=1 then
Response.Write("<li style=""cursor:hand""><a href="""&SitePath&"List.asp?ID="&rs1("ID")&""" target=""_blank""></li>")
else
Response.Write("<li style=""cursor:hand""><a href="""&SitePath&"Html/?"&rs1("ID")&".html"" target=""_blank""></li>")
end if
If rs1("TitleFontColor")<>"" then
Response.Write("<font style=""color:"&rs1("TitleFontColor")&";cursor:hand"">"&left(rs1("Title"),Z)&"</font></a>")
else
Response.Write(" <span class=""top"" style=""cursor:hand"">"&left(rs1("Title"),28)&"</span> </a>")
end if
Response.Write("<span class=""time""><style=""color:#cccccc;"" align=""right"">"&FormatDate(rs1("DateAndTime"),3)&"</span>")
rs1.movenext
loop
else
Response.Write("还没有!")
end if
rs1.close
set rs1=nothing
%>
我是新手，刚刚的那段代码是我现在网站上新闻的ASP代码？把加上标题新闻new的代码加上，发上来，正确，完成我的工作，再加100分！

我的QQ，942149605，加上了但是还有点问题啊，New把原来的日期挤下去了

还有New是要头2天的新闻才加的，写上判断啊！

Answer 1

主标题从肩题就可以看出整个新闻要说的问题了，墓园暴利一直为人们所敢怒不敢言，这条新闻不仅为人们代言说了这个问题，而且尖锐地道出了老百姓的心声-----人“死不起”了，愤怒与谴责之意活然而出，让人百般玩味。

3．《“徒儿” 休得无礼》（摄影报道）（华商报 2004/08/11 5版）
西安名胜大雁塔南侧有尊高大的玄奘铜像，经常有孩童爬到“唐僧”身上玩耍，周围游客缤纷，这等行为甚是不雅。这个摄影报道的大照片就是这样一个随意的场景，但因为标题的传神，而让报道的分量得以提高，报道的意图也因为这“借体”教化，而更易实现

Answer 2

<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 6 ID,Title,ClassID,DateAndTime,TitleFontColor,IsHot from Yao_Article Where yn=0 and classid=6 order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
If Html=1 then
Response.Write("<li style=""cursor:hand""><a href="""&SitePath&"List.asp?ID="&rs1("ID")&""" target=""_blank""></li>")
else
Response.Write("<li style=""cursor:hand""><a href="""&SitePath&"Html/?"&rs1("ID")&".html"" target=""_blank""></li>")
end if
If rs1("TitleFontColor")<>"" then
Response.Write("<font style=""color:"&rs1("TitleFontColor")&";cursor:hand"">"&left(rs1("Title"),Z)&"</font>new</a>")
else
Response.Write(" <span class=""top"" style=""cursor:hand"">"&left(rs1("Title"),28)&"</span>new</a>")
end if
Response.Write("<span class=""time""><style=""color:#cccccc;"" align=""right"">"&FormatDate(rs1("DateAndTime"),3)&"</span>")
rs1.movenext
loop
else
Response.Write("还没有!")
end if
rs1.close
set rs1=nothing
%>

加上了!