📄 skinnews.asp

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

💻 ASP

字号:

<!--#include file="conn_new.asp"-->
<!--#include file="const_new.asp"-->
<!--#include file="char_new.asp"-->
<%
   	dim sql
   	dim rs
   	dim rstype
   	dim typesql
   	dim typeid,typename,classname,classid,Nclassname,Nclassid
   	dim title
	call getConst()
	set rs=server.createobject("adodb.recordset")
	sql="update article set hits=hits+1 where articleID="&request("id")
	rs.open sql,conn,1,3 
  	sql="select Aclass.class,ANclass.Nclass,article.title,article.classid,article.Nclassid from article,Aclass,ANclass where article.classid=Aclass.classid and article.Nclassid=ANclass.Nclassid and article.articleID="&request("id")
 	rs.open sql,conn,1,1
 	if not rs.eof then
	title=rs("title")
	classid=rs("classid")
	Nclassid=rs("Nclassid")
	classname=rs("class")
	Nclassname=rs("Nclass")
 	end if
	rs.close
%>
<html>
<head>
<meta name="keywords" content="<%=NetName%>,<%=NetUrl%>">
<title>风格写手 公告</title>
<link rel="stylesheet" href="../styles/style.css" type="text/css">
<style type="text/css">
<!--
-->
</style>
<style TYPE="text/css">
<!--
A:link{text-decoration:none}
A:visited{text-decoration:none}
A:hover {color: #ff00ff;text-decoration:underline}
 -->
</style>

<style type="text/css">
<!--
body {font-size:9pt}
td {font-size:9pt}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
	sql="select class,classid from Aclass"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "还没有任何栏目"
		response.end
	else
	do while not rs.eof
%>
<a href="default.asp?classid=<%=rs("classid")%>"> </a> 
<%  
	rs.movenext  
	loop  
	end if  
	rs.close  
	dim key   
	sql="select * from article where articleid="&request("id")   
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "没有找到相关文章。"
		response.end
	end if
	if rs("Nkey")<>"" then   
		key=rs("Nkey")   
	else   
		key="None News"   
	end if  
%>
<table width="755" border="0" cellpadding="0" align="center" border-width: 1" cellspacing="1" bgcolor="#999999" height="166">
  <tr> 
    <td bgcolor="#FFFFFF" colspan="2" width="762"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="4">
        <tr> 
          <td background="image/line01.gif"><img src="image/A3.gif" width="12" height="12">您的位置：<a href="http://www.70age.net/xieshou">首页</a>->  
            <a href="allnews.asp"><%=classname%></a>-> <b>浏览公告</b></td> 
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td colspan="2" width="762" bgcolor="<%=Tablebackcolor%>"> 
      <div align="center">[<font color="#FF0000"><%=Nclassname%></font>] <b><%=rs("title")%></b>  
        <img src="<%=rs("writer")%>" alt="心情图标"><br> 
        &nbsp;&nbsp;&nbsp;&nbsp; 公告发布：<font color="#FF0000"><%=rs("author")%></font>  
        &nbsp;发布时间：<font color="#FF0000"><%=rs("dateandtime")%></font> &nbsp;浏览次数：<font color="#FF0000"><%=rs("hits")%></font>  
        <br>
        <table width="745" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td bgcolor="#000000" width="745"></td>
          </tr>
        </table>
      </div>
      <p> 
      <table width="745" border="0" cellspacing="0" cellpadding="3" align="center">
        <tr> 
          <td width="745"><%=ubbcode(rs("content"))%><br>
            ---------------------<br>
            东安原创文学网</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>                                 
</html>                                 
<%   
rs.close   
set rs=nothing   
conn.close   
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -