复件 list.asp
来自「关于网络渗透技术的详细讲解」· ASP 代码 · 共 372 行 · 第 1/2 页
ASP
372 行
</tr>
<tr bgcolor="ffffff">
<td colspan="2" height="25">最新评论:<font color=#AAAAAA>
<%If Len(TopicList(6,i))<=0 Or IsNull(TopicList(6,i)) Then response.write "暂无评论" Else response.write TopicList(6,i)%>
</font></td>
<td width="15%"><%="<font color=#AAAAAA>Review:"&TopicList(4,i)&"</font>"%></td>
</tr>
<tr bgcolor="ffffff">
<td colspan="3" bgcolor=800000 height=1></td>
</tr>
</table></td>
</tr>
<%
Case 2
'图片式
If j Mod 3=0 Then Response.Write "<tr><td colspan=""2""><table width=""100%"" cellpadding=""0"" cellspacing=""0""><tr>"
%>
<td width="33%" align="center"><a href="Article.asp?ArticleId=<%=TopicList(0,i)%>" target="_blank">
<% If TopicList(8,i) Then
Response.Write "<img src="""&TopicList(9,i)&""" align=""absmiddle"" border=0 onload=""javascript:check(this,90,90)"">"
Else
Response.Write "<img src=""pic/no_picture.gif"" align=""absmiddle"" border=0>"
End If
%>
<br>
<%=CheckTitleTypes(TopicList(8,i),TopicList(10,i))%> <%=TitleAddColor(TopicList(1,i),Replace(TopicList(2,i)," "," "))%></a>
<%If FormatDateTime(TopicList(3,i),2)=FormatDateTime(Now,2) Then Response.write " <Img src='pic/new.gif' border=0 align=absmiddle>"%></td>
<% If j=2 Then
Response.Write "</tr></table></td></tr>"
j=0
Else
j=j+1
End If
Case 3
'图文式
%>
<tr>
<td colspan="2"><table width="100%" cellpadding="0" cellspacing="0" border=0 height="100">
<tr bgcolor="ffffff">
<td width="25%" align="center"><a href="Article.asp?ArticleId=<%=TopicList(0,i)%>" target="_blank">
<%
If TopicList(8,i) Then
Response.Write "<img src="""&TopicList(9,i)&""" align=""absmiddle"" border=0 onload=""javascript:check(this,90,90)"">"
Else
Response.Write "<img src=""pic/no_picture.gif"" align=""absmiddle"" border=0>"
End If
%>
</a></td>
<td valign="top"> <table width="100%" cellpadding="0" cellspacing="0" border=0 height="100" style="word-break: break-all">
<tr>
<td height="22" bgcolor="efefef"> <%=CheckTitleTypes(TopicList(8,i),TopicList(10,i))%> <a href="Article.asp?ArticleId=<%=TopicList(0,i)%>" target="_blank"><%=TitleAddColor(TopicList(1,i),Replace(TopicList(2,i)," "," "))%></a>
<%If FormatDateTime(TopicList(3,i),2)=FormatDateTime(Now,2) Then Response.write " <Img src='pic/new.gif' border=0 align=absmiddle>"%></td>
</tr>
<tr>
<td valign="top"><%=DealJsText(TopicList(5,i))%></td>
</tr>
<tr>
<td height="22" bgcolor="efefef" align="center"><font color="666666"><%="浏览:"&TopicList(7,i)&" 评论:"&TopicList(4,i)&" 发表时间:"&FormatDateTime(TopicList(3,i),2)&"</font>"%></font></td>
</tr>
</table></td>
</tr>
<tr bgcolor="ffffff">
<td colspan="2" bgcolor=800000 height=1></td>
</tr>
</table></td>
</tr>
<%
End Select
Next
If j<>0 Then Response.Write "</tr></table></td></tr>"
Else
Response.Write "<tr><td align=center height=50 colspan=2>此栏目暂时没有文章</td></tr>"
End If
%>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td align="left"> 风格：<a href="?style=0&classid=<%=ClassId%>">列表</a> | <a href="?style=1&classid=<%=ClassId%>">简介</a> | <a href="?style=2&classid=<%=ClassId%>">图片</a> | <a href="?style=3&classid=<%=ClassId%>">图文</a></td>
<td align="right"><%response.write PageList(MPageSize,ColumnInfo(0,0),PageNo,FieldName,FieldValue)&" "%></td>
</tr>
</table>
<p></p>
<%ColumnChild(ColumnInfo(3,0))%></td>
<td width="1" rowspan="2" valign="top" bgcolor="#CEDFFF"></td>
</tr>
<tr>
<td height="20" align="center" valign="top"><!--#include file="searchbar.asp" --></td>
</tr>
</table>
<!--#include file="Footer.asp"-->
</body>
</html>
<%
Function ColumnChild(MainCode)
Dim ChildList,Title,TopicList
Dim j
SQL="Select [ID],Title,[CountNum],[ViewNum] FROM NB_Column WHERE code like '"&MainCode&"%' And Code<>'"&MainCode&"' And CountNum>0"
Set Rs=Conn.Execute(SQL)
If Not rs.eof And Not rs.bof Then
ChildList=rs.getrows()
For i=0 To Ubound(ChildList,2)
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""2"">"&Chr(10)
Response.Write "<tr>"&Chr(10)
Response.Write "<td height=""22"" bgcolor=""#f0faff""> <strong>"&ChildList(1,i)&"</strong> 文章总数:"&ChildList(2,i)&" 浏览次数:"&ChildList(3,i)&"</td>"&Chr(10)
Response.Write "<td align=""right"" bgcolor=""#f0faff""><a href=""list.asp?classid="&ChildList(0,i)&"""><img src=""Images/more.gif"" border=""0""></a> </td>"&Chr(10)
Response.Write "</tr>"&Chr(10)
SQL="SELECT TOP 10 [ID],Title,AddDate,ViewNum,TColor From [NB_Content] where ColumnID="&ChildList(0,i)&" and IsPass=-1 and IsDel=0 Order By AddDate Desc,Id Desc"
Set Rs=Conn.Execute(SQL)
If Not rs.eof And Not rs.bof Then
TopicList=rs.getrows()
For j=0 To Ubound(TopicList,2)
Title=Replace(TopicList(1,j)," ","")
Response.Write "<tr>"&Chr(10)
Response.Write "<td colspan=""2"">"&Chr(10)
Response.Write "<table width=""100%"" cellpadding=""2"" cellspacing=""0"" bgcolor=""#FAFAFA"">"&Chr(10)
Response.Write "<tr>"&Chr(10)
Response.Write "<td> <a href=""Article.asp?ArticleId="&TopicList(0,j)&""" target=""_blank"">"
Response.Write TitleAddColor(TopicList(4,j),Title)
Response.Write "</a>"
Response.Write " <font color=#AAAAAA>"&FormatDateTime(TopicList(2,j),2)&" Review:"&TopicList(3,j)&"</font>"
If FormatDateTime(TopicList(2,j),2)=FormatDateTime(Now,2) Then Response.write " <Img src=""images/new.gif"" border=""0"" align=""absmiddle"">"&Chr(10)
Response.Write "</td>"&Chr(10)
Response.Write "</tr>"&Chr(10)
Response.Write "</table>"&Chr(10)
Response.Write "</td>"&Chr(10)
Response.Write "</tr>"&Chr(10)
Next
Else
Response.Write "<tr><td align=center height=50>此栏目暂时没有文章</td></tr>"&Chr(10)
End If
Response.Write "</table>"&Chr(10)
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&Chr(10)
Response.Write "<tr>"&Chr(10)
Response.Write "<td height=""1"" background=""Images/DotLine.gif""> </td>"&Chr(10)
Response.Write "</tr>"&Chr(10)
Response.Write "</table>"&Chr(10)
Next
End If
End Function
Function SiteColumnNav(ColumnId,ColumnCode)
Dim TempArray,TempStr
Dim i,StepLen,SourCode
SourCode=Left(ColumnCode,4)
SQL="Select [Id],Code,Title,Info,[Type],CountNum From [NB_Column] Where Left(Code,4) Like '"&SourCode&"' Or Len(Code)=4 Order By Code"
Set Rs=Conn.Execute(SQL)
TempStr="<table border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"" width=""98%"">"
If Not rs.eof And Not rs.bof Then
TempArray=Rs.GetRows()
For i=0 To UBound(TempArray,2)
StepLen=(Len(TempArray(1,i))/4)*2-2
TempStr=TempStr&"<tr><td align=""left"" height=""22""> "
If Len(TempArray(1,i))>4 Then
TempStr=TempStr&"├"
TempStr=TempStr&String(StepLen,"-")
End If
If CLng(TempArray(0,i))=CLng(ColumnId) Then
TempStr=TempStr&"<img src=""pic/icon2.gif"" align=absmiddle>"
Else
TempStr=TempStr&"<img src=""pic/icon.gif"" align=absmiddle>"
End If
If TempArray(4,i) Then TempStr=TempStr&"[专题] "
TempStr=TempStr&"<a href=""list.asp?classid="&TempArray(0,i)&""">"&TempArray(2,i)
TempStr=TempStr&"</a> <font color=aaaaaa>("&TempArray(5,i)&")</font>"
TempStr=TempStr&"</td>"
TempStr=TempStr&"</tr>"
Next
End If
TempStr=TempStr&"</table>"
SiteColumnNav=TempStr
End Function
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?