article_class.asp
来自「利用C++编写的网络跟踪代码」· ASP 代码 · 共 482 行 · 第 1/2 页
ASP
482 行
<td height="1"></td>
</tr>
</table>
栏目文章</td>
</tr>
</table></td>
</tr>
</table>
<table width="592" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12">
<%
if rsRoot.bof and rsRoot.eof then
%>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table class="4" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <table width="100%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3" valign="top"> <div align="right">
</div>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="28" valign="bottom">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="23" bgcolor="#EAEAEA"> <font color="#666666"><strong><font color="#CE0000"> ·<%=ClassName%></font></strong></font> <strong><font color="#666666"><strong><font color="#CE0000">
</font></strong></font></strong> </td>
</tr>
</table></td>
</tr>
<tr>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table>
<%call ShowArticle(55)%>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="23" bgcolor="#E3E3E3">
<div align="center"><strong><font color="#666666"><strong><font color="#CE0000">
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章")
end if
%>
</font></strong></font></strong></div></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
else
do while not rsRoot.eof
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table class="4" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <table width="100%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3" valign="top"> <div align="right">
</div>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="28" valign="bottom">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#DBDBDB">
<td height="23" bgcolor="#EAEAEA"> <font color="#CE0000"><strong><font color="#CE0000"> ·</font></strong></font>
<%
arrClassID=rsRoot(0)
response.write "<a href='" & rsRoot(3) & "?ClassID=" & rsRoot(0) & "'><font color=#CE0000><strong>" & rsRoot(1) & "</font></strong></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
%>
</td>
<td width="45" bgcolor="#EAEAEA">
<%response.write "<a href='" & rsRoot(3) & "?ClassID=" & rsRoot(0) & "'>更多...</a>"%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="3" cellspacing="0" class="border">
<tr>
<td width="160" height="100" rowspan="2" align="center" valign="top">
<table width="160" height="120" border="0" align="right" cellpadding="0" cellspacing="0" background="new/arbgc.gif">
<tr>
<td><table width="147" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <div align="center">
<%
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=131 height=100 border=0>"
else
strPic=""
call GetPicArticleTitle2(20,131,100)
response.write strPic
end if
rsPic.close
%>
</div></td>
</tr>
</table></td>
</tr>
</table>
</td>
<td height="50" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
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 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(44,false,false,false,2,false,false)
end if
rsArticle.close
%>
</td>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
rsRoot.movenext
loop
end if
rsRoot.close
set rsRoot=nothing
%>
</td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="592" height="70" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CC0000">
<tr>
<td height="12"><div align="center"><font color="#FFFFFF">广告位(590*70)</font></div></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table></td>
</tr>
</table>
<table width="860" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"><img src="new/dbb.gif" width="860" height="18"></td>
</tr>
</table>
<!--#include file="end.asp"-->
<% call PopAnnouceWindow(400,300) %>
<% call ShowAD(0) %>
<% call ShowAD(4) %>
<% call ShowAD(5) %>
</body>
</html>
<%
set rsArticle=nothing
set rsPic=nothing
call CloseConn()
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?