
<!--#include file="function.asp"-->	
<div id=EC_DaoDu>

<div id=picture Class="EC_slide_bg">
<UL class="EC_GovDir_Menu_style EC_Pic_Menu_style ">
  <LI class=selectd id=S_MenuMy_71 onclick="openurl('wygkcn_PhotoNews.asp')" onmouseover="Show_SubLmy(7,1); return false">图片报道</LI>
  <LI id=S_MenuMy_72 onclick="openurl('#')" onMouseOver="Show_SubLmy(7,2); return false">今日视频</LI>
</UL>


<DIV id=S_ContMy_71>
<script type="text/javascript">
<%
set rs3=server.CreateObject("ADODB.RecordSet") 
rs3.Source="select top 5 *  from "& db_wygkcn_Article_Table &" where  picnews=1 and goodnews=1 and Checked=1 and picname is not null order by EC_ArticleID DESC"
rs3.Open rs3.Source,conn,1,1  
For i=1 to rs3.RecordCount
 
response.Write "imgUrl"&i&"=""uploadfile/"&rs3("picname")&""";"&vbCrLf 
response.Write "imgtext"&i&"="""&CutStr(htmlencode4(rs3("title")),40)&""""&vbCrLf 
response.Write "imgLink"&i&"=escape(""wygkcn_ShowArticle.asp?EC_ArticleID="&rs3("EC_ArticleID")&""");"&vbCrLf 
rs3.movenext 
if i=5 then exit for ''那里的代码只定义了5个循环所以数据库里的只取5条就可以了 
next 

%>
 var focus_width=244
 var focus_height=180
 var text_height=20
 var swf_height = focus_height+text_height
 
 var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4+"|"+imgUrl5
 var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4+"|"+imgLink5
 var texts=imgtext1+"|"+imgtext2+"|"+imgtext3+"|"+imgtext4+"|"+imgtext5
 
 document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
 document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/focus.swf"><param name="quality" value="high"><param name="bgcolor" value="#EEFAFF">');
 document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
 document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
 document.write('<embed src="images/focus.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#EEFAFF" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); 
 document.write('</object>');
  </script>     
</div>

<DIV id=S_ContMy_72 style="DISPLAY: none">
<!--#include file="wygkcn_playmove.asp"-->
</div>
</div>



<div class=tt_tj>
<div class=tiaotiao>
<%
Set Rs99=Conn.Execute("select top 1 * from "& db_wygkcn_Article_Table &" where daodu=1 and  Checked=1 order by EC_ArticleID desc")
if rs99.bof and rs99.eof then
response.write "暂无头条" 
else
newsurl="wygkcn_ShowArticle.asp?EC_ArticleID=" & Rs99("EC_ArticleID")
newswwwurl=Rs99("titleface")
title=trim(rs99("title"))
%>
<a href="<%if Rs99("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=CutStr(nohtml(rs99("title")),100)%>" target="_blank"> <font color="<%=Rs99("titlecolor")%>"> <%=CutStr(htmlencode4(Rs99("title")),22)%> </font> </a>
<%
end if 
rs99.close
set rs99=nothing
%>
</div>
<div class=tj>
<ul class=list>

<% 
dim rs9
	set rs9=server.CreateObject("ADODB.RecordSet")
	if  uselevel=1 then
		if Request.cookies(echsys)("key")="super" or Request.cookies(echsys)("key")="typemaster" or Request.cookies(echsys)("key")="bigmaster" or Request.cookies(echsys)("key")="smallmaster" or Request.cookies(echsys)("key")="check" then
			Rs9.Source="select top 8 * from "& db_wygkcn_Article_Table &" where Checked=1 and goodnews=1 order by EC_ArticleID desc"
		end if
		if Request.cookies(echsys)("key")="" then
			Rs9.Source="select top 8 * from "& db_wygkcn_Article_Table &" where Checked=1 and goodnews=1 order by EC_ArticleID desc"
		end if
		if Request.cookies(echsys)("key")="selfreg" then
			if Request.cookies(echsys)("reglevel")=3 then
				Rs9.Source="select top 8 * from "& db_wygkcn_Article_Table &" where Checked=1 and goodnews=1 order by EC_ArticleID desc"
			end if
			if Request.cookies(echsys)("reglevel")=2 then
				Rs9.Source="select top 8 * from "& db_wygkcn_Article_Table &" where Checked=1 and goodnews=1 order by EC_ArticleID desc"
			end if
			if Request.cookies(echsys)("reglevel")=1 then
				Rs9.Source="select top 8 * from "& db_wygkcn_Article_Table &" where Checked=1 and goodnews=1 order by EC_ArticleID desc"
			end if
		end if
	else
		Rs9.Source="select top 8 * from "& db_wygkcn_Article_Table &" where Checked=1 and goodnews=1 order by EC_ArticleID desc"
	end if
rs9.Open rs9.Source,conn,1,1

If Rs9.EOF Then
Response.Write "<li>·暂无</li>"
End if
Do While Not Rs9.EOF
        newsurl="wygkcn_ShowArticle.asp?EC_ArticleID=" & Rs9("EC_ArticleID")
		newswwwurl=Rs9("titleface")
		fileExt=lcase(getFileExtName(Rs9("picname")))
		if showyear=1 then
			datetime="(" & year(Rs9("UpdateTime"))  &"."& Month(Rs9("UpdateTime"))  &"."& Day(Rs9("UpdateTime")) &")"
		else
			datetime="("& Month(Rs9("UpdateTime"))  &"."& Day(Rs9("UpdateTime")) &")"
		end if
		if Rs9("picnews")=1 then
			if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
			img="<font class=pic_word>[图]</font>"
				else
			img="<font class=pic_word>[媒]</font>"
			end if
		else
			img=""
		end if

title=trim(rs9("title"))
%>

<li>
<span><%=datetime%></span>·<a href="<%if Rs9("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=CutStr(nohtml(rs9("Content")),100)%>" target="_blank"> <font color="<%=Rs9("titlecolor")%>"> <%=CutStr(htmlencode4(Rs9("title")),38)%> </font> </a><%=img%>
<%if year(rs9("updatetime"))=year(date()) and month(rs9("updatetime"))=month(date()) and day(rs9("updatetime"))=day(date()) then%>
<img src="images/new.gif">
<%end if%>
</li>
<%
Rs9.movenext
Loop
Rs9.Close
Set Rs9=Nothing
%>
</ul>
</div>
</div>
<div class="clear_float"></div>
</div>