<!--#include file="function.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet") 
if uselevel=1 then
	if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
		rs.Source="select top 1 * from "& db_News_Table &" where checkked=1 and goodnews=1 and picname is not null order by NewsId DESC"
	end if
	if Request.cookies(Forcast_SN)("key")="" then
		rs.Source="select top 1 * from "& db_News_Table &" where checkked=1 and goodnews=1 and picname is not null order by NewsId DESC"
	end if
	if Request.cookies(Forcast_SN)("key")="selfreg" then
		if Request.cookies(Forcast_SN)("reglevel")=3 then
			rs.Source="select top 1 * from "& db_News_Table &" a1,type a2 where a1.typeid=a2.typeid and checkked=1 and goodnews=1 and typeview=1  and picname is not null order by NewsId DESC"
		end if
		if Request.cookies(Forcast_SN)("reglevel")=2 then
			rs.Source="select top 1 * from "& db_News_Table &" a1,type a2 where a1.typeid=a2.typeid and checkked=1 and goodnews=1 and typeview=1  and picname is not null order by NewsId DESC"
		end if
		if Request.cookies(Forcast_SN)("reglevel")=1 then
			rs.Source="select top 1 * from "& db_News_Table &" a1,type a2 where a1.typeid=a2.typeid and checkked=1 and goodnews=1 and typeview=1  and picname is not null order by NewsId DESC"
		end if
	end if
else
	rs.Source="select top 1 * from "& db_News_Table &" a1,type a2 where a1.typeid=a2.typeid and checkked=1 and goodnews=1 and typeview=1 and picname is not null order by NewsId DESC"
end if
rs.Open rs.Source,conn,3,3
if rs.EOF then
	Response.Write "<center>目前暂无推荐内容</center>"
else
	title=rs("title")
	fileExt=lcase(getFileExtName(rs("picname")))
	%>

<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="450" id="AutoNumber3">
	<tr >
		<td background="images/hotnews.gif" height="52" colspan="3">&nbsp;</td>
	</tr>
	<tr> 
		<td width="250" align="left" valign="top" bgcolor="#FFFFFF">
			<a class=class target=_blank href="rnplay.asp?NewsId=<%=rs("newsid")%>" title="<%=htmlencode4(title)%>"> 
			<!-- 推荐无图 -->
			<%if fileext="" then%>
				<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="border-left: 1px solid #cccccc; border-top: 1px solid #cccccc; border-bottom: 1px solid #cccccc; border-right: 1px solid #cccccc ">
  <tr>
    <td align="center" valign="middle">
	<TABLE class=56 width="100%">
									<TBODY>
										<TR>
											<TD width="240" height="180" align="right" valign="bottom" background="images/nophoto.jpg" class=newstop><strong>推荐新闻无图</strong>&nbsp;<br>
											</TD>
										</TR>
										<TR>
											<TD align=right></TD>
										</TR>
									</TBODY>
			</TABLE>
	</td>
  </tr>
</table>
        
			<%else%>
				<!-- 推荐无图 -->      
				<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
				
				<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="border-left: 1px solid #cccccc; border-top: 1px solid #cccccc; border-bottom: 1px solid #cccccc; border-right: 1px solid #cccccc ">
  <tr>
    <td align="center" valign="middle">
	<TABLE width="98%" align="center" class=56 >
										<TBODY>
											<TR>
												<TD width="240" align="right" valign="bottom">
												<a class=class target=_blank href="rnplay.asp?newsid=<%=rs("newsid")%>" title="<%=title%>"><img src="<%=FileUploadPath & rs("picname")%>" width="240" border=0></a>
												</TD>
											</TR>
											<TR>
												<TD align=right></TD>
											</TR>
										</TBODY>
			</TABLE>
	</td>
  </tr>
</table>

					<%end if%>
			<%end if%>
			<%if fileext="swf" then%>
				<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="border-left: 1px solid #cccccc; border-top: 1px solid #cccccc; border-bottom: 1px solid #cccccc; border-right: 1px solid #cccccc ">
  <tr>
    <td align="center" valign="middle">
	<TABLE class=56 width="100%">
									<TBODY>
										<TR>
											<TD width="240" height="180" a class=newstop >
												<CENTER>
												<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="240" height="180">
												<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'>
												<param name="wmode" value="transparent">
												<embed src="<%=FileUploadPath & rs("picname")%>" width="240" height="180" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
												</object>
												</CENTER>
											</TD>
										</TR>
										<TR>
											<TD align=right></TD>
										</TR>
									</TBODY>
			</TABLE>
	</td>
  </tr>
</table>
			<%end if%>
		</td>
		<td width=1  valign=top background="images/t.gif">&nbsp;</td>
		<td width=168  valign=top bgcolor="#FFFFFF" style="LEFT: 0px; WIDTH: 168px; WORD-WRAP: break-word">
			<strong>
				<font size=+1 face="楷体_GB2312" color="<%=rs("titlecolor")%>">
					<a title="<%=htmlencode4(title)%>"><%=htmlencode4(CutStr(title,24))%>
					</a>
				</font>
			</strong>
			<br>
			<br>
			<a class=class target=_blank href="rnplay.asp?NewsId=<%=rs("newsid")%>" title="<%=htmlencode4(title)%>"><%=CutStr(nohtml(rs("Content")),220)%> </a>
			<table width=160 height="0" border="0" cellpadding="0" cellspacing="0">
				<tr>
					<td height="16" align="right">
						<a class=class target=_blank href="rnplay.asp?newsid=<%=rs("newsid")%>" title="<%=htmlencode4(title)%>"> 
							<font color="#FF0000">[详细内容]</font>
						</a>
					</td>
				</tr>
			</table> 
		</td>
	</tr>
	<tr bgcolor="#FFFFFF" >
		<td colspan="3" background="images/t1.gif" align="left" valign="top"><img src="images/kb.gif" width="9" height="9"></td>
	</tr>
	<tr>
		<td colspan="3" align="left" valign="top" bgcolor="#FFFFFF">
			<table width="98%" border="0" cellspacing="0" cellpadding="0">
				<tr> 
					<td> 
						<% set rs9=server.CreateObject("ADODB.RecordSet") 
						rs9.Source="select top 6 * from "& db_News_Table &" where istop=1 order by newsid desc"
						rs9.Open rs9.Source,conn,1,1
						do while not rs9.EOF
							title=trim(rs9("title"))%>
							<img src="images/dot_blue.gif">
							<a class=middle target="_blank" href="rnplay.asp?NewsId=<%=rs9("newsid")%>" title="<%=htmlencode4(title)%>">
							<font color=<%=rs9("titlecolor")%>>[<%=CutStr(htmlencode4(rs9("title")),10)%>]</font> 
							</a>
							<a class=middle target="_blank" href="rnplay.asp?NewsId=<%=rs9("newsid")%>" title="<%=htmlencode4(title)%>"><%=CutStr(nohtml(rs9("Content")),44)%></a>
							
                          <!--标题后评论提示-->

						  <% if rs9("titlesize")>=1 then %>
						  <A class=middle HREF="<%=path%>Review.asp?NewsID=<%=rs9("NewsID")%>" target="_blank" >
						  <font color=red><b>评</b></font></A>
						  <%end if %>

						  <!--标题后评论提示-->
						  <br>

							<%rs9.movenext
						loop
						rs9.close
						set rs9=nothing%>
						<BR>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
<%end if
rs.close
set rs=nothing
%>