|
|
| |
| 2006年南半球采摘动态 |
| |
<%
sql = "select top 12 news_id,news_title,news_time,news_feeflag from news_news where news_id in (select keystring_news_id from news_keystring where keystring_keystring='2006南半球') order by news_time desc"
Set Rs=Conn1.Execute (SQL)
If not Rs.EOF Then
Do while not Rs.EOF
select case Rs("news_feeflag")
case "0"
colorstr=" "
case "1"
colorstr=" "
case "2"
colorstr=" "
end select
%>
| <%= colorstr %> "><%= Rs("news_title") %> (<%= Month(Rs("news_time")) %>-<%= Day(Rs("news_time")) %>)
|
<%
Rs.MoveNext
Loop
End if
Rs.Close
Set Rs=Nothing
%>
|
| |
|
|
|