<%
function todaynews(Table,num,cateID)
sql="select * from "&Table&" where cateID="&cateID&" order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
todaynews="
还 没 有 任 何 更 新
"
else
do while not rs.eof
nowNum = nowNum+1
if nowNum > num then exit do
id=rs("id")
postdate=rs("pubdate")
urlstring="/content/"&rs("newsdir")&"/"&rs("filename")
todaynews=todaynews & ""& rs("title")&" "
if len(rs("title_s"))>100 then
todaynews=todaynews& left(rs("title_s"),100)&"...[详细]"
else
todaynews=todaynews& rs("title_s")&"[详细]"
end if
todaynews=todaynews&"
"
rs.movenext
loop
end if
rs.close
End function
Set Adv =New AdvList
Set MyNews =New IndexNews
Set NewsClass =New News
Hot_News =MyNews.showpicNews(Table,1,2,Url,"true")
showhotNews =MyNews.showNews(Table,1,2,"hot",Url)
News_World =MyNews.showNews(Table,10,3,"big",Url)
News_Shiye =MyNews.showNews(Table,10,4,"big",Url)
News_Taihai =MyNews.showNews(Table,10,5,"big",Url)
News_Person =MyNews.showNews(Table,10,6,"big",Url)
News_knowledge =MyNews.showNews(Table,5,7,"small",Url)
News_hai =MyNews.showNews(Table,5,8,"small",Url)
News_wai =MyNews.showNews(Table,5,9,"small",Url)
News_zaping =MyNews.showNews(Table,5,10,"small",Url)
Today_News =todaynews(Table,2,1)
Set Adv =Nothing
Set MyNews =Nothing
Set NewsClass =Nothing
Conn.Close
Set Conn=Nothing
%>
分析展望_中国国际战略研究网
