tjnews.asp

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

javastr=""
javastr=javastr+"<table width=\"160\" border=\"0\"  class=\"p1\">"
<!--#include file="articleconn.asp"-->
<%n=request("n")
if n<>""  then
sql="select top "+cstr(n)+" * from article where shenghe='已审' and tjnews='★★★★★' order by dateandtime desc"
set rs=conn.execute(sql)%>
<% 
while not rs.eof
%>
javastr=javastr+"<tr><TD width=11>&nbsp;</TD><td  class=\"p1\">"
javastr=javastr+"<font color=\"#993300\" size=\"2\">- </font><span style=\"font-size:9pt;\"><a href=\"openarticle.asp?id=<%=rs("newsid")%>\") ><font  color=\"#993300\"><%=left(rs("title"),10)%></font></span></a>"


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