<div class=newpic_echsyscom>
<div class="ech_ec_title_bg"><span class="float_right"><a href="wygkcn_PhotoNews.asp" target="_blank">更多>></a></span></div>
<div class=pic_t>
<%
set rs3=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
		rs3.Source ="select top " & top_img & " * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and picname<>'null' order by EC_ArticleID DESC"
	end if
	if Request.cookies(echsys)("key")="" then
		rs3.Source ="select top " & top_img & " * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and newslevel=0  and picname<>'null' order by EC_ArticleID DESC"
	end if
	if Request.cookies(echsys)("key")="selfreg" then
		if Request.cookies(echsys)("reglevel")=3 then
			rs3.Source ="select top " & top_img & " * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and picname<>'null' order by EC_ArticleID DESC"
		end if
		if Request.cookies(echsys)("reglevel")=2 then
			rs3.Source ="select top " & top_img & " * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and picname<>'null' order by EC_ArticleID DESC"
		end if
		if Request.cookies(echsys)("reglevel")=1 then
			rs3.Source ="select top " & top_img & " * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and picname<>'null' order by EC_ArticleID DESC"
		end if
	end if
else
	rs3.Source ="select top " & top_img & " * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and picname<>'null' order by EC_ArticleID DESC"
end if
rs3.Open rs3.Source,conn,3,3
if not rs3.EOF then%>
<div class=scrollpic id='demo'><!--滚动区的高度和宽度-->
<table align='center' cellpadding='0' cellspace='0' border='0'>
<tr>
	<td id='demo1' valign='top'>
		<table width='100%' cellpadding='0' cellspacing='0' border='0' align='center'>
		<tr valign='top'>
<%
while not rs3.EOF
fileExt=lcase(getFileExtName(rs3("picname")))
%>
			<td align="center">
		<div class="pic_cont" onmouseover="this.className='pic_cont pic_cont_Hover'" onmouseout="this.className='pic_cont'" >				
		<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
		<a  href='wygkcn_ShowArticle.asp?EC_ArticleID=<%=rs3("EC_ArticleID")%>' target=_blank title='<%=rs3("title")%>'><img  src='<%=FileUploadPath & rs3("picname")%>' width='120' height="90" border="0"></a>					
		<%else if fileext="swf" then%>
		<a  href='wygkcn_ShowArticle.asp?EC_ArticleID=<%=rs3("EC_ArticleID")%>' target=_blank title='<%=rs3("title")%>'>
							<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='120' height='90'>
								<param name=movie value='<%=FileUploadPath & rs3("picname")%>'>
								<param name=quality value=high>
								<param name='Play' value='-1'>
								<param name='Loop' value='0'>
								<param name='Menu' value='-1'>
								<param name='wmode' value='transparent'>
								<embed src='<%=FileUploadPath & rs3("picname")%>' width='120' height='90' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
							</object></a>
		<%
		 end if
		 end if
		 %>						
	  	</div>
</td>
<%
rs3.MoveNext
wend
%>
		</tr>
	</table>
	</td>
	<td id=demo2 valign=top></td>
</tr>
</table>
</div>
<%if top_img >4 then%>
<script>
var speed=30
demo2.innerHTML=demo1.innerHTML
function Marquee1(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar1=setInterval(Marquee1,speed)
demo.onmouseover=function() {clearInterval(MyMar1)}
demo.onmouseout=function() {MyMar1=setInterval(Marquee1,speed)}
</script>
<%
End if
Else
Response.Write "暂 无 最 新 图 文"
End if
Rs3.Close
Set Rs3=Nothing
%>
</div>
</div>