⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 create_newcommendcls.asp

📁 多用户管理分权限发布、管理软件信息； 　自由选择系统默认为静态HTML或动态ASP； 　无限制添加下载服务器
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
				i = 0
				TempString = Newasp.mainhtml(14)
				Do While Not Rs.EOF And i < CLng(maxperpage)
					TempString = TempString & Newasp.mainhtml(15)
					If Rs("SoftSize") > 1024 Then
						SoftSize = Round(Rs("SoftSize") / 1024, 2) & " MB"
					Else
						SoftSize = Rs("SoftSize") & " KB "
					End If
					If Rs("SoftTime") >= Date Then
						SoftTime = "<FONT color=red>" & FormatDateTime(Rs("SoftTime"), 2) & "</FONT >"
					Else
						SoftTime = FormatDateTime(Rs("SoftTime"), 2)
					End If
					If CInt(Newasp.Setting(5)) = 0 Then
						SoftName = "<a href='" & Newasp.SetupDir & "Codelist/Catalog" & Rs("sortid") & "/" & Rs("softid") & ".html' title='" & Rs("SoftName") & Rs("SoftVer") & "'>" & Rs("SoftName") & Rs("SoftVer") & "</A>"
						SortName = "<a href='" & Newasp.SetupDir & "codesort/Catalog" & Rs("sortid") & "/codesort_Indate_Desc_1.html'>" & Rs("SortName") & "</a>"
					Else
						SoftName = "<a href='" & Newasp.SetupDir & "Codelist.Asp?id=" & Rs("softid") & "' title='" & Rs("SoftName") & Rs("SoftVer") & "'>" & Rs("SoftName") & Rs("SoftVer") & "</A>"
						SortName = "<a href='" & Newasp.SetupDir & "codesort.Asp?sortid=" & Rs("sortid") & "'>" & Rs("SortName") & "</a>"
					End If
					TempString = Replace(TempString, "{$Grades}", Rs("Grades"))
					TempString = Replace(TempString, "{$SoftSize}", SoftSize)
					TempString = Replace(TempString, "{$SoftName}", SoftName)
					TempString = Replace(TempString, "{$SoftTime}", SoftTime)
					TempString = Replace(TempString, "{$SortName}", SortName)
					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.mainhtml(16)
				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 & "Codelist/Hotsoft_" & 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_codesort.Asp'"">"
		Newasp.admin_footer
	End Sub

	Public Sub HotSoftList()
		Response.Buffer = True
		If Not IsEmpty(Request.Querystring("page")) Then
			CurrentPage = CInt(Request.Querystring("page"))
		Else
			CurrentPage = 1
		End If
		Newasp.LoadTemplates ("")
		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.codesortMenu)
		HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
		NowStats = "热门软件"
		HtmlTitle = "热门软件"
		Set Rs = Server.CreateObject("adodb.recordset")
		maxperpage = CInt(Newasp.mainset(34))
		SQL = "select top " & CInt(Newasp.mainset(33)) & " * from NC_SoftInfo where isLock=0 order by hits desc, SoftTime desc,SoftID 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.mainhtml(14)
			Do While Not Rs.EOF And i < CLng(maxperpage)
				HtmlTempStr = HtmlTempStr & Newasp.mainhtml(15)
				If Rs("SoftSize") > 1024 Then
					SoftSize = Round(Rs("SoftSize") / 1024, 2) & " MB"
				Else
					SoftSize = Rs("SoftSize") & " KB "
				End If
				If Rs("SoftTime") >= Date Then
					SoftTime = "<FONT color=red>" & FormatDateTime(Rs("SoftTime"), 2) & "</FONT >"
				Else
					SoftTime = FormatDateTime(Rs("SoftTime"), 2)
				End If
				If CInt(Newasp.Setting(5)) = 0 Then
					SoftName = "<a href='" & Newasp.SetupDir & "Codelist/Catalog" & Rs("sortid") & "/" & Rs("softid") & ".html' title='" & Rs("SoftName") & Rs("SoftVer") & "'>" & Rs("SoftName") & Rs("SoftVer") & "</A>"
					SortName = "<a href='" & Newasp.SetupDir & "codesort/Catalog" & Rs("sortid") & "/codesort_Indate_Desc_1.html'>" & Rs("SortName") & "</a>"
				Else
					SoftName = "<a href='" & Newasp.SetupDir & "Codelist.Asp?id=" & Rs("softid") & "' title='" & Rs("SoftName") & Rs("SoftVer") & "'>" & Rs("SoftName") & Rs("SoftVer") & "</A>"
					SortName = "<a href='" & Newasp.SetupDir & "codesort.Asp?sortid=" & Rs("sortid") & "'>" & Rs("SortName") & "</a>"
				End If
				HtmlTempStr = Replace(HtmlTempStr, "{$Grades}", Rs("Grades"))
				HtmlTempStr = Replace(HtmlTempStr, "{$SoftSize}", SoftSize)
				HtmlTempStr = Replace(HtmlTempStr, "{$SoftName}", SoftName)
				HtmlTempStr = Replace(HtmlTempStr, "{$SoftTime}", SoftTime)
				HtmlTempStr = Replace(HtmlTempStr, "{$SortName}", SortName)
				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.mainhtml(16)
		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 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=Hotsoft_1.html>首 页</a>&nbsp;&nbsp;"
			HtmlString = HtmlString & "<a href=Hotsoft_" & CurrentPage - 1 & ".html>上一页</a>&nbsp;&nbsp;"
		End If
		If n - CurrentPage < 1 Then
			HtmlString = HtmlString & "下一页&nbsp;&nbsp;尾 页 " & vbCrLf
		Else
			HtmlString = HtmlString & "<a href=Hotsoft_" & (CurrentPage + 1) & ".html>下一页</a>"
			HtmlString = HtmlString & "&nbsp;&nbsp;<a href=Hotsoft_" & 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='Hotsoft_" & 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 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

End Class
%>
123

⌨️ 快捷键说明

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