admin_makelist.asp

来自「关于网络渗透技术的详细讲解」· ASP 代码 · 共 490 行 · 第 1/2 页

			If Field="CommentNum" Then TopicNav=TopicNav&"↑"
		End If
		TopicNav=TopicNav&"<strong><font color=""#FFFFFF"">回复</font></strong></a></td>"&Chr(10)
		TopicNav=TopicNav&"</tr>"
		TopicNav=TopicNav&"</table>"

		PageContent=NBArticle_HTML.Template(5,0)

		PageContent=Replace(PageContent,"{$ColumnId$}",ColumnId)
		PageContent=Replace(PageContent,"{$ColumnName$}",ColumnInfo(1,0))
		PageContent=Replace(PageContent,"{$ColumnInfo$}",ColumnInfo(9,0))
		PageContent=Replace(PageContent,"{$ColumnTopicTotal$}",ColumnInfo(5,0))
		PageContent=Replace(PageContent,"{$ColumnMangerTopicTotal$}",ColumnInfo(7,0))
		PageContent=Replace(PageContent,"{$ColumnTitleNav$}",TopicNav)
		PageContent=Replace(PageContent,"{$ColumnFriend$}",ColumnFriend)
		PageContent=Replace(PageContent,"{$ColumnChild$}",ColumnChild(ColumnInfo(0,0),ColumnInfo(2,0)))

		Call NBArticle_HTML.FindGetArticleTag(PageContent)

		SQL="select count(id) from [NB_Content] where ColumnCode like '"&ColumnInfo(2,0)&"%' and ispass=-1 and isdel=0"
		Set Rs=Conn.Execute(SQL)
		RCount=Rs(0)

		If (RCount Mod PageSize)=0 Then
			PCount= RCount \ PageSize
		Else
			PCount= (RCount \ PageSize)+1
		End If
		
		If PCount>0 Then 
			For i=1 To PCount
				If Rs.State=1 Then Rs.Close
				SQL="select [ID],TColor,Title,AddDate,CommentNum,Summary,lastcomment,viewnum,IsImg,Img,IsTop from [NB_Content] where ColumnCode like '"&ColumnInfo(2,0)&"%' and ispass=-1 and isdel=0 order by "&Field&" "&Order
				'response.write sql&"<br>"
				rs.open sql,conn,1,1
				If Not rs.eof And Not rs.bof Then
					Rs.AbsolutePosition=Rs.AbsolutePosition+((i-1)*PageSize)
					'If i>1 Then Rs.Move PageSize*(i-1)
					Tmp=Rs.GetRows(PageSize)
					Rs.Close

					TopicJSList=Chr(10)&Chr(13)&"<script language=""JavaScript"">"&Chr(10)&Chr(13)
					TopicJSList=TopicJSList&"var RCount="&UBound(Tmp,2)&";"&Chr(10)&Chr(13)
					TopicJSList=TopicJSList&"var TopicList=[];"&Chr(10)&Chr(13)
					
					'生成js数组
					For j=0 To Ubound(Tmp,2)
						TopicJSList=TopicJSList&"TopicList["&j&"]='"
						TopicJSList=TopicJSList&Tmp(0,j)&"|||"
						TopicJSList=TopicJSList&Tmp(1,j)&"|||"
						TopicJSList=TopicJSList&HTMLTitle(Tmp(2,j))&"|||"
						TopicJSList=TopicJSList&FormatDateTime(Tmp(3,j),2)&"|||"
						TopicJSList=TopicJSList&Tmp(4,j)&"|||"
						TopicJSList=TopicJSList&DealJsText(Tmp(5,j))&"|||"
						TopicJSList=TopicJSList&UnHTMLEncode(Tmp(6,j))&"|||"
						TopicJSList=TopicJSList&Tmp(7,j)&"|||"
						TopicJSList=TopicJSList&Tmp(8,j)&"|||"
						TopicJSList=TopicJSList&Tmp(9,j)&"|||"
						TopicJSList=TopicJSList&Tmp(10,j)&"';"&Chr(10)&Chr(13)
					Next
					TopicJSList=TopicJSList&"</script>"
					
					TopicJSList=TopicJSList&"<SPAN ID=CommentList>正在读取...</SPAN>"&Chr(10)
					
					PageNumNav=PageList(i,PCount,"Article_"&ColumnId&"_"&Field&"_"&Order&"_")

				End If
				
				TempStr=PageContent
				TempStr=Replace(TempStr,"{$TopicList$}",TopicJSList)
				TempStr=Replace(TempStr,"{$PageNumNav$}",PageNumNav)
				TempStr=TempStr&"<script language=""JavaScript"" src=""js/exChangeStyle.js""></script>"
				TempStr=TempStr&"<script language=javascript>ShowList("&ColumnInfo(8,0)&");</script>"
				
				TempStr=Replace(TempStr,"images/","../Images/")
				TempStr=Replace(TempStr,"pic/","../pic/")
				TempStr=Replace(TempStr,"js/","../js/")
				
				TempStr=Replace(TempStr,"ArticleView/","../ArticleView/")
				
				FileName=Server.MapPath("../ArticleList/Article_"&ColumnId&"_"&Field&"_"&Order&"_"&i&".Htm")

				Set S = Server.CreateObject("ADODB.STREAM")
				With S
					.Open
					.Charset = "GB2312"
					.WriteText PageTop&TempStr&PageFoot
					.SaveToFile FileName,2
					.Close
				End With
				Set S = Nothing
			Next
		Else
			PageContent=Replace(PageContent,"{$TopicList$}","&nbsp;·<font color=""3366cc"">暂无任何内容！</font>")
			PageContent=Replace(PageContent,"{$PageNumNav$}","")
				
			PageContent=Replace(PageContent,"images/","../Images/")
			PageContent=Replace(PageContent,"pic/","../pic/")
			PageContent=Replace(PageContent,"js/","../js/")
			
			PageContent=Replace(PageContent,"ArticleView/","../ArticleView/")

			FileName=Server.MapPath("../ArticleList/Article_"&ColumnId&"_"&Field&"_"&Order&"_1.Htm")

			Set S = Server.CreateObject("ADODB.STREAM")
			With S
				.Open
				.Charset = "GB2312"
				.WriteText PageTop&PageContent&PageFoot
				.SaveToFile FileName,2
				.Close
			End With
			Set S = Nothing

		End If

End Function

Function GetColumnInfo(ColumnId)
	'****---------栏目信息----------
	Dim Ds1
	'0=id，1=名称，2=code，3=是否连接外部，4=外部连接地址，5=文章总数，6=浏览次数，7=待审文章数，8=风格参数，9=栏目简介
	SQL="select id,title,Code,isout,outurl,CountNum,ViewNum,mangernum,StyleId,info from [NB_Column] where id="&ColumnId
	Set Rs=Conn.Execute(SQL)
	If Not rs.eof And Not rs.bof Then Ds1=rs.getrows()
	GetColumnInfo=Ds1
End Function

Function GetColumnFriend(ColumnId)
	'****---------友情链接--------
	Dim ImgList,TxtList
	Dim TempStr,i

	SQL="SELECT Top 5 LINKNAME,LINKURL,LINKIMGPATH,LINKINFO FROM [NB_FriendLink] where columnid="&ColumnId&" and style=1 and state=-1 order by ordernum Desc,Id"
	Set Rs=Conn.Execute(SQL)
	If Not Rs.Eof And Not Rs.Bof Then ImgList=rs.getrows()

	SQL="SELECT Top 12 LINKNAME,LINKURL,LINKIMGPATH,LINKINFO FROM [NB_FriendLink] where columnid="&ColumnId&" and style=0 and state=-1 order by ordernum Desc,Id"
	Set Rs=Conn.Execute(SQL)
	If Not Rs.Eof And Not Rs.Bof Then TxtList=rs.getrows()

	TempStr="<table border=""0"" cellpadding=""2"" cellspacing=""2"" align=""center"" width=""100%"">"
	If IsArray(ImgList) Then 
		TempStr=TempStr&"<tr>"
		For i=0 To UBound(ImgList,2)
			TempStr=TempStr&"<td width=""25%"" align=""center""><a href="""&ImgList(1,i)&""" target=""_blank""><img src="""&ImgList(2,i)&""" border=0 align=""absmiddle"" alt="""&ImgList(0,i)&"""></a></td>"

			If (i+1) Mod 2 =0 Then TempStr=TempStr&"</tr><tr>"
		Next
	End If

	If IsArray(TxtList) Then 
		TempStr=TempStr&"<tr>"
		For i=0 To UBound(TxtList,2)
			TempStr=TempStr&"<td width=""25%"" align=""center"">·<a href="""&TxtList(1,i)&""" target=""_blank"" title="""&TxtList(0,i)&""">"&TxtList(0,i)&"</a>·</td>"

			If (i+1) Mod 2 =0 Then TempStr=TempStr&"</tr><tr>"
		Next
	End If
	TempStr=TempStr&"</table>"

	GetColumnFriend=TempStr
End Function

Function ColumnChild(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 (Code Like '"&SourCode&"%' And Len(Code)<="&Len(ColumnCode)+4&") Or Len(Code)=4 Order By Code"
	'Response.Write sql&"<br>"
	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"">&nbsp;"
			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=""../ArticleList/Article_"&TempArray(0,i)&"_AddDate_Desc_1.Htm"">"&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>"
	
	ColumnChild=TempStr
End Function

Function PageList(iCurrentPage,iPageCount,Http)
	Dim OutStr
	Dim i

	If Clng(iCurrentPage)<=1 Then 
		OutStr=OutStr&"&nbsp;<font color=""#666666"">[首页]</font>"
		OutStr=OutStr&"&nbsp;<font color=""#666666"">[上一页]</font>"
	Else
		OutStr=OutStr&"&nbsp;<a href='"
		OutStr=OutStr&Http&"1.Htm'>"
		OutStr=OutStr&"<font color=""#800000"">[首页]</font></a>"
		OutStr=OutStr&"&nbsp;<a href='"
		OutStr=OutStr&Http&iCurrentPage-1&".Htm'>"
		OutStr=OutStr&"<font color=""#800000"">[上一页]</font></a>"
	End If

	OutStr=OutStr&"&nbsp;"

	If Clng(iCurrentPage)>=iPageCount Then 
		OutStr=OutStr&"<font color=""#666666"">[下一页]</font>"
		OutStr=OutStr&"&nbsp;<font color=""#666666"">[尾页]</font>"	
	Else
		OutStr=OutStr&"<a href='"
		OutStr=OutStr&Http&iCurrentPage+1&".Htm'>"
		OutStr=OutStr&"<font color=""#800000"">[下一页]</font></a>"
		OutStr=OutStr&"&nbsp;<a href='"
		OutStr=OutStr&Http&iPageCount&".Htm'>"
		OutStr=OutStr&"<font color=""#800000"">[尾页]</font></a>"	
	End If
	
	OutStr=OutStr&"&nbsp;&nbsp;"&Clng(iCurrentPage)&"/"&iPageCount&"&nbsp;&nbsp;"

	OutStr=OutStr&"<INPUT TYPE=text class=iptA size=3 value="&iCurrentPage&" onmouseover='this.focus();this.select()' NAME=PGNumber> <INPUT TYPE=button id=button1 name=button1 class=btnA value=GO onclick="&""""&"if(document.all.PGNumber.value>0 && document.all.PGNumber.value<="&iPageCount&"){window.location='"&Http&"'+document.all.PGNumber.value+'.Htm'}"&""""&" onmouseover='this.focus()' onfocus='this.blur()'>&nbsp;"

	PageList=OutStr
End Function
%>