📄 article_class.asp
字号:
<!--#include file="inc/syscode_article.asp"-->
<%
'请勿改动下面这三行代码
const ChannelID=2
Const ShowRunTime="Yes"
MaxPerPage=20
strFileName="Article_Class.asp?ClassID=" & ClassID & "&SpecialID=" & SpecialID
Set rsArticle= Server.CreateObject("ADODB.Recordset")
Set rsPic= Server.CreateObject("ADODB.Recordset")
%>
<HTML><HEAD><title><%=strPageTitle%></title>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="index_files/DefaultSkin.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.0" name=GENERATOR></HEAD>
<BODY onmousemove=HideMenu() leftMargin=0 topMargin=0>
<!--#include file="top.asp"-->
<%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.ParentPath From caifuwClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & ClassID & " and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1
%>
<DIV id=menuDiv
style="Z-INDEX: 1000; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8"></DIV><!-- ********网页顶部代码开始******** -->
<!-- ********网页中部代码开始******** -->
<TABLE class=center_tdbgall cellSpacing=0 cellPadding=0 width=760 align=center
border=0>
<TBODY>
<TR><!--网页中部左栏代码开始-->
<TD class=left_tdbgall vAlign=top width=180>
<TABLE style="WORD-BREAK: break-all" cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD class=left_tdbg2></TD></TR>
<TR>
<TD class=left_title align=middle>最 新 热 门</TD>
</TR>
<TR>
<TD class=left_tdbg1>
<% call ShowHot(10,16) %>
</TD></TR>
<TR>
<TD class=left_tdbg2></TD></TR>
<TR>
<TD class=left_title align=middle>最 新 推 荐</TD>
</TR>
<TR>
<TD class=left_tdbg1>
<% call ShowElite(10,16) %>
</TD></TR>
<TR>
<TD class=left_tdbg2></TD></TR></TBODY></TABLE></TD><!--网页中部左栏代码结束--><!--网页中部左间隔代码开始-->
<!--网页中部左间隔代码结束--><!--网页中部中栏代码开始-->
<td width="577" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"><tr><td>
<%
if rsRoot.bof and rsRoot.eof then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class=main_title_575>
<tr>
<td width="40"> </td>
<td class="title_maintxt"><%=ClassName%> 文章列表</td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="5" class="border">
<tr class=listbg>
<td height="200" valign="top">
<%call ShowArticle(30)%>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15" align="center" valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13" Class="tdbg_left2"></td>
</tr>
</table></td>
</tr>
</table>
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章")
end if
%>
<%
else
do while not rsRoot.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class=main_title_575>
<tr>
<td width="40"> </td>
<td width="484" class="title_maintxt"><%
arrClassID=rsRoot(0)
response.write "<a href='" & rsRoot(3) & "?ClassID=" & rsRoot(0) & "'>" & rsRoot(1) & "</a>"
if rsRoot(5)>0 then
response.write "："
set trs=conn.execute("select top 4 C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID From caifuwClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & rsRoot(0) & " and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID")
do while not trs.eof
response.write " <a href='" & trs(3) & "?ClassID=" & trs(0) & "'>" & trs(1) & "</a>"
trs.movenext
loop
set trs=conn.execute("select ClassID from caifuwClass where ParentID=" & rsRoot(0) & " or ParentPath like '%" & rsRoot(6) & "," & rsRoot(0) & ",%' and Child=0 and LinkUrl='' and BrowsePurview>=" & UserLevel)
do while not trs.eof
arrClassID=arrClassID & "," & trs(0)
trs.movenext
loop
end if
%> </td>
<td width="51" class="title_maintxt">
<%response.write "<a href='" & rsRoot(3) & "?ClassID=" & rsRoot(0) & "'>more...</a>"%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="99%" border="0" align="center" cellpadding="3" cellspacing="0" class="border">
<tr>
<td width="135" height="100" rowspan="2" align="center" valign="top">
<%
sql="select top 1 A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"
sql=sql & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl from caifuw A"
sql=sql & " inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=False and A.Passed=True and A.ClassID in (" & arrClassID & ") and DefaultPicUrl<>'' order by A.ArticleID desc"
rsPic.open sql,conn,1,1
if rsPic.bof and rsPic.eof then
response.write "<img src='images/nopic.jpg' width=135 height=100 border=0><br>没有任何图片文章"
else
strPic=""
call GetPicArticleTitle(20,135,100)
response.write strPic
end if
rsPic.close
%> </td>
<td width="5" rowspan="2"> </td>
<td height="50" valign="top"> <%
sql="select top 5 A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"
sql=sql & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl from caifuw A"
sql=sql & " inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=False and A.Passed=True and A.ClassID in (" & arrClassID & ") order by A.ArticleID desc"
rsArticle.open sql,conn,1,1
if rsArticle.bof and rsArticle.eof then
response.write "<li>没有任何文章</li>"
else
call ArticleContent(30,True,True,True,1,True,True)
end if
rsArticle.close
%> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15" align="center" valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13" Class="tdbg_left2"></td>
</tr>
</table></td>
</tr>
</table>
<%
rsRoot.movenext
loop
end if
rsRoot.close
set rsRoot=nothing
%>
<table width='100%' border='0'cellpadding='0' cellspacing='0' >
<tr align='center'>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class=main_title_575>
<tr>
<td width="40"> </td>
<td class="title_maintxt">最新热门图片</td>
</tr>
</table>
</td>
</tr>
</table></td>
<tr>
<td height="80" valign="top"> <table width="99%" height="100%" border="0" align="center" cellpadding="0" cellspacing="5" class="border">
<tr>
<td valign="top">
<% call ShowPicArticle(0,4,20,1,4,130,90,200,true,false) %>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15" align="center" valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13" Class="tdbg_left2"></td>
</tr>
</table></td>
</tr>
</table>
<table width='99%' border='0' align="center"cellpadding='2' cellspacing='0' class="tdbg_rightall">
<tr class='tdbg_leftall'>
<td width="22%"> <div align="center"><img src="Images/checkarticle.gif" width="15" height="15" align="absmiddle"> 站内文章搜索：</div></td>
<td width="78%"> <div align="center">
<% call ShowSearchForm("Article_Search.asp",2) %>
</div></td>
</tr>
</table></td></tr></table>
</td><!--网页中部中栏代码结束--><!--网页中部右间隔代码开始-->
<!--网页中部右间隔代码结束--></TR></TBODY></TABLE>
<TABLE class=center_tdbgall cellSpacing=0 cellPadding=0 width=760 align=center
border=0>
<TBODY>
<TR>
<TD class=main_shadow></TD></TR></TBODY></TABLE><!-- ********网页中部代码结束******** --><!-- ********网页底部代码开始******** -->
<!--#include file="bot.asp"-->
</BODY></HTML>
<%
set rsArticle=nothing
set rsPic=nothing
call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -