week2.asp

文学网采用飞翔网的内核和界面作了较大程度的修改和美化 主要功能有： 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6

javastr=""
javastr=javastr+"<table width=\"100%\" border=\"0\"  class=\"p1\">"
<!--#include file="const.asp"-->
<!--#include file="articleconn.asp"-->
<%week1=request("week1")
if week1=2  then
sql="select top 6 * from article where shenghe='已审' and dateandtime>=date()-6 order by hits desc"
set rs=conn.execute(sql)%>
<% 
dim i
do while not rs.eof 
%>
javastr=javastr+"<tr><TD width=11>&nbsp;</TD><td  class=\"p1\">"
javastr=javastr+"<font color=\"#993300\" size=\"2\">- </font><a href=\"openarticle.asp?id=<%=rs("newsid")%>\")><font color=\"#993300\"><%=left(rs("title"),10)%></a>"


javastr=javastr+"</td></tr>"
<%i=i+1
	if i=5 then exit do
	rs.movenext
	loop
rs.close   
set rs=nothing   
conn.close   
set conn=nothing %> 
javastr=javastr+"</table>" 
document.write (javastr) 
<%else%>
document.write ("对不起，暂时没有任何内容。")
<%end if%>