new_index.asp

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

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><!--#include file="conn_new.asp"-->
<!--#include file="const_new.asp"-->
<!--#include file="char_new.asp"-->
<%
	dim rs,sql
	dim classid
	dim classname
	classid=request("classid")
	set rs1=server.createobject("adodb.recordset")
	call getConst()
%>
<%
	sql="select class,classid from Aclass order by cs"
	Set rs=conn.execute (sql)
	if rs.eof and rs.bof then
		response.writer "还没有任何栏目"
	else
	GetUnid = rs(1)
	do while not rs.eof
%>
<%  
	rs.movenext  
	loop  
	end if  
	rs.close  
%>
<% 
	if classid<>"" then
		sql = "SELECT top 10 [article].[articleid], [article].[title], [article].[dateandtime], [article].[hits],[writer], [article].[classid], [article].[Nclassid], [ANclass].[Nclass] FROM ANclass INNER JOIN article ON [ANclass].[Nclassid]=[article].[Nclassid] where article.classid = " & Classid & " ORDER BY [article].[articleid] DESC"
	else
		sql = "SELECT top 10 [article].[articleid], [article].[title], [article].[dateandtime], [article].[hits],[writer], [article].[classid], [article].[Nclassid], [ANclass].[Nclass] FROM ANclass INNER JOIN article ON [ANclass].[Nclassid]=[article].[Nclassid] WHERE [article].[Nclassid]=[ANclass].[Nclassid] ORDER BY [article].[articleid] DESC"
	end if
	rs.open sql,conn,1,1 
	if rs.eof and rs.bof then 
%>
<link rel="stylesheet" href="new.css" type="text/css">
当前没有公告 
<%else%>
<%do while not rs.eof%>
<br>
&nbsp;<img src="<%=rs("writer")%>"> <font color="#FF0000"><%=rs("Nclass")%></font> 
<a href="skinnews.asp?id=<%=rs("articleid")%>")% target="_blank"><%=rs("title")%> 
</a><br>
      <img src="image/A1.gif" width="10" height="10">-----------------------------------<%=year(rs("dateandtime"))%>年<%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日 
      <% 
	rs.movenext 
	loop 
	end if 
	rs.close 
%>
      <a href="allnews.asp" target="_blank"><br>
      全部公告&gt;&gt;</a> <a href="admin_new/default.asp" target="_blank">管理登陆&gt;&gt;</a></td>
  </tr>
</table>