catalog.asp

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

<!--#include file="conn.asp" -->
<!--#include file="inc/const.asp"-->
<%
Dim NewCloud_Ads
Dim NowStats
Dim HtmlTitle
Dim Style_CSS
Dim HtmlTempStr
Dim FileName
Init_CreateCatalog

Public Sub Init_CreateCatalog()
	Server.ScriptTimeOut = 99999
	Newasp.LoadTemplates ("")
	Set NewCloud_Ads = New Adcolumn_Cls
	NowStats = "软件分类"
	HtmlTitle = "软件分类"
	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) & Newasp.mainhtml(5) & Newasp.mainhtml(4)
	HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.SortingMenu)
	HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
	HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
	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, "{$FootMeun}", Newasp.mainset(11))
	HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
	HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
	HtmlTempStr = Replace(HtmlTempStr, "{$Catalog}", CatalogInfo)
	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 CatalogInfo()
	Dim Rs
	Dim Rs_c
	Dim HtmlString
	Dim TotalNumber
	Dim TotalNum
	Dim i
	Set Rs = CreateObject("adodb.recordset")
	Set Rs_c = CreateObject("adodb.recordset")
	HtmlString = HtmlString & "<TABLE width=""99%"" bgcolor=""#CECECE"" cellSpacing=1 cellPadding=5 align=center border=0>" & vbCrLf
	HtmlString = HtmlString & " <TR>" & vbCrLf
	HtmlString = HtmlString & "    <TD colspan=""2"" align=center class=Border1>∷软件分类∷</TD>" & vbCrLf
	HtmlString = HtmlString & "    </TR>"
	Rs.Open "select * from NC_softSort Where depth = 0 order by sortid asc", conn, 1, 1
	If Not (Rs.bof And Rs.EOF) Then
		Do While Not Rs.EOF
			HtmlString = HtmlString & " <TR>" & vbCrLf
			HtmlString = HtmlString & "    <TD width=""15%"" align=center class=Border1>"
			If CInt(Newasp.Setting(5)) = 0 Then
				HtmlString = HtmlString & "<a href='" & Newasp.SetupDir & "Sorting/Catalog" & Rs("sortid") & "/Sorting_Indate_Desc_1.html' title='" & Rs("readme") & "<BR>共有软件：" & Rs("SoftNum") & " 个'>" & Rs("sortName") & "</a> "
			Else
				HtmlString = HtmlString & "<a href='" & Newasp.SetupDir & "Sorting.Asp?sortid=" & Rs("sortid") & "' title='" & Rs("readme") & "<BR>共有软件：" & Rs("SoftNum") & " 个'>" & Rs("sortName") & "</a> "
			End If
			HtmlString = HtmlString & "</TD>    <TD width=""85%"" class=Border2>" & vbCrLf
			Rs_c.Open "select * from NC_softSort where depth <> 0 and rootid=" & Rs("rootid") & " order by sortid asc", conn, 1, 1
			If Rs_c.bof And Rs_c.EOF Then
				HtmlString = HtmlString & "没有添加分类"
			Else
				TotalNumber = Rs_c.recordcount
				i = 1
				Do While Not Rs_c.EOF
					If CInt(Newasp.Setting(5)) = 0 Then
						HtmlString = HtmlString & "<a href='" & Newasp.SetupDir & "Sorting/Catalog" & Rs_c("sortid") & "/Sorting_Indate_Desc_1.html' title='" & Rs_c("readme") & "<BR>共有软件：" & Rs_c("SoftNum") & " 个'>" & Rs_c("sortName") & "</a> &nbsp; " & vbCrLf
					Else
						HtmlString = HtmlString & "<a href='" & Newasp.SetupDir & "Sorting.Asp?sortid=" & Rs_c("sortid") & "' title='" & Rs_c("readme") & "<BR>共有软件：" & Rs_c("SoftNum") & " 个'>" & Rs_c("sortName") & "</a> &nbsp; " & vbCrLf
					End If
					If (i Mod CInt(Newasp.mainset(28))) = 0 And i <> TotalNumber Then
						HtmlString = HtmlString & " <br>"
					End If
					i = i + 1
					Rs_c.movenext
				Loop
			End If
			Rs_c.Close
			HtmlString = HtmlString & "  </TD>" & vbCrLf
			HtmlString = HtmlString & " </TR>" & vbCrLf
			Rs.movenext
		Loop
	End If
	Rs.Close
	HtmlString = HtmlString & " <TR>" & vbCrLf
	HtmlString = HtmlString & "    <TD colspan=""2"" align=center class=Border1>∷文章分类∷</TD>" & vbCrLf
	HtmlString = HtmlString & "    </TR>"
	Rs.Open "select * from NC_class Where depth = 0 order by classid asc", conn, 1, 1
	If Not (Rs.bof And Rs.EOF) Then
		Do While Not Rs.EOF
			HtmlString = HtmlString & " <TR>" & vbCrLf
			HtmlString = HtmlString & "    <TD align=center class=Border1>"
			If CInt(Newasp.Setting(5)) = 0 Then
				HtmlString = HtmlString & "<a href='" & Newasp.SetupDir & "Listing/Catalog" & Rs("classid") & "/Listing_Indate_Desc_1.html' title='" & Rs("readme") & "<BR>共有文章：" & Rs("ArticleNum") & " 篇'>" & Rs("className") & "</a> "
			Else
				HtmlString = HtmlString & "<a href='" & Newasp.SetupDir & "Listing.Asp?classid=" & Rs("classid") & "' title='" & Rs("readme") & "<BR>共有文章：" & Rs("ArticleNum") & " 篇'>" & Rs("className") & "</a> "
			End If
			HtmlString = HtmlString & "</TD>    <TD class=Border2>" & vbCrLf
			Rs_c.Open "select * from NC_class where depth <> 0 and rootid = " & Rs("rootid") & " order by classid asc", conn, 1, 1
			If Rs_c.bof And Rs_c.EOF Then
				HtmlString = HtmlString & "没有添加分类"
			Else
				TotalNum = Rs_c.recordcount
				i = 1
				Do While Not Rs_c.EOF
					If CInt(Newasp.Setting(5)) = 0 Then
						HtmlString = HtmlString & "<a href='" & Newasp.SetupDir & "Listing/Catalog" & Rs_c("classid") & "/Listing_Indate_Desc_1.html' title='" & Rs_c("readme") & "<BR>共有文章：" & Rs_c("ArticleNum") & " 篇'>" & Rs_c("className") & "</a> &nbsp; " & vbCrLf
					Else
						HtmlString = HtmlString & "<a href='" & Newasp.SetupDir & "Listing.Asp?classid=" & Rs_c("classid") & "' title='" & Rs_c("readme") & "<BR>共有文章：" & Rs_c("ArticleNum") & " 篇'>" & Rs_c("className") & "</a> &nbsp; " & vbCrLf
					End If
					If (i Mod CInt(Newasp.mainset(28))) = 0 And i <> TotalNum Then
						HtmlString = HtmlString & "<br>"
					End If
					i = i + 1
					Rs_c.movenext
				Loop
			End If
			Rs_c.Close
			HtmlString = HtmlString & "</TD>" & vbCrLf
			HtmlString = HtmlString & " </TR>" & vbCrLf
			Rs.movenext
		Loop
	End If
	Rs.Close
	HtmlString = HtmlString & "</TABLE>" & vbCrLf
	HtmlString = HtmlString & "<BR style=""OVERFLOW: hidden; LINE-HEIGHT: 3px"">" & vbCrLf
	Set Rs_c = Nothing
	Set Rs = Nothing
	CatalogInfo = HtmlString
End Function
%>