📄 new2.asp

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

💻 ASP

字号:

<!--#include file="conn_new.asp"-->
<!--#include file="const_new.asp"-->
<!--#include file="char_new.asp"-->
<%
Call CheckAccessRight()
%><%
	dim rs,sql
	dim classid
	dim classname
	classid=request("classid")
	set rs1=server.createobject("adodb.recordset")
	call getConst()
%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link rel="stylesheet" href="new.css" type="text/css">
</head>
<body leftmargin="3" topmargin="3">
<%
	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 3 [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 3 [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 
%>
没有或没有找到任何消息            
<%else%>
<%do while not rs.eof%>           
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="image/dot.gif">
  <tr>
    <td></td>
  </tr>
</table><br>
<font color="#FF0000"><%=rs("Nclass")%></font>          
<a href="skinnews.asp?id=<%=rs("articleid")%>")% target="_blank"><%=rs("title")%>            
</a>
<table>
<tr> 
  <%if rs("dateandtime")=date() then%>
  <td width="130">--<%=year(rs("dateandtime"))%>年<%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日          
  <%end if%>
  <br>
  <% 
	rs.movenext 
	loop 
	end if 
	rs.close 
%>

</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -