index.asp

网站 QCNEWS后台管理程序,风格流行功能强大

<!--#include file="head.asp"-->
<br>
<table class="twidth" cellpadding=0 cellspacing=0 align=center>
<tr align="left" valign=top >
<td width=200><!--#include file="left.asp"--></td>
<td>

	<table width=100% cellspacing=0 cellpadding=0>
	<tr>
	<td class="mframe-t-left"></td>
	<td class="mframe-t-mid">
		<span class="mframe-t-text">最新文章</span>
	</td>
	<td class="mframe-t-right"></td>
	</tr>
	</table>


	
	<table width=100% cellspacing=0 cellpadding=0>
	<tr>
	<td class="mframe-m-left"></td>
	<td class="mframe-m-mid">
		<table width=100% cellpadding=0 cellspacing=0 border=0 >
		<tr>
			<td valign=top width=200>
				<table cellspacing=0 cellpadding=0 border=0 width=200>
				<%
				Sql = "Select top 2 Unid,DefaultPic,title from article_info where DefaultPic<>'' and vouch<>'0' and Audit = 0 order by vouch desc"
				set Rs = conn.execute(Sql)
				if Rs.eof and rs.bof then
					Response.write "<div align=center>还没有推荐文章。</div>"
				else
					do while not rs.eof
						Response.write "<tr>"
						Response.write "<td align=center><a href=list.asp?unid="& rs(0) &" target='"& AddOpenWin &"'>"& rs(1) &"</a><br>"
						Response.write "<span style='width:90%'><a href=list.asp?unid="& rs(0) &" target='"& AddOpenWin &"'>"& 	Qcdn.HTMLcode(rs(2)) &"</a></span></td>"
						Response.write "</tr>"
					rs.movenext
					loop
				end if
				rs.close
				%>
				</table>
			</td>
			    <td valign=top width=* >
				<%Call Qcdn.Toplist("12","Unid",1)%>
                  <br>
			</td>
		</tr>
		</table>

		<table width=100% >
		<tr>
			<td class=hr>
			</td>
		</tr>
		<tr>
			<td align="center" height=30>
			<!-----------快速搜索栏----------->
			<%Call Qcdn.Searchlist()%>
			<!-----------搜索栏结束----------->
			</td>
		</tr>
		</table>
	</td>
	<td class="mframe-m-right"></td>
	</tr>
	</table>
	<table width=100% cellspacing=0 cellpadding=0 >
	<tr>
	<td class="mframe-b-left"></td>
	<td class="mframe-b-mid">&nbsp;</td>
	<td class="mframe-b-right"></td>
	</tr>
	</table>

<%if AddNewPic then%>
	<table width=100% cellspacing=0 cellpadding=0>
	<tr>
	<td class="mframe-t-left"></td>
	<td class="mframe-t-mid">
		<span class="mframe-t-text">最新图片文章</span>
	</td>
	<td class="mframe-t-right"></td>
	</tr>
	</table>

	<table width=100% cellspacing=0 cellpadding=0>
	<tr>
	<td class="mframe-m-left"></td>
	<td class="mframe-m-mid">
		<table cellpadding=2 cellspacing=0 border=0><tr align=center></tr><tr align=center>
				<%
				Sql = "Select top 3 Unid,title,DefaultPic from article_info where flag = 0 and DefaultPic<>'' and Audit = 0 order by Unid desc"
				Set Rs = Conn.Execute(Sql)
				if Rs.eof then 
					Response.write("<td width=200><div align=center>还没有图片文章</div></td>")
				else
					do while not Rs.eof
						Response.write("<td width=200>")
						Response.write("<a href=list.asp?unid="& Rs(0) &" target='"& AddOpenWin &"'>" & Rs(2) & "</a><br>")
						Response.write("<span style='width:90%'><a href=list.asp?unid="& Rs(0) &" target='_blank'>"& Rs(1) &"</a></span>")
						Response.write("</td>")
					Rs.movenext
					loop
				end if
				Rs.close
				%>
              </tr></table>
	</td>
	<td class="mframe-m-right"></td>
	</tr>
	</table>

	<table width=100% cellspacing=0 cellpadding=0 >
	<tr>
	<td class="mframe-b-left"></td>
	<td class="mframe-b-mid">&nbsp;</td>
	<td class="mframe-b-right"></td>
	</tr>
	</table>
<%end if%>

<!--#include file="sortmod.asp"-->

<%if AddNav then%>	
<!--#include file="navigation.asp"-->	
<%end if%>

</td>
</tr>
</table>
<br>
<!--#include file="copy.asp"-->