📄 article.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="Include/Inc.asp" -->
<%
Dim ds,ArticleID
Dim i,FirstArticle,NextArticle
Dim HotList,TopList,CutArticleInfo
Dim ds5,ds1
Dim SearchKeyWord
Dim TempArray
ArticleID=SafeRequest("ArticleID",1)
If ArticleID="" then sysErr(20)
'读取文章
'0=栏目id1=栏目名2=文章标题3=文章内容4=文章浏览数5=作者6=评论数7=是否存在外部连接8=外部连接地址9=关键字10=栏目code11=作者id12=发布日期13文章分页参数14=来源15=来源url
Sql="select [columnid],[columnname],[Title],Content,[ViewNum],[Author],[CommentNum],IsOut,OutUrl,[KeyWord],ColumnCode,AuthorId,AddDate,CutArticle,Source,SourceUrl from [nb_Content] where id="&ArticleID&" And IsPass=-1 And IsDel=0"
Set rs=Conn.Execute(SQL)
If not rs.eof and not rs.bof then
ds=rs.getrows()
CutArticleInfo=Split(ds(13,0),"|")
Rs.Close
If SysInfo(18)="0" Then
Response.Redirect "ArticleView/"&FormatDateTime(ds(12,0),2)&"/Article_View_"&ArticleID&".Htm"
Response.End
End If
SQL="update [nb_Content] set viewnum=viewnum+1 where id="&ArticleId
Conn.Execute(SQL)
If Ds(7,0) Then
Response.Redirect ds(8,0)
Response.End
End If
SQL="select [Id],title,tcolor,adddate from [nb_Content] where columnid="&ds(0,0)&" and ispass=-1 and isdel=0 and id>"&ArticleId&" Order By AddDate Asc,Id Asc"
Set Rs=Conn.Execute(SQL)
If Not rs.eof And Not rs.bof Then FirstArticle=Rs.GetRows()
SQL="select [Id],title,tcolor,adddate from [nb_Content] where columnid="&ds(0,0)&" and ispass=-1 and isdel=0 and id<"&ArticleId&" Order By AddDate Desc,Id Desc"
Set Rs=Conn.Execute(SQL)
If Not rs.eof And Not rs.bof Then NextArticle=Rs.GetRows()
Else
SysErr(31)
End if
'热门
SQL="Select Top 10 Id,ColumnId,ColumnName,Title,TColor,AddDate,IsImg,IsTop From [nb_Content] Where ColumnCode Like '"&Ds(10,0)&"%' And IsDel=0 And IsPass=-1 Order By ViewNum Desc,AddDate Desc,Id Desc"
Set Rs=Conn.Execute(SQL)
If Not rs.eof And Not rs.bof Then HotList=Rs.GetRows()
'推荐
SQL="Select Top 10 Id,ColumnId,ColumnName,Title,TColor,AddDate,IsImg,IsTop From [nb_Content] Where ColumnCode Like '"&Ds(10,0)&"%' And IsDel=0 And IsTop=-1 Order By AddDate Desc,Id Desc"
Set Rs=Conn.Execute(SQL)
If Not rs.eof And Not rs.bof Then TopList=Rs.GetRows()
'专题
SQL="SELECT Id,ColumnId,ColumnName,Title,TColor,AddDate,IsImg,IsTop,columncode FROM nb_CONTENT WHERE columncode='"&request("columncode")&"' and ISDEL=0 AND ISPASS=-1 AND IsDis=-1 Order By AddDate,Id"
set rs=Conn.Execute(SQL)
IF not rs.EOF AND not rs.BOF Then ds5=rs.getrows()
''--------相关文章----------
If ds(9,0)<>"" Then
TempArray=Split(ds(9,0),",")
For i=0 To UBound(TempArray)
SearchKeyWord=SearchKeyWord&"','+keyword+',' like '%,"&TempArray(i)&",%' or "
Next
End If
Sql="SELECT TOP 5 Id,ColumnId,ColumnName,Title,TColor,AddDate,IsImg,IsTop FROM nb_CONTENT WHERE ISPass=-1 And ID<>"&ArticleID&" and ("&SearchKeyWord&"1=0) And IsDel=0 AND COLUMNID="&ds(0,0)&" order by AddDate desc,Id Desc"
'response.write sql
Set rs=conn.execute(Sql)
If Not rs.Eof AND Not rs.BOF Then ds1=rs.getrows
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=ds(2,0)%>-<%=SysInfo(0)%></title>
<script language="Javascript" >
var Text,PageSize,flag
Text="<%=DealJsText(ds(3,0))%>";
PageSize=<%=CutArticleInfo(1)%>;
flag=<%=CutArticleInfo(0)%>;
</script>
<script language="Javascript" src="Js/CutArticle.js"></script>
<script language=javascript>
function ContentSize(size)
{
var obj=document.all.article;
obj.style.fontSize=size+"px";
}
</script>
<style type="text/css">
<!--
.keyworld {
color: #FF0000;
background-color: #FFFF00;
}
.FontSize1 {
font-size: 9pt;
}
.FontSize2 {
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="head.asp"-->
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="164" valign="top" bgcolor="#F7F7F7"><table width="163" border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7F7">
<tr>
<td width="163" valign="top" bgcolor="#F7F7F7" ><table width="100" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/at4_03.jpg" width="163" height="44" alt=""></td>
</tr>
</table>
<%
If IsArray(ds5) Then
Response.Write ShowTopicList(ds5,1,0,26)
End if%>
</td>
</tr>
<tr>
<td width="163" height="200" valign="top" bgcolor="#F7F7F7"></td>
</tr>
</table></td>
<td width="1" valign="top" bgcolor="#FFFFFF"></td>
<td width="604" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/guoshuei1_04.jpg" width="607" height="44" alt=""></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="0" style="word-break: break-all; line-height: 100%; table-layout:fixed">
<tr>
<td colspan="2">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td>
<div id="article" style="font-size:12px;"></div>
<script language="JavaScript">
if (flag==1 || flag==2)
{
text_pagination(1);
}
else{
article.innerHTML=Text;
}
</script>
</td>
</tr>
</table></td>
</tr>
</table>
</td>
<td width="1" valign="top" bgcolor="#FFFFFF"> </td>
</tr>
</table>
<!--#include file="Footer.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -