create_catalog.asp

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

<!--#include file="setup.asp" -->
<%
Dim NewCloud_Ads
Dim NowStats
Dim HtmlTitle
Dim Style_CSS
Dim HtmlTempStr
Dim FileName
NC_Admin.AdminChk = "32"
NC_Admin.Check
Newasp.admin_header
Init_CreateCatalog
Newasp.admin_footer
Public Sub Init_CreateCatalog()
        On Error Resume Next
        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))
        FileName = Newasp.SetupDir & "Sorting/Index.html"
        Newasp.CreateNewFiles FileName, HtmlTempStr
		NC_Admin.Succeed_Msg ("生成总分类的HTML页完成!")
		Response.Write "<meta http-equiv=""refresh"" content=""2;url='Create_Sorting.Asp'"">"
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
%>