 |
<%dim sql,news_title,rs
sql="select top 1 news_id,news_title from y_newsImg where news_type='a' order by news_date desc"
set rs=userinfo_conn.execute (sql)
news_title=rs("news_title")
%>
|
 |
 |
|
|
|
|
<%sql="select top 8 news_id,news_title,news_date from y_news order by news_date desc"
set rs=userinfo_conn.execute(sql)
do while not rs.eof
newsdate=split(rs("news_date"),"-")
Response.Write ""& rs("news_title") &"(" & newsdate(1) &"-"&left(newsdate(2),8)& ")"
rs.MoveNext
loop
rs.close %>
|
|
