<!--专题开始-->
<div class="EC_ZT">
<div class="zt_title"><span class="float_right"><a href="wygkcn_Special.asp" target="_blank">更多>></a></span></div>
<DIV class="zt_list">
<%if showspecial="1" then%>
<ul class=<%if sp_class=1 then%>ec_zt_name<%else%>ec_pic_sp<%end if%>>
<%
Set rs2=server.CreateObject("ADODB.RecordSet")  '专题
  if sp_class=1 then
     rs2.Source="select Top " & top_sp & " * from "& db_wygkcn_Special_Table &"  order by EC_SpecialID DESC "
  else 
     rs2.Source="select Top " & top_pic_sp & " * from "& db_wygkcn_Special_Table &" where picname is not null order by EC_SpecialID DESC "
  end if
rs2.Open rs2.Source,conn,1,1
If Rs2.Bof And Rs2.EOF Then
Response.Write "<li>·暂无专题</li>"
Else
Do While Not Rs2.EOF
fileExt=lcase(getFileExtName(rs2("picname")))
%>
<li>
<%if sp_class=1 then%>
<A HREF="Special_News.asp?EC_SpecialID=<%=rs2("EC_SpecialID")%>" target="_blank">
<%=trim(CutStr(htmlencode4(rs2("E_SpecialName")),24))%></A>

<%else%>

<A HREF="Special_News.asp?EC_SpecialID=<%=rs2("EC_SpecialID")%>" target="_blank">
                          <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                          <img  src="<%=FileUploadPath & rs2("picname")%>" width="220" height="60" border=0 align="center">
                          <%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="200" height="60" border=0 align="center">
                            <param name=movie value="<%=FileUploadPath & rs2("picname")%>">
                            <param name=quality value=high>
                            <param name='Play' value='-1'>
                            <param name='Loop' value='0'>
                            <param name='Menu' value='-1'>
                            <embed src="<%=FileUploadPath & rs2("picname")%>" width="200" height="60" border=0 align="center" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
        </object>
                     <%end if%>	
	    </A>
</li>
<%end if%>
<%
Rs2.MoveNext
Loop
End if
Rs2.Close
Set Rs2=Nothing 
%>
</ul>
<%
Else
Response.Write "<ul><li>管理员关闭了专题！</li></ul>"
End if
%>
</div>

</div>