<!--热门信息排名开始-->
<div class="EC_ECHotNews">
<div class="ECHotNews_title"></div>
<DIV>
<ul class="list">
<%
set Rs_hot=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_hot.Source="select top "& index_top_txt &" * from "& db_wygkcn_Article_Table &" where  Checked=1 order by click DESC,EC_ArticleID desc"
end if
if Request.cookies(echsys)("key")="" then
Rs_hot.Source="select top "& index_top_txt &" * from "& db_wygkcn_Article_Table &" where (Checked=1 and newslevel=0) order by click DESC,EC_ArticleID desc"
end if
if Request.cookies(echsys)("key")="selfreg" then
	if Request.cookies(echsys)("reglevel")=3 then
Rs_hot.Source="select top "& index_top_txt &" * from "& db_wygkcn_Article_Table &" where (Checked=1 ) order by click DESC,EC_ArticleID desc"
	end if
	if Request.cookies(echsys)("reglevel")=2 then
Rs_hot.Source="select top "& index_top_txt &" * from "& db_wygkcn_Article_Table &" where (Checked=1 ) order by click DESC,EC_ArticleID desc"
	end if
	if Request.cookies(echsys)("reglevel")=1 then
Rs_hot.Source="select top "& index_top_txt &" * from "& db_wygkcn_Article_Table &" where (Checked=1 ) order by click DESC,EC_ArticleID desc"
	end if
end if
else
Rs_hot.Source="select top "& index_top_txt &" * from "& db_wygkcn_Article_Table &" where  Checked=1 order by click DESC,EC_ArticleID desc"
end if
Rs_hot.Open Rs_hot.Source,conn,1,1
Do While Not Rs_hot.Eof
		newsurl="wygkcn_ShowArticle.asp?EC_ArticleID=" & rs_hot("EC_ArticleID")
		newswwwurl=rs_hot("titleface")
		fileExt=lcase(getFileExtName(rs_hot("picname")))
%>	
<%
'增加栏目名称程序开始
	if  Rs_hot("E_BigClassID")<>"" then 
	    B=Rs_hot("E_BigClassID")
		sql="SELECT E_BigClassName FROM "& db_wygkcn_BigClass_Table &" WHERE E_BigClassID="&B
		Set rs22=Conn.Execute(sql)
		if Rs_hot("E_SmallClassID")<>"" then
		   C=Rs_hot("E_SmallClassID")
		   sql="SELECT E_SmallClassName FROM "& db_wygkcn_SmallClass_Table &" WHERE E_SmallClassID="&C
		   Set rs33=Conn.Execute(sql)
		   A=Rs33("E_SmallClassName")	
		   Rs33.close
		   Set rs33=nothing
		else
		A=rs22("E_BigClassName")
		Rs22.close
		Set Rs22=Nothing
		End If
	else
	    T=Rs_hot("E_TypeID")
		Sql="SELECT E_TypeName FROM "& db_wygkcn_Type_Table &" WHERE E_TypeID="&T
		Set Rs11=Conn.Execute(sql)		
		A=Rs11("E_TypeName")
		Rs11.Close
		Set Rs11=Nothing
	end if
'增加栏目名称程序结束
%>
<li><span class="float_right">[<%=rs_hot("click")%>]</span>·<a href="<%if rs_hot("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs_hot("title"))%>" target="_blank"> <font color="<%=rs_hot("titlecolor")%>"> <%=CutStr(htmlencode4(rs_hot("title")),25)%> </font> </a></li>
<%
Rs_hot.Movenext
Loop
Rs_hot.Close
Set Rs_hot=Nothing	
%>	
</ul>
</div>

</div>