<%
for i=1 to RecordCount
E_typeid=Arraytyid(i)
E_typename=ArraytyName(i)
%>
<div class="art_echsys float_left">

<DIV class="EC_LM_Style float_left">
<%=E_typename%></DIV>
<div class="more_ec float_right"><a href="wygkcn_Type.asp?E_typeid=<%=E_typeid%>">更多>><a></div>
<div class="clear_float"></div>
	<%
set rs=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
		rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where E_typeid=" & E_typeid &" and Checked=1 and picnews=1 and goodnews=1  and picname is not null order by EC_ArticleID DESC"
	end if
	if Request.cookies(echsys)("key")="" then
		rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 and newslevel=0 and picnews=1  and goodnews=1 and picname is not null) order by EC_ArticleID DESC"
	end if
	if Request.cookies(echsys)("key")="selfreg" then
		if Request.cookies(echsys)("reglevel")=3 then
			rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 and picnews=1 and goodnews=1  and picname is not null) order by EC_ArticleID DESC"
		end if
		if Request.cookies(echsys)("reglevel")=2 then
			rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 and picnews=1 and goodnews=1  and picname is not null) order by EC_ArticleID DESC"
		end if
		if Request.cookies(echsys)("reglevel")=1 then
			rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 and picnews=1 and picname is not null) order by EC_ArticleID DESC"
		end if
	end if
else
	rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where E_typeid=" & E_typeid &" and Checked=1 and picnews=1 and goodnews=1  and picname is not null order by EC_ArticleID DESC"
end if
rs.Open rs.Source,conn,1,1
if rs.EOF then
	Response.Write "<img src='images/notopic.gif' width=60 border=0 height=40>"
else
'while not rs.EOF
title=rs("title")
fileExt=lcase(getFileExtName(rs("picname")))
%>
<div class="ecart_pic float_left">

                          <a target="_blank" href="wygkcn_ShowArticle.asp?EC_ArticleID=<%=rs("EC_ArticleID")%>" title="<%=htmlencode4(title)%>">
                          <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                          <img src="<%=FileUploadPath & rs("picname")%>" width="80" border="0" style=border-color:#ffffff height="50"> </a>
                          <%end if%>
                          <%if fileext="swf" then%>
                          <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="80" height="60">
                            <param name="movie" value="<%=FileUploadPath & rs("picname")%>">
                            <param name="quality" value="high">
                            <param name="Play" value="-1">
                            <param name="Loop" value="0">
                            <param name="Menu" value="-1">
                            <embed src="<%=FileUploadPath & rs("picname")%>" width="80" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash"></embed>
                          </object>
                          <%end if%>
                       				
</div>
<div class="ecart_text float_right">

<div class="art_echsys_title">
<a target="_blank" href="wygkcn_ShowArticle.asp?EC_ArticleID=<%=rs("EC_ArticleID")%>" title="<%=htmlencode4(title)%>"> <%=CutStr(htmlencode4(rs("title")),28)%></a>
</div>

<div class="art_echsys_cnt">
<%=CutStr(nohtml(rs("Content")),60)%>
</div>

</div>
<%
end if
rs.close
set rs=nothing
%>		
<div class="clear_float"></div>
<ul class=list>
<%  dim rs3
	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 " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1) order by EC_ArticleID DESC"
		end if
		if Request.cookies(echsys)("key")="" then
			rs3.Source="select top " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1) 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 " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 ) order by EC_ArticleID DESC"
			end if
			if Request.cookies(echsys)("reglevel")=2 then
				rs3.Source="select top " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 ) order by EC_ArticleID DESC"
			end if
			if Request.cookies(echsys)("reglevel")=1 then
				rs3.Source="select top " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 ) order by EC_ArticleID DESC"
			end if
		end if
	else
		rs3.Source="select top " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1) order by EC_ArticleID DESC"
	end if
	rs3.Open rs3.Source,conn,1,1
	while not rs3.EOF
		newsurl="wygkcn_ShowArticle.asp?EC_ArticleID=" & rs3("EC_ArticleID")
		newswwwurl=rs3("titleface")
		fileExt=lcase(getFileExtName(rs3("picname")))
		if showyear=1 then
			datetime="(" & year(rs3("UpdateTime"))  &"."& Month(rs3("UpdateTime"))  &"."& Day(rs3("UpdateTime")) &")"
		else
			datetime="("& Month(rs3("UpdateTime"))  &"."& Day(rs3("UpdateTime")) &")"
		end if
		if rs3("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

		%>
<li>
<span><%=datetime%></span>·<a href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> <font color="<%=rs3("titlecolor")%>"> <%=CutStr(htmlencode4(rs3("title")),30)%> </font> </a><%=img%>
<!--标题后评论提示-->
<% if rs3("titlesize")>=1 then %>
<A  HREF="<%=path%>Review.asp?EC_ArticleID=<%=rs3("EC_ArticleID")%>" target="_blank" ><font color=red>评</font></A>
<%end if %>

</li>
<%
rs3.MoveNext
wend
%>
</ul>

</div>
<%i=i+1
E_typeid=Arraytyid(i)
E_typename=ArraytyName(i)
if i<=RecordCount then
%>
<div class="art_echsys float_right">
<DIV class="EC_LM_Style float_left">
<%=E_typename%></DIV>
<div class="more_ec float_right"><a href="wygkcn_Type.asp?E_typeid=<%=E_typeid%>">更多>><a></div>
<div class="clear_float"></div>
	<%
set rs=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
		rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where E_typeid=" & E_typeid &" and Checked=1 and picnews=1 and goodnews=1  and picname is not null order by EC_ArticleID DESC"
	end if
	if Request.cookies(echsys)("key")="" then
		rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 and newslevel=0 and picnews=1  and goodnews=1 and picname is not null) order by EC_ArticleID DESC"
	end if
	if Request.cookies(echsys)("key")="selfreg" then
		if Request.cookies(echsys)("reglevel")=3 then
			rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 and picnews=1 and goodnews=1  and picname is not null) order by EC_ArticleID DESC"
		end if
		if Request.cookies(echsys)("reglevel")=2 then
			rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 and picnews=1 and goodnews=1  and picname is not null) order by EC_ArticleID DESC"
		end if
		if Request.cookies(echsys)("reglevel")=1 then
			rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 and picnews=1 and picname is not null) order by EC_ArticleID DESC"
		end if
	end if
else
	rs.Source="select top 1 * from "& db_wygkcn_Article_Table &" where E_typeid=" & E_typeid &" and Checked=1 and picnews=1 and goodnews=1  and picname is not null order by EC_ArticleID DESC"
end if
rs.Open rs.Source,conn,1,1
if rs.EOF then
	Response.Write "<img src='images/notopic.gif' width=60 border=0 height=40>"
else
'while not rs.EOF
title=rs("title")
fileExt=lcase(getFileExtName(rs("picname")))
%>
<div class="ecart_pic float_left">

                          <a target="_blank" href="wygkcn_ShowArticle.asp?EC_ArticleID=<%=rs("EC_ArticleID")%>" title="<%=htmlencode4(title)%>">
                          <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                          <img src="<%=FileUploadPath & rs("picname")%>" width="80" border="0" style=border-color:#ffffff height="50"> </a>
                          <%end if%>
                          <%if fileext="swf" then%>
                          <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="80" height="60">
                            <param name="movie" value="<%=FileUploadPath & rs("picname")%>">
                            <param name="quality" value="high">
                            <param name="Play" value="-1">
                            <param name="Loop" value="0">
                            <param name="Menu" value="-1">
                            <embed src="<%=FileUploadPath & rs("picname")%>" width="80" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash"></embed>
                          </object>
                          <%end if%>
                       				
</div>
<div class="ecart_text float_right">

<div class="art_echsys_title">
<a target="_blank" href="wygkcn_ShowArticle.asp?EC_ArticleID=<%=rs("EC_ArticleID")%>" title="<%=htmlencode4(title)%>"> <%=CutStr(htmlencode4(rs("title")),28)%></a>
</div>

<div class="art_echsys_cnt">
<%=CutStr(nohtml(rs("Content")),60)%>
</div>

</div>
<%
end if
rs.close
set rs=nothing
%>		
<div class="clear_float"></div>
<ul class=list>
<%  
	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 " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1) order by EC_ArticleID DESC"
		end if
		if Request.cookies(echsys)("key")="" then
			rs3.Source="select top " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1) 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 " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 ) order by EC_ArticleID DESC"
			end if
			if Request.cookies(echsys)("reglevel")=2 then
				rs3.Source="select top " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 ) order by EC_ArticleID DESC"
			end if
			if Request.cookies(echsys)("reglevel")=1 then
				rs3.Source="select top " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1 ) order by EC_ArticleID DESC"
			end if
		end if
	else
		rs3.Source="select top " & index_top_news & " * from "& db_wygkcn_Article_Table &" where (E_typeid=" & E_typeid &" and Checked=1) order by EC_ArticleID DESC"
	end if
	rs3.Open rs3.Source,conn,1,1
	while not rs3.EOF
		newsurl="wygkcn_ShowArticle.asp?EC_ArticleID=" & rs3("EC_ArticleID")
		newswwwurl=rs3("titleface")
		fileExt=lcase(getFileExtName(rs3("picname")))
		if showyear=1 then
			datetime="(" & year(rs3("UpdateTime"))  &"."& Month(rs3("UpdateTime"))  &"."& Day(rs3("UpdateTime")) &")"
		else
			datetime="("& Month(rs3("UpdateTime"))  &"."& Day(rs3("UpdateTime")) &")"
		end if
		if rs3("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

		%>
<li>
<span><%=datetime%></span>·<a href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> <font color="<%=rs3("titlecolor")%>"> <%=CutStr(htmlencode4(rs3("title")),30)%> </font> </a><%=img%>
<!--标题后评论提示-->
<% if rs3("titlesize")>=1 then %>
<A HREF="<%=path%>Review.asp?EC_ArticleID=<%=rs3("EC_ArticleID")%>" target="_blank" ><font color=red>评</font></A>
<%end if %>

</li>
<%
rs3.MoveNext
wend
%>
</ul>

</div>
<%end if%>
<div class=clear_float></div>
<%
next
rs3.close
set rs3=nothing
%>
