create_articlecls.asp

来自「多用户管理分权限发布、管理软件信息； 　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 897 行 · 第 1/3 页

ASP
897 行
字号
123
			HtmlTempStr = Replace(HtmlTempStr, "{$NewFileName}", NewFileName)

		Next
		HtmlTempStr = HtmlTempStr & Newasp.temphtml(6)
		Rs.Open SQL, Conn, 1, 1
		If Rs.bof And Rs.EOF Then
			HtmlTempStr = HtmlTempStr & "<tr><td colspan=5 class=Border2>还没有找到任何文章！</td></tr>"
		Else
			Do While Not Rs.EOF
				HtmlTempStr = HtmlTempStr & Newasp.temphtml(7)
				If Rs("InfoTime") >= Date Then
					InfoTime = "<FONT color=red>" & FormatDateTime(Rs("InfoTime"), 2) & "</FONT >"
				Else
					InfoTime = FormatDateTime(Rs("InfoTime"), 2)
				End If
				If CInt(Newasp.Setting(5)) = 0 Then
					Title = "<a href='" & Newasp.SetupDir & "Article/Catalog" & Rs("classid") & "/" & Rs("ID") & ".html'>" & Rs("Title") & "</A>"
					ClassName = "<a href='" & Newasp.SetupDir & "Listing/Catalog" & Rs("classid") & "/Listing_Indate_Desc_1.html'>" & Rs("ClassName") & "</a>"
				Else
					Title = "<a href='" & Newasp.SetupDir & "Article.Asp?id=" & Rs("ID") & "'>" & Rs("Title") & "</A>"
					ClassName = "<a href='" & Newasp.SetupDir & "Listing.Asp?classid=" & Rs("classid") & "'>" & Rs("ClassName") & "</a>"
				End If
				HtmlTempStr = Replace(HtmlTempStr, "{$Hits}", Rs("Hits"))
				HtmlTempStr = Replace(HtmlTempStr, "{$Topic}", Title)
				HtmlTempStr = Replace(HtmlTempStr, "{$InfoTime}", InfoTime)
				HtmlTempStr = Replace(HtmlTempStr, "{$ClassName}", ClassName)
				Rs.movenext
			Loop
		End If
		Rs.Close
		Set Rs = Nothing
		HtmlTempStr = HtmlTempStr & Newasp.mainhtml(10)
		HtmlTempStr = HtmlTempStr & Newasp.mainhtml(4)
		If CInt(Newasp.Setting(5)) = 0 Then
			HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(9))
		Else
			HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(10))
		End If
		HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
		HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
		HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
		HtmlTempStr = Replace(HtmlTempStr, "{$FootMeun}", Newasp.mainset(11))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(7))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(7))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(7, 2))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(7, 3))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(6)}", NewCloud_Ads.AdsColumn(7, 7))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(7))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(7))
		NewArticleInfo = HtmlTempStr
	End Function

	Public Sub Init_CreateHotArticle()
		Server.ScriptTimeout = 99999
		Set NC_Admin = New Check
		NC_Admin.AdminChk = "35"
		NC_Admin.Check
		Newasp.admin_header
		If CInt(Newasp.Setting(5)) = 1 Then Exit Sub
		Newasp.LoadTemplates ("article")
		Style_CSS = Replace(Replace(Newasp.Style_CSS, "{$SetupDir}", Newasp.SetupDir), "{$PicUrl}", Newasp.TempDir)
		HtmlTempStr = Newasp.mainhtml(0) & Newasp.mainhtml(1) & Newasp.mainhtml(2) & Newasp.mainhtml(3)
		HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.ClassMenu)
		HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
		NowStats = "热门文章"
		HtmlTitle = "热门文章"
		Set Rs = Server.CreateObject("adodb.recordset")
		maxperpage = CInt(Newasp.TempSet(14))
		SQL = "select top " & CInt(Newasp.TempSet(13)) & " * from NC_Article where isLock=0 order by hits desc, InfoTime desc,ID desc"
		Rs.Open SQL, Conn, 1, 1
		If Not (Rs.EOF And Rs.bof) Then
			totalnumber = Rs.recordcount
			If (totalnumber Mod maxperpage) = 0 Then
				tempPcount = totalnumber \ maxperpage
			Else
				tempPcount = totalnumber \ maxperpage + 1
			End If
			For CurrentPage = 1 To tempPcount
				Rs.MoveFiRst
				If CurrentPage > tempPcount Then CurrentPage = tempPcount
				If CurrentPage < 1 Then CurrentPage = 1
				Rs.Move (CurrentPage - 1) * maxperpage
				bookmark = Rs.bookmark
				i = 0
				TempString = Newasp.temphtml(9)
				Do While Not Rs.EOF And i < CLng(maxperpage)
					TempString = TempString & Newasp.temphtml(10)
					If Rs("InfoTime") >= Date Then
						InfoTime = "<FONT color=red>" & FormatDateTime(Rs("InfoTime"), 2) & "</FONT >"
					Else
						InfoTime = FormatDateTime(Rs("InfoTime"), 2)
					End If
					If CInt(Newasp.Setting(5)) = 0 Then
						Title = "<a href='" & Newasp.SetupDir & "Article/Catalog" & Rs("classid") & "/" & Rs("ID") & ".html' title='" & Rs("Title") & "'>" & Rs("Title") & "</A>"
						ClassName = "<a href='" & Newasp.SetupDir & "Listing/Catalog" & Rs("classid") & "/Listing_Indate_Desc_1.html'>" & Rs("ClassName") & "</a>"
					Else
						Title = "<a href='" & Newasp.SetupDir & "Article.Asp?id=" & Rs("ID") & "' title='" & Rs("Title") & "'>" & Rs("Title") & "</A>"
						ClassName = "<a href='" & Newasp.SetupDir & "Listing.Asp?classid=" & Rs("classid") & "'>" & Rs("ClassName") & "</a>"
					End If
					TempString = Replace(TempString, "{$Topic}", Title)
					TempString = Replace(TempString, "{$InfoTime}", InfoTime)
					TempString = Replace(TempString, "{$ClassName}", ClassName)
					TempString = Replace(TempString, "{$Hits}", Rs("Hits"))
					Rs.movenext
					i = i + 1
					If i >= maxperpage Then Exit Do
				Loop
				showpage = GetHtmlShowPage(maxperpage, totalnumber, CurrentPage)
				TempString = TempString & Newasp.temphtml(11)
				TempString = Replace(TempString, "{$ShowPage}", showpage)
				HtmlTemplate = HtmlTempStr & TempString & Newasp.mainhtml(4)
				HtmlTemplate = Replace(HtmlTemplate, "{$TopMeun}", Newasp.mainset(9))
				HtmlTemplate = Replace(HtmlTemplate, "{$NowStats}", NowStats)
				HtmlTemplate = Replace(HtmlTemplate, "{$Title}", HtmlTitle)
				HtmlTemplate = Replace(HtmlTemplate, "{$Width}", Newasp.mainset(0))
				HtmlTemplate = Replace(HtmlTemplate, "{$FootMeun}", Newasp.mainset(11))
				HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(7))
				HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(7))
				HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(7, 2))
				HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(7, 3))
				HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(6)}", NewCloud_Ads.AdsColumn(7, 7))
				HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(7))
				HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(7))
				FileName = Newasp.SetupDir & "Article/HotArticle_" & CurrentPage & ".html"
				Newasp.CreateNewFiles FileName, HtmlTemplate
			Next
		End If
		Rs.Close
		Set Rs = Nothing
		NC_Admin.Succeed_Msg ("生成热门文章的HTML页完成!")
		Response.Write "<meta http-equiv=""refresh"" content=""2;url='Create_Listing.Asp'"">"
		Newasp.admin_footer
	End Sub

	Public Sub HotArticleList()
		Response.Buffer = True
		If CInt(Newasp.Setting(5)) = 0 Then Response.redirect (Newasp.SetupDir & "Article/HotArticle.html")
		If Not IsEmpty(Request.Querystring("page")) Then
			CurrentPage = CInt(Request.Querystring("page"))
		Else
			CurrentPage = 1
		End If
		Newasp.LoadTemplates ("article")
		Style_CSS = Replace(Replace(Newasp.Style_CSS, "{$SetupDir}", Newasp.SetupDir), "{$PicUrl}", Newasp.TempDir)
		HtmlTempStr = Newasp.mainhtml(0) & Newasp.mainhtml(1) & Newasp.mainhtml(2) & Newasp.mainhtml(3)
		HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.ClassMenu)
		HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
		NowStats = "热门文章"
		HtmlTitle = "热门文章"
		Set Rs = Server.CreateObject("adodb.recordset")
		maxperpage = CInt(Newasp.TempSet(14))
		SQL = "select top " & CInt(Newasp.TempSet(13)) & " * from NC_Article where isLock=0 order by hits desc, InfoTime desc,ID desc"
		Rs.Open SQL, Conn, 1, 1
		If Not (Rs.EOF And Rs.bof) Then
			totalnumber = Rs.recordcount
			If (totalnumber Mod maxperpage) = 0 Then
				tempPcount = totalnumber \ maxperpage
			Else
				tempPcount = totalnumber \ maxperpage + 1
			End If
			Rs.MoveFiRst
			If CurrentPage > tempPcount Then CurrentPage = tempPcount
			If CurrentPage < 1 Then CurrentPage = 1
			Rs.Move (CurrentPage - 1) * maxperpage
			bookmark = Rs.bookmark
			i = 0
			HtmlTempStr = HtmlTempStr & Newasp.temphtml(9)
			Do While Not Rs.EOF And i < CLng(maxperpage)
				HtmlTempStr = HtmlTempStr & Newasp.temphtml(10)
				If Rs("InfoTime") >= Date Then
					InfoTime = "<FONT color=red>" & FormatDateTime(Rs("InfoTime"), 2) & "</FONT >"
				Else
					InfoTime = FormatDateTime(Rs("InfoTime"), 2)
				End If
				If CInt(Newasp.Setting(5)) = 0 Then
					Title = "<a href='" & Newasp.SetupDir & "Article/Catalog" & Rs("classid") & "/" & Rs("ID") & ".html' title='" & Rs("Title") & "'>" & Rs("Title") & "</A>"
					ClassName = "<a href='" & Newasp.SetupDir & "Listing/Catalog" & Rs("classid") & "/Listing_Indate_Desc_1.html'>" & Rs("ClassName") & "</a>"
				Else
					Title = "<a href='" & Newasp.SetupDir & "Article.Asp?id=" & Rs("ID") & "' title='" & Rs("Title") & "'>" & Rs("Title") & "</A>"
					ClassName = "<a href='" & Newasp.SetupDir & "Listing.Asp?classid=" & Rs("classid") & "'>" & Rs("ClassName") & "</a>"
				End If
				HtmlTempStr = Replace(HtmlTempStr, "{$Topic}", Title)
				HtmlTempStr = Replace(HtmlTempStr, "{$InfoTime}", InfoTime)
				HtmlTempStr = Replace(HtmlTempStr, "{$ClassName}", ClassName)
				HtmlTempStr = Replace(HtmlTempStr, "{$Hits}", Rs("Hits"))
				Rs.movenext
				i = i + 1
				If i >= maxperpage Then Exit Do
			Loop
		End If
		Rs.Close
		Set Rs = Nothing
		HtmlTempStr = HtmlTempStr & Newasp.temphtml(11)
		HtmlTempStr = Replace(HtmlTempStr, "{$ShowPage}", GetAspShowPage(maxperpage, totalnumber, CurrentPage))
		HtmlTempStr = HtmlTempStr & Newasp.mainhtml(4)
		If CInt(Newasp.Setting(5)) = 0 Then
			HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(9))
		Else
			HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(10))
		End If
		HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
		HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
		HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
		HtmlTempStr = Replace(HtmlTempStr, "{$FootMeun}", Newasp.mainset(11))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(7))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(7))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(7, 2))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(7, 3))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(6)}", NewCloud_Ads.AdsColumn(7, 7))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(7))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(7))
		Response.Write HtmlTempStr
	End Sub

	Private Function GetHtmlShowPage(maxperpage, totalnumber, CurrentPage)
		Dim ii
		Dim n
		Dim HtmlString
		If totalnumber Mod maxperpage = 0 Then
			n = totalnumber \ maxperpage
		Else
			n = totalnumber \ maxperpage + 1
		End If
		HtmlString = HtmlString & "<table cellspacing=1 width='100%' border=0><form method=Post onChange=""submit()""><tr><td align=center> " & vbCrLf
		HtmlString = HtmlString & "<font color='red'>热门文章</font> " & vbCrLf
		If CurrentPage < 2 Then
			HtmlString = HtmlString & "" & totalnumber & "个&nbsp;&nbsp;首 页&nbsp;&nbsp;上一页&nbsp;&nbsp;"
		Else
			HtmlString = HtmlString & "" & totalnumber & "个&nbsp;&nbsp;<a href=HotArticle_1.html>首 页</a>&nbsp;&nbsp;"
			HtmlString = HtmlString & "<a href=HotArticle_" & CurrentPage - 1 & ".html>上一页</a>&nbsp;&nbsp;"
		End If
		If n - CurrentPage < 1 Then
			HtmlString = HtmlString & "下一页&nbsp;&nbsp;尾 页 " & vbCrLf
		Else
			HtmlString = HtmlString & "<a href=HotArticle_" & (CurrentPage + 1) & ".html>下一页</a>"
			HtmlString = HtmlString & "&nbsp;&nbsp;<a href=HotArticle_" & n & ".html>尾 页</a>" & vbCrLf
		End If
		HtmlString = HtmlString & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页"
		HtmlString = HtmlString & "&nbsp;<b>" & maxperpage & "</b>个/页" & vbCrLf
		HtmlString = HtmlString & "&nbsp;转到："
		HtmlString = HtmlString & "<select name='page' size='1' style=""font-size: 9pt"" onChange='javascript:window.open(this.options[this.selectedIndex].value,""_top"")'>" & vbCrLf
		For ii = 1 To n
			HtmlString = HtmlString & "&nbsp;<option value='HotArticle_" & ii & ".html' "
			If CurrentPage = CInt(ii) Then
				HtmlString = HtmlString & "selected "
			End If
			HtmlString = HtmlString & ">第" & ii & "页</option>"
		Next
		HtmlString = HtmlString & "&nbsp;</select> " & vbCrLf
		HtmlString = HtmlString & "</td></tr></FORM></table>" & vbCrLf
		GetHtmlShowPage = HtmlString
	End Function

	Private Function GetAspShowPage(maxperpage, totalnumber, CurrentPage)
		Dim ii
		Dim n
		Dim HtmlString
		If totalnumber Mod maxperpage = 0 Then
			n = totalnumber \ maxperpage
		Else
			n = totalnumber \ maxperpage + 1
		End If
		HtmlString = HtmlString & "<table cellspacing=1 width='100%' border=0><form method=Post onChange=""submit()""><tr><td align=center> " & vbCrLf
		HtmlString = HtmlString & "<font color='red'>热门文章</font> " & vbCrLf
		If CurrentPage < 2 Then
			HtmlString = HtmlString & "" & totalnumber & "个&nbsp;&nbsp;首 页&nbsp;&nbsp;上一页&nbsp;&nbsp;"
		Else
			HtmlString = HtmlString & "" & totalnumber & "个&nbsp;&nbsp;<a href=?page=1>首 页</a>&nbsp;&nbsp;"
			HtmlString = HtmlString & "<a href=?page=" & CurrentPage - 1 & ">上一页</a>&nbsp;&nbsp;"
		End If
		If n - CurrentPage < 1 Then
			HtmlString = HtmlString & "下一页&nbsp;&nbsp;尾 页 " & vbCrLf
		Else
			HtmlString = HtmlString & "<a href=?page=" & (CurrentPage + 1) & ">下一页</a>"
			HtmlString = HtmlString & "&nbsp;&nbsp;<a href=?page=" & n & ">尾 页</a>" & vbCrLf
		End If
		HtmlString = HtmlString & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页"
		HtmlString = HtmlString & "&nbsp;<b>" & maxperpage & "</b>个/页" & vbCrLf
		HtmlString = HtmlString & "&nbsp;转到："
		HtmlString = HtmlString & "<select name='page' size='1' style=""font-size: 9pt"" onChange='javascript:window.open(this.options[this.selectedIndex].value,""_top"")'>" & vbCrLf
		For ii = 1 To n
			HtmlString = HtmlString & "&nbsp;<option value='?page=" & ii & "' "
			If CurrentPage = CInt(ii) Then
				HtmlString = HtmlString & "selected "
			End If
			HtmlString = HtmlString & ">第" & ii & "页</option>"
		Next
		HtmlString = HtmlString & "&nbsp;</select> " & vbCrLf
		HtmlString = HtmlString & "</td></tr></FORM></table>" & vbCrLf
		GetAspShowPage = HtmlString
	End Function

	Private Sub UpdateAllArticle()
		Newasp.Execute ("update NC_Article set isUpdate=1")
		Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
	End Sub
End Class
%>
123

create_articlecls.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息； 　自由选择系统默认为静态HTML或动态ASP； 　无限制添加下载服务器」中的 create_articlecls.asp 源码文件，采用 ASP 编程语言编写，共 897 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与HTML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?