📄 showclass.asp
字号:
<tr>
<td height="22"><img src="img/tp.gif" width="10" height="10"> <%=ClassName%> 文章列表 </td>
<td> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td width="484" height="100" valign="top"> <table width="503" border="0" align="center" cellpadding="0" cellspacing="5">
<!--DWLayoutTable-->
<tr>
<td width="473" height="100" valign="top" bgcolor="f9f9f9" ><table width="470" border="0" align="center" cellpadding="0" cellspacing="5" >
<tr>
<td width="489" height="10" valign="top"> <table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <%call ShowArticle(30)%> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" Class="tdbg_left2"></td>
</tr>
</table>
<table width='500' border='0' align="center"cellpadding='2' cellspacing='0' class="tde">
<tr>
<td height="20" bgcolor="f2f2f2"> <div align="center">
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章")
end if
%>
</div></td>
</tr>
</table>
<%
else
do while not rsRoot.eof
%> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6" Class="tdbg_left2"></td>
</tr>
</table>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" class="tde">
<!--DWLayoutTable-->
<tr>
<td width="484" height="25" valign="top"><table width="498%" border="0" cellpadding="0" cellspacing="0" class="1">
<!--DWLayoutTable-->
<tr>
<td width="498" height="25" valign="bottom" bgcolor="#fafafa">
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="86%" height="18"><img src="img/tp.gif" width="10" height="10">
<%
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 ArticleClass 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 ArticleClass 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
%> <div align="right"></div></td>
<td width="14%"> <%response.write "<a href='" & rsRoot(3) & "?ClassID=" & rsRoot(0) & "'>more...</a>"%> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td width="484" height="100" valign="top"> <table width="503" border="0" align="center" cellpadding="0" cellspacing="5">
<!--DWLayoutTable-->
<tr>
<td width="473" height="100" valign="top" bgcolor="f9f9f9" >
<table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#F9F9F9" >
<tr>
<td width="135" height="100" align="center" valign="middle">
<%
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 Article 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=125 height=95 border=0><br>暂时没有图片文章"
else
strPic=""
call GetPicArticleTitle(14,125,95)
response.write strPic
end if
rsPic.close
%> </td>
<td width="4"> </td>
<td width="329" valign="top"> <table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <%
sql="select top 6 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 Article 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(32,True,True,False,1,False,False)
end if
rsArticle.close
%> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
rsRoot.movenext
loop
end if
rsRoot.close
set rsRoot=nothing
%>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" Class="tdbg_left2"></td>
</tr>
</table>
<div align="center">
<% call ShowAD() %>
</div>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="3" Class="tdbg_left2"></td>
</tr>
</table>
<table width='500' border='0' align="center"cellpadding='2' cellspacing='0' class="tde">
<tr>
<td height="20" bgcolor="f2f2f2"> <div align="center">
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" Class="tdbg_left2"></td>
</tr>
</table>
<% call ShowPicArticle(0,4,10,1,4,109,80,200,false,false) %>
</div></td>
</tr>
</table>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table>
<div align="center"> </div>
</td>
</tr>
</table></td>
<td></td>
</tr>
<tr>
<td height="10"></td>
<td></td>
<td></td>
</tr>
</table></td>
<td width="5"> </td>
</tr>
<tr>
<td height="4"></td>
<td></td>
<td></td>
</tr>
</table>
<!--#include file="end.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -