91精品国产91久久久久久一区二区,亚洲男同性恋视频

主頁 > 知識庫 > 文章列表類別

文章列表類別

%
Dim HTML
Set HTML = New NewaspPublic_Cls
Class NewaspPublic_Cls

    Private Sub Class_Initialize()
        On Error Resume Next
        Newasp.LoadTemplates 0, 0, 0
    End Sub
    '================================================
    '函數(shù)名：LoadArticleList
    '作  用：裝載文章列表
    '參  數(shù)：ClassID   ----分類ID
    '        ChannelID   ----頻道ID
    '        SpecialID  ----專題ID
    '        sType   ----調(diào)用文章類型,0=所有最新文章，1=推薦文章，2=熱門文章，3=圖文文章，4=分類最新文章
    '        TopNum   ----顯示文章列表數(shù)
    '        strlen   ----顯示標(biāo)題長度
    '        ShowClass   ----是否顯示分類
    '        ShowPic   ----是否顯示圖文標(biāo)題
    '        ShowDate   ----是否顯示日期
    '        DateMode   ----顯示日期模式
    '        newindow   ----新窗口打開
    '================================================
    Public Function LoadArticleList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
        ByVal stype, ByVal TopNum, ByVal strLen, _
        ByVal showclass, ByVal showpic, ByVal showdate, _
        ByVal DateMode, ByVal newindow, ByVal styles)

        Dim Rs, SQL, i, strContent, foundstr
        Dim sTitle, sTopic, ChildStr, ListStyle, BestCode, BestString
        Dim ArticleTopic, ClassName, HtmlFileUrl, WriteTime, LinkTarget, HtmlFileName

        ChannelID = Newasp.ChkNumeric(ChannelID)
        ClassID = Newasp.ChkNumeric(ClassID)
        SpecialID = Newasp.ChkNumeric(SpecialID)
        stype = Newasp.ChkNumeric(stype)

        On Error Resume Next
        Newasp.LoadChannel(ChannelID)

        If CInt(stype) >= 4 And CLng(ClassID) > 0 Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID="  ChannelID  " And ClassID="  ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                LoadArticleList = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
            End If
            Set Rs = Nothing
        Else
            ChildStr = "0"
        End If

        Select Case CInt(stype)
            Case 0: foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
            Case 1: foundstr = "And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc"
            Case 2: foundstr = "Order By A.AllHits Desc ,A.Articleid Desc"
            Case 3: foundstr = "And (A.BriefTopic = 1 Or A.BriefTopic = 2) Order By A.Writetime Desc ,A.Articleid Desc"
            Case 4: foundstr = "And A.ClassID in ("  ChildStr  ") Order By A.Writetime Desc ,A.Articleid Desc"
            Case 5: foundstr = "And A.ClassID in ("  ChildStr  ") And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc"
            Case 6: foundstr = "And A.ClassID in ("  ChildStr  ") Order By A.AllHits Desc ,A.Articleid Desc"
            Case 7: foundstr = "And A.ClassID in ("  ChildStr  ") And (A.BriefTopic = 1 Or A.BriefTopic = 2) Order By A.Writetime Desc ,A.Articleid Desc"
        Case Else
            foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
        End Select
        If CInt(stype) >= 4 And CLng(ClassID) = 0 Then
            foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
        End If
        If CLng(SpecialID) > 0 Then
            foundstr = "And A.SpecialID ="  CLng(SpecialID)  " "  foundstr
        End If
        SQL = " A.ArticleID,A.ClassID,A.ColorMode,A.FontMode,A.title,A.BriefTopic,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest,"
        SQL = "SELECT Top "  CInt(TopNum)  SQL  " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml FROM [NC_Article] A INNER JOIn [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID="  ChannelID  " "  foundstr  ""
        Set Rs = Newasp.Execute(SQL)
        i = 0
        If Rs.BOF And Rs.EOF Then
            strContent = "該分類還沒有添加任何內(nèi)容！"
        Else
            strContent = "table width=""100%"" border=0 cellpadding=2 cellspacing=0>"
            Do While Not Rs.EOF
                If (i Mod 2) = 0 Then
                    ListStyle = Trim(styles)  1
                Else
                    ListStyle = Trim(styles)  2
                End If
                If Rs("isBest") > 0 Then
                    BestCode = 2
                    BestString = "font color='"  Newasp.MainSetting(3)  "'>推薦/font>"
                Else
                    BestCode = 1
                    BestString = ""
                End If

                strContent = strContent  Newasp.MainSetting(13)

                sTitle = Newasp.GotTopic(Rs("title"), CInt(strLen))
                sTitle = Newasp.ReadFontMode(sTitle, Rs("ColorMode"), Rs("FontMode"))
                sTopic = Newasp.ReadPicTopic(Rs("BriefTopic"))

                ClassName = Newasp.ReadFontMode(Rs("ClassName"), Rs("ColorModes"), Rs("FontModes"))
                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("ArticleID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                    ClassName = "a href='"  Newasp.ChannelPath  Rs("HtmlFileDir")  "index"  Newasp.ChannelHtmlExt  "'>"  ClassName  "/a>"
                Else
                    HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("ArticleID")
                    ClassName = "a href='"  Newasp.ChannelPath  "list.asp?classid="  Rs("ClassID")  "'>"  ClassName  "/a>"
                End If

                If CInt(showclass) = 0 Then ClassName = ""
                If CInt(showpic) = 0 Then sTopic = ""
                If CInt(showdate) > 0 Then
                    WriteTime = Newasp.ShowDateTime(Rs("WriteTime"), CInt(DateMode))
                Else
                    WriteTime = ""
                End If
                If CInt(newindow) > 0 Then
                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If
                ArticleTopic = "a href='"  HtmlFileUrl  "'"  LinkTarget  " title='"  Newasp.ChannelModule  "標(biāo)題："  Rs("title")  "#13;#10;發(fā)布時間："  Rs("WriteTime")  "#13;#10;閱覽次數(shù)："  Rs("AllHits")  "' class=showlist>"  sTitle  "/a>"
                strContent = Replace(strContent, "{$ArticleTopic}", ArticleTopic)
                strContent = Replace(strContent, "{$ArticleID}", Rs("ArticleID"))
                strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
                strContent = Replace(strContent, "{$ArticleTitle}", sTitle)
                strContent = Replace(strContent, "{$Title}", Rs("title"))
                strContent = Replace(strContent, "{$DateAndTitle}", Rs("WriteTime"))
                strContent = Replace(strContent, "{$BriefTopic}", sTopic)
                strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl)
                strContent = Replace(strContent, "{$ClassName}", ClassName)
                strContent = Replace(strContent, "[]", "")
                strContent = Replace(strContent, "{$Target}", LinkTarget)
                strContent = Replace(strContent, "{$WriteTime}", WriteTime)
                strContent = Replace(strContent, "{$AticleHits}", Rs("AllHits"))
                strContent = Replace(strContent, "{$ListStyle}", ListStyle)
                strContent = Replace(strContent, "{$BestCode}", BestCode)
                strContent = Replace(strContent, "{$BestString}", BestString)
            Rs.MoveNext
            i = i + 1
            Loop
            strContent = strContent  "/table>"
        End If

        Rs.Close: Set Rs = Nothing
        LoadArticleList = strContent
    End Function
    '================================================
    '函數(shù)名：ReadArticleList
    '作  用：讀取文章列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadArticleList(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent
        Dim arrTempContent, arrTempContents, ArrayList
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadArticleList(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticleList(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticleList(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")

            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadArticleList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10), ArrayList(11)))
            Next
        End If
        ReadArticleList = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadSoftList
    '作  用：裝載軟件列表
    '參  數(shù)：ClassID   ----分類ID
    '        ChannelID   ----頻道ID
    '        sType   ----調(diào)用類型
    '        TopNum   ----顯示列表數(shù)
    '        strlen   ----顯示標(biāo)題長度
    '        ShowClass   ----是否顯示分類
    '        ShowDate   ----是否顯示日期
    '        DateMode   ----顯示日期模式
    '        newindow   ----新窗口打開
    '================================================
    Public Function LoadSoftList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
        ByVal stype, ByVal TopNum, ByVal strLen, ByVal showclass, _
        ByVal showdate, ByVal DateMode, ByVal newindow, ByVal styles)

        Dim Rs, SQL, i, strContent, foundstr,j
        Dim strSoftName, ChildStr, ListStyle
        Dim HtmlFileName, BestCode, BestString,ChannelPath
        Dim ClassName, HtmlFileUrl, SoftTime, LinkTarget, SoftTopic

        ChannelID = Newasp.ChkNumeric(ChannelID)
        ClassID = Newasp.ChkNumeric(ClassID)
        SpecialID = Newasp.ChkNumeric(SpecialID)
        stype = Newasp.ChkNumeric(stype)

        On Error Resume Next
        Newasp.LoadChannel(ChannelID)

        If CInt(stype) >= 3 And CLng(ClassID) > 0 Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID="  ChannelID  " And ClassID = "  ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                LoadSoftList = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
            End If
            Rs.Close
        Else
            ChildStr = 0
        End If
        Select Case CInt(stype)
            Case 0: foundstr = "Order By A.SoftTime Desc ,A.SoftID Desc"
            Case 1: foundstr = "And A.isBest > 0 Order By A.SoftTime Desc ,A.SoftID Desc"
            Case 2: foundstr = "Order By A.AllHits Desc ,A.SoftID Desc"
            Case 3: foundstr = "And A.ClassID in ("  ChildStr  ") Order By A.SoftTime Desc ,A.SoftID Desc"
            Case 4: foundstr = "And A.ClassID in ("  ChildStr  ") And A.isBest > 0 Order By A.SoftTime Desc ,A.SoftID Desc"
            Case 5: foundstr = "And A.ClassID in ("  ChildStr  ") Order By A.AllHits Desc ,A.SoftID Desc"
        Case Else
            foundstr = "Order By A.SoftTime Desc ,A.SoftID Desc"
        End Select
        If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
            foundstr = "Order By A.SoftTime Desc ,A.SoftID Desc"
        End If
        If CLng(SpecialID) > 0 Then
            foundstr = "And A.SpecialID ="  CLng(SpecialID)  " "  foundstr
        End If
        SQL = " A.SoftID,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,"
        SQL = "SELECT TOP "  CInt(TopNum)  SQL  " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml FROM [NC_SoftList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID="  ChannelID  " "  foundstr  ""
        Set Rs = Newasp.Execute(SQL)
        j = 0

        If Rs.BOF And Rs.EOF Then
            strContent = "沒有添加任何軟件！"
        Else
            SQL=Rs.GetRows(-1)
            strContent = "table width=""100%"" border=0 cellpadding=2 cellspacing=0>"
            For i=0 To Ubound(SQL,2)
                If (j Mod 2) = 0 Then
                    ListStyle = Trim(styles)  1
                Else
                    ListStyle = Trim(styles)  2
                End If
                If CInt(SQL(9,i)) > 0 Then
                    BestCode = 2
                    BestString = "font color='"  Newasp.MainSetting(3)  "'>推薦/font>"
                Else
                    BestCode = 1
                    BestString = ""
                End If
                strContent = strContent  Newasp.MainSetting(14)
                strSoftName = Newasp.GotTopic(SQL(4,i)  " "  SQL(5,i), CInt(strLen))
                strSoftName = Newasp.ReadFontMode(strSoftName, SQL(2,i), SQL(3,i))
                ClassName = Newasp.ReadFontMode(SQL(10,i), SQL(11,i), SQL(12,i))
                HtmlFileName = Newasp.ReadFileName(SQL(8,i), SQL(0,i), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath  SQL(13,i)  Newasp.ShowDatePath(SQL(8,i), Newasp.ChannelHtmlPath)  HtmlFileName
                    ClassName = "a href='"  Newasp.ChannelPath  SQL(13,i)  "index"  Newasp.ChannelHtmlExt  "'>"  ClassName  "/a>"
                Else
                    HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  SQL(0,i)
                    ClassName = "a href='"  Newasp.ChannelPath  "list.asp?classid="  SQL(1,i)  "'>"  ClassName  "/a>"
                End If
                If CInt(showclass) = 0 Then ClassName = ""
                If CInt(showdate) > 0 Then
                    SoftTime = Newasp.ShowDateTime(SQL(7,i), CInt(DateMode))
                Else
                    SoftTime = ""
                End If
                If CInt(newindow) > 0 Then
                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If
                SoftTopic = "a href='"  HtmlFileUrl  "'"  LinkTarget  " title='"  Newasp.ChannelModule  "名稱："  Trim(SQL(4,i)  " "  SQL(5,i))  "#13;#10;發(fā)布時間："  SQL(7,i)  "#13;#10;下載次數(shù)："  SQL(6,i)  "' class=showlist>"  strSoftName  "/a>"
                strContent = Replace(strContent, "{$SoftTopic}", SoftTopic)
                strContent = Replace(strContent, "{$SoftID}", Rs("softid"))
                strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
                strContent = Replace(strContent, "{$SoftName}", strSoftName)
                strContent = Replace(strContent, "{$Title}", SQL(4,i))
                strContent = Replace(strContent, "{$DateAndTitle}", SQL(7,i))
                strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl)
                strContent = Replace(strContent, "{$ClassName}", ClassName)
                strContent = Replace(strContent, "[]", "")
                strContent = Replace(strContent, "{$Target}", LinkTarget)
                strContent = Replace(strContent, "{$SoftTime}", SoftTime)
                strContent = Replace(strContent, "{$SoftHits}", SQL(6,i))
                strContent = Replace(strContent, "{$ListStyle}", ListStyle)
                strContent = Replace(strContent, "{$BestCode}", BestCode)
                strContent = Replace(strContent, "{$BestString}", BestString)
            j = j + 1
            Next
            SQL=Null
            strContent = strContent  "/table>"
        End If
        Rs.Close: Set Rs = Nothing
        LoadSoftList = strContent
    End Function
    '================================================
    '函數(shù)名：ReadSoftList
    '作  用：讀取軟件列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadSoftList(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent
        Dim arrTempContent, arrTempContents, ArrayList
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadSoftList(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadSoftList(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadSoftList(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadSoftList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10)))
            Next
        End If
        ReadSoftList = strTemp
    End Function

    '================================================
    '函數(shù)名：LoadFlashList
    '作  用：裝載動畫列表
    '參  數(shù)：ClassID   ----分類ID
    '        ChannelID   ----頻道ID
    '        sType   ----調(diào)用類型
    '        TopNum   ----顯示列表數(shù)
    '        strlen   ----顯示標(biāo)題長度
    '        ShowClass   ----是否顯示分類
    '        ShowDate   ----是否顯示日期
    '        DateMode   ----顯示日期模式
    '        newindow   ----新窗口打開
    '================================================
    Public Function LoadFlashList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
        ByVal stype, ByVal TopNum, ByVal strLen, ByVal showclass, _
        ByVal showdate, ByVal DateMode, ByVal newindow, ByVal styles)

        Dim Rs, SQL, i, strContent, foundstr,j
        Dim strTitle, ChildStr, ListStyle
        Dim HtmlFileName, BestCode, BestString,ChannelPath
        Dim ClassName, HtmlFileUrl, addTime, LinkTarget, FlashTopic

        ChannelID = Newasp.ChkNumeric(ChannelID)
        ClassID = Newasp.ChkNumeric(ClassID)
        SpecialID = Newasp.ChkNumeric(SpecialID)
        stype = Newasp.ChkNumeric(stype)

        On Error Resume Next
        Newasp.LoadChannel(ChannelID)

        If CInt(stype) >= 3 And CLng(ClassID) > 0 Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID="  ChannelID  " And ClassID = "  ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                LoadFlashList = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
            End If
            Rs.Close
        Else
            ChildStr = 0
        End If
        Select Case CInt(stype)
            Case 0: foundstr = "Order By A.addTime Desc ,A.flashid Desc"
            Case 1: foundstr = "And A.isBest > 0 Order By A.addTime Desc ,A.flashid Desc"
            Case 2: foundstr = "Order By A.AllHits Desc ,A.flashid Desc"
            Case 3: foundstr = "And A.ClassID in ("  ChildStr  ") Order By A.addTime Desc ,A.flashid Desc"
            Case 4: foundstr = "And A.ClassID in ("  ChildStr  ") And A.isBest > 0 Order By A.addTime Desc ,A.flashid Desc"
            Case 5: foundstr = "And A.ClassID in ("  ChildStr  ") Order By A.AllHits Desc ,A.flashid Desc"
        Case Else
            foundstr = "Order By A.addTime Desc ,A.flashid Desc"
        End Select
        If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
            foundstr = "Order By A.addTime Desc ,A.flashid Desc"
        End If
        If CLng(SpecialID) > 0 Then
            foundstr = "And A.SpecialID ="  CLng(SpecialID)  " "  foundstr
        End If
        SQL = " A.flashid,A.ClassID,A.ColorMode,A.FontMode,A.title,A.Author,A.AllHits,A.addTime,A.HtmlFileDate,A.isBest,"
        SQL = "SELECT TOP "  CInt(TopNum)  SQL  " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml FROM [NC_FlashList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID="  ChannelID  " "  foundstr  ""
        Set Rs = Newasp.Execute(SQL)
        j = 0

        If Rs.BOF And Rs.EOF Then
            strContent = "沒有添加任何信息！"
        Else
            SQL=Rs.GetRows(-1)
            strContent = "table width=""100%"" border=0 cellpadding=2 cellspacing=0>"
            For i=0 To Ubound(SQL,2)
                If (j Mod 2) = 0 Then
                    ListStyle = Trim(styles)  1
                Else
                    ListStyle = Trim(styles)  2
                End If
                If CInt(SQL(9,i)) > 0 Then
                    BestCode = 2
                    BestString = "font color='"  Newasp.MainSetting(3)  "'>推薦/font>"
                Else
                    BestCode = 1
                    BestString = ""
                End If
                strContent = strContent  Newasp.MainSetting(22)
                strTitle = Newasp.GotTopic(SQL(4,i), CInt(strLen))
                strTitle = Newasp.ReadFontMode(strTitle, SQL(2,i), SQL(3,i))
                ClassName = Newasp.ReadFontMode(SQL(10,i), SQL(11,i), SQL(12,i))
                HtmlFileName = Newasp.ReadFileName(SQL(8,i), SQL(0,i), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath  SQL(13,i)  Newasp.ShowDatePath(SQL(8,i), Newasp.ChannelHtmlPath)  HtmlFileName
                    ClassName = "a href='"  Newasp.ChannelPath  SQL(13,i)  "index"  Newasp.ChannelHtmlExt  "'>"  ClassName  "/a>"
                Else
                    HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  SQL(0,i)
                    ClassName = "a href='"  Newasp.ChannelPath  "list.asp?classid="  SQL(1,i)  "'>"  ClassName  "/a>"
                End If
                If CInt(showclass) = 0 Then ClassName = ""
                If CInt(showdate) > 0 Then
                    addTime = Newasp.ShowDateTime(SQL(7,i), CInt(DateMode))
                Else
                    addTime = ""
                End If
                If CInt(newindow) > 0 Then
                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If
                FlashTopic = "a href='"  HtmlFileUrl  "'"  LinkTarget  " title='"  Newasp.ChannelModule  "名稱："  SQL(4,i)  "#13;#10;發(fā)布時間："  SQL(7,i)  "#13;#10;下載次數(shù)："  SQL(6,i)  "' class=showlist>"  strTitle  "/a>"
                strContent = Replace(strContent, "{$FlashTopic}", FlashTopic)
                strContent = Replace(strContent, "{$FlashID}", Rs("flashid"))
                strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
                strContent = Replace(strContent, "{$FlashTopic}", strTitle)
                strContent = Replace(strContent, "{$Title}", SQL(4,i))
                strContent = Replace(strContent, "{$DateAndTime}", SQL(7,i))
                strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl)
                strContent = Replace(strContent, "{$ClassName}", ClassName)
                strContent = Replace(strContent, "[]", "")
                strContent = Replace(strContent, "{$Target}", LinkTarget)
                strContent = Replace(strContent, "{$addTime}", addTime)
                strContent = Replace(strContent, "{$FlashHits}", SQL(6,i))
                strContent = Replace(strContent, "{$ListStyle}", ListStyle)
                strContent = Replace(strContent, "{$BestCode}", BestCode)
                strContent = Replace(strContent, "{$BestString}", BestString)
            j = j + 1
            Next
            SQL=Null
            strContent = strContent  "/table>"
        End If
        Rs.Close: Set Rs = Nothing
        LoadFlashList = strContent
    End Function
    '================================================
    '函數(shù)名：ReadFlashList
    '作  用：讀取動畫列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadFlashList(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent
        Dim arrTempContent, arrTempContents, ArrayList
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadFlashList(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashList(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashList(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadFlashList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10)))
            Next
        End If
        ReadFlashList = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadAnnounceContent
    '作  用：裝載內(nèi)容公告
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function LoadAnnounceContent(ByVal sTopic, ByVal ChannelID)
        Dim SQL, Rs, strTemp
        strTemp = ""
        sTopic = Newasp.CheckStr(sTopic)
        If sTopic > "" And sTopic > "0" Then
            SQL = "Select AnnounceID,Content,PostTime,writer From NC_Announce where AnnounceType=1 And title = '"  sTopic  "' Order By PostTime Desc,AnnounceID Desc"
        Else
            SQL = "Select AnnounceID,Content From NC_Announce where AnnounceType=1 And ChannelID in ("  ChannelID  ",999) Order By PostTime Desc,AnnounceID Desc"
        End If
        Set Rs = Newasp.Execute(SQL)
        If Not (Rs.BOF And Rs.EOF) Then
            strTemp = Rs("Content")
        End If
        Rs.Close: Set Rs = Nothing
        LoadAnnounceContent = strTemp
    End Function
    '================================================
    '函數(shù)名：ReadAnnounceContent
    '作  用：讀取內(nèi)容公告
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadAnnounceContent(ByVal str, ByVal ChannelID)
        Dim strTemp, i, sTempContent, nTempContent, strValue
        Dim arrTempContent, arrTempContents
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$AnnounceContent(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$AnnounceContent(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$AnnounceContent(", ")}", 0)
            If nTempContent = "" Then nTempContent = "0"
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                strValue = arrTempContent(i)
                strTemp = Replace(strTemp, arrTempContents(i), LoadAnnounceContent(strValue, ChannelID))
            Next
        End If
        ReadAnnounceContent = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadAnnounceList
    '作  用：裝載公告列表
    '參  數(shù)：maxnum ----最多公告數(shù)
    '        maxlen ----字符長度
    '        newindow ----是否新窗口打開 1=是，0=否
    '        showdate ----是否顯示時間 1=是，0=否
    '        DateMode ----時間模式
    '        showtree ----樹型顯示
    '================================================
    Public Function LoadAnnounceList(ByVal ChannelID, ByVal maxnum, ByVal maxlen, _
        ByVal newindow, ByVal showdate, ByVal DateMode, ByVal showtree)

        Dim Rs, SQL, strContent
        Dim AnnounceTopic, LinkTarget
        Dim PostTime

        ChannelID = Newasp.ChkNumeric(ChannelID)
        maxnum = Newasp.ChkNumeric(maxnum)
        If maxnum = 0 Then maxnum = 10

        On Error Resume Next
        Set Rs = Newasp.Execute("SELECT TOP "  CInt(maxnum)  " AnnounceID,title,Content,PostTime,writer,hits FROM NC_Announce WHERE (ChannelID="  ChannelID  " Or ChannelID=999) And AnnounceType>1 ORDER BY PostTime DESC,AnnounceID DESC")
        If Rs.BOF And Rs.EOF Then
            LoadAnnounceList = ""
            Set Rs = Nothing
            Exit Function
        Else
            Do While Not Rs.EOF
                If CInt(newindow) > 0 Then
                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If
                If CInt(showdate) > 0 Then
                    PostTime = Newasp.ShowDateTime(Rs("PostTime"), CInt(DateMode))
                Else
                    PostTime = ""
                End If
                AnnounceTopic = Newasp.GotTopic(Rs("title"), CInt(maxlen))
                AnnounceTopic = "a href="""  Newasp.InstallDir  "Announce.Asp?AnnounceID="  Rs("AnnounceID")  """ title="""  Rs("title")  """"  LinkTarget  ">"  AnnounceTopic  "/a>"
                If CInt(showtree) = 1 Then
                    strContent = strContent  "div>· "  AnnounceTopic  "/div>div align=""right"" class=""dottedline"">"  PostTime  "/div>"  vbNewLine
                Else
                    strContent = strContent  "· "  AnnounceTopic  "nbsp;nbsp;"  PostTime  vbNewLine
                End If
                Rs.MoveNext
            Loop
        End If
        LoadAnnounceList = strContent
    End Function
    '================================================
    '函數(shù)名：ReadAnnounceList
    '作  用：讀取公告列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadAnnounceList(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent, ArrayList
        Dim arrTempContent, arrTempContents
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadAnnounceList(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadAnnounceList(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadAnnounceList(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadAnnounceList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6)))
            Next
        End If
        ReadAnnounceList = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadArticlePic
    '作  用：裝載文章圖片列表
    '參  數(shù)：ClassID   ----分類ID
    '        ChannelID   ----頻道ID
    '        sType   ----調(diào)用文章類型,0=所有最新文章，1=推薦文章，2=熱門文章，3=圖文文章，4=分類最新文章
    '        TopNum   ----顯示文章列表數(shù)
    '        strlen   ----顯示標(biāo)題長度
    '        ShowClass   ----是否顯示分類
    '        ShowPic   ----是否顯示圖文標(biāo)題
    '        ShowDate   ----是否顯示日期
    '        DateMode   ----顯示日期模式
    '        newindow   ----新窗口打開
    '================================================
    Public Function LoadArticlePic(ChannelID, ClassID, SpecialID, stype, TopNum, PerRowNum, strLen, newindow, width, height, showtopic)
        Dim Rs, SQL, i, strContent, foundstr
        Dim sTitle, ChildStr, ImageUrl, HtmlFileName
        Dim HtmlFileUrl, WriteTime, LinkTarget

        ChannelID = Newasp.ChkNumeric(ChannelID)
        ClassID = Newasp.ChkNumeric(ClassID)
        SpecialID = Newasp.ChkNumeric(SpecialID)
        stype = Newasp.ChkNumeric(stype)

        On Error Resume Next
        Newasp.LoadChannel(ChannelID)

        If CInt(stype) >= 3 And CLng(ClassID) > 0 Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID="  ChannelID  " And ClassID="  ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                LoadArticlePic = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
            End If
            Set Rs = Nothing
        Else
            ChildStr = 0
        End If
        Select Case CInt(stype)
            Case 0: foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
            Case 1: foundstr = "And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc"
            Case 2: foundstr = "Order By A.AllHits Desc ,A.Articleid Desc"
            Case 3: foundstr = "And A.ClassID in ("  ChildStr  ") Order By A.Writetime Desc ,A.Articleid Desc"
            Case 4: foundstr = "And A.ClassID in ("  ChildStr  ") And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc"
            Case 5: foundstr = "And A.ClassID in ("  ChildStr  ") Order By A.AllHits Desc ,A.Articleid Desc"
        Case Else
            foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
        End Select
        If CInt(stype) >= 4 And CLng(ClassID) = 0 Then
            foundstr = "Order By A.Writetime Desc ,A.Articleid Desc"
        End If
        If CLng(SpecialID) > 0 Then
            foundstr = "And A.SpecialID ="  CLng(SpecialID)  " "  foundstr
        End If
        SQL = " A.ArticleID,A.ClassID,A.title,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest,A.ImageUrl,"
        SQL = "select Top "  CInt(TopNum)  SQL  " C.ClassName,C.HtmlFileDir,C.UseHtml from [NC_Article] A inner join [NC_Classify] C On A.ClassID=C.ClassID where A.isAccept > 0 And A.ImageUrl>'' And A.ChannelID="  ChannelID  " "  foundstr  ""
        Set Rs = Newasp.Execute(SQL)
        If Rs.BOF And Rs.EOF Then
            strContent = "img src='"  Newasp.InstallDir  "images/no_pic.gif' width="  width  " height="  height  " border=0>"
        Else
            strContent = "table width=""100%"" border=0 cellpadding=1 cellspacing=5>"  vbCrLf
            Do While Not Rs.EOF

                strContent = strContent  "tr>"  vbCrLf
                For i = 1 To CInt(PerRowNum)
                    strContent = strContent  "td align=""center"" class=""imagelist"">"
                    If Not Rs.EOF Then
                        sTitle = Newasp.GotTopic(Rs("title"), CInt(strLen))
                        ImageUrl = Newasp.GetImageUrl(Rs("ImageUrl"), Newasp.ChannelData(1))
                        ImageUrl = Newasp.GetFlashAndPic(ImageUrl, height, width)

                        HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("ArticleID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                        If CInt(Newasp.ChannelUseHtml) > 0 Then
                            HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                        Else
                            HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("ArticleID")
                        End If

                        If CInt(newindow) > 0 Then
                            LinkTarget = " target=""_blank"""
                        Else
                            LinkTarget = ""
                        End If
                        strContent = strContent  Newasp.MainSetting(18)
                        strContent = Replace(strContent, "{$ArticlePicture}", "a href='"  HtmlFileUrl  "' title='"  Rs("title")  "'"  LinkTarget  ">"  ImageUrl  "/a>")
                        If CInt(showtopic) = 1 Then
                            strContent = Replace(strContent, "{$ArticleTopic}", "a href='"  HtmlFileUrl  "' title='"  Rs("title")  "'"  LinkTarget  ">"  sTitle  "/a>")
                        Else
                            strContent = Replace(strContent, "{$ArticleTopic}", vbNullString)
                        End If
                        strContent = strContent  "/td>"  vbCrLf
                    Rs.MoveNext
                End If
            Next
            strContent = strContent  "/tr>"  vbCrLf
            Loop
            strContent = strContent  "/table>"  vbCrLf
        End If
        Rs.Close: Set Rs = Nothing
        LoadArticlePic = strContent
    End Function
    '================================================
    '函數(shù)名：ReadArticlePic
    '作  用：讀取文章圖片列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadArticlePic(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent, ArrayList
        Dim arrTempContent, arrTempContents
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadArticlePic(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticlePic(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticlePic(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadArticlePic(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10)))
            Next
        End If
        ReadArticlePic = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadSoftPic
    '作  用：裝載軟件圖片列表
    '參  數(shù)：ClassID   ----分類ID
    '        ChannelID   ----頻道ID
    '        sType   ----調(diào)用軟件類型,0=所有最新軟件，1=推薦軟件，2=熱門軟件
    '        TopNum   ----顯示軟件列表數(shù)
    '        strlen   ----顯示標(biāo)題長度
    '        newindow   ----新窗口打開
    '================================================
    Public Function LoadSoftPic(ChannelID, ClassID, SpecialID, stype, TopNum, PerRowNum, strLen, newindow, width, height, showtopic)
        Dim Rs, SQL, i, strContent, foundstr
        Dim strSoftName, ChildStr, SoftImage, HtmlFileName
        Dim HtmlFileUrl, SoftTime, LinkTarget

        ChannelID = Newasp.ChkNumeric(ChannelID)
        ClassID = Newasp.ChkNumeric(ClassID)
        SpecialID = Newasp.ChkNumeric(SpecialID)
        stype = Newasp.ChkNumeric(stype)

        On Error Resume Next
        Newasp.LoadChannel(ChannelID)

        If CInt(stype) >= 3 And CLng(ClassID) > 0 Then
            SQL = "select ChildStr from [NC_Classify] where ChannelID = "  ChannelID  " And ClassID = "  ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                LoadSoftPic = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
            End If
            Rs.Close
        Else
            ChildStr = 0
        End If
        Select Case CInt(stype)
            Case 0: foundstr = "Order By A.SoftTime Desc ,A.SoftID Desc"
            Case 1: foundstr = "And A.isBest > 0 Order By A.SoftTime Desc ,A.SoftID Desc"
            Case 2: foundstr = "Order By A.AllHits Desc ,A.SoftID Desc"
            Case 3: foundstr = "And A.ClassID in ("  ChildStr  ") Order By A.SoftTime Desc ,A.SoftID Desc"
            Case 4: foundstr = "And A.ClassID in ("  ChildStr  ") And A.isBest > 0 Order By A.SoftTime Desc ,A.SoftID Desc"
            Case 5: foundstr = "And A.ClassID in ("  ChildStr  ") Order By A.AllHits Desc ,A.SoftID Desc"
        Case Else
            foundstr = "Order By A.SoftTime Desc ,A.SoftID Desc"
        End Select
        If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
            foundstr = "Order By A.SoftTime Desc ,A.SoftID Desc"
        End If
        If CLng(SpecialID) > 0 Then
            foundstr = "And A.SpecialID ="  CLng(SpecialID)  " "  foundstr
        End If
        SQL = " A.SoftID,A.ClassID,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,A.SoftImage,"
        SQL = "select Top "  CInt(TopNum)  SQL  " C.ClassName,C.HtmlFileDir,C.UseHtml from [NC_SoftList] A inner join [NC_Classify] C On A.ClassID=C.ClassID where A.isAccept>0 And A.SoftImage>'' And A.ChannelID="  ChannelID  " "  foundstr  ""
        Set Rs = Newasp.Execute(SQL)
        If Rs.BOF And Rs.EOF Then
            strContent = "img src='"  Newasp.InstallDir  "images/no_pic.gif' width="  width  " height="  height  " border=0>"
        Else
            strContent = "table width=""100%"" border=""0"" cellpadding=""1"" cellspacing=""3"">"  vbCrLf
            Do While Not Rs.EOF
                strContent = strContent  "tr>"  vbCrLf
                For i = 1 To CInt(PerRowNum)
                    strContent = strContent  "td align=""center"" class=""imagelist"">"
                    If Not Rs.EOF Then
                        strSoftName = Newasp.GotTopic(Rs("SoftName")  " "  Rs("SoftVer"), CInt(strLen))
                        SoftImage = Newasp.GetImageUrl(Rs("SoftImage"), Newasp.ChannelData(1))
                        SoftImage = Newasp.GetFlashAndPic(SoftImage, height, width)
                        HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("SoftID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                        If CInt(Newasp.ChannelUseHtml) > 0 Then
                            HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                        Else
                            HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("SoftID")
                        End If
                        If CInt(newindow) > 0 Then
                            LinkTarget = " target=""_blank"""
                        Else
                            LinkTarget = ""
                        End If
                        strContent = strContent  Newasp.MainSetting(19)
                        strContent = Replace(strContent, "{$SoftPicture}", "a href='"  HtmlFileUrl  "' title='"  Rs("SoftName")  "'"  LinkTarget  ">"  SoftImage  "/a>")
                        If CInt(showtopic) = 1 Then
                            strContent = Replace(strContent, "{$SoftTopic}", "a href='"  HtmlFileUrl  "' title='"  Rs("SoftName")  "'"  LinkTarget  ">"  strSoftName  "/a>")
                        Else
                            strContent = Replace(strContent, "{$SoftTopic}", vbNullString)
                        End If
                        strContent = strContent  "/td>"  vbCrLf
                    Rs.MoveNext
                End If
            Next
            strContent = strContent  "/tr>"  vbCrLf
            Loop
            strContent = strContent  "/table>"  vbCrLf
        End If
        Rs.Close: Set Rs = Nothing
        LoadSoftPic = strContent
    End Function
    '================================================
    '函數(shù)名：ReadSoftPic
    '作  用：讀取軟件圖片列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadSoftPic(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent, ArrayList
        Dim arrTempContent, arrTempContents
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadSoftPic(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadSoftPic(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadSoftPic(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadSoftPic(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10)))
            Next
        End If
        ReadSoftPic = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadFlashPic
    '作  用：裝載動畫圖片列表
    '參  數(shù)：ClassID   ----分類ID
    '        ChannelID   ----頻道ID
    '        sType   ----調(diào)用動畫類型,0=所有最新動畫，1=推薦動畫，2=熱門動畫
    '        TopNum   ----顯示動畫列表數(shù)
    '        strlen   ----顯示標(biāo)題長度
    '        newindow   ----新窗口打開
    '================================================
    Public Function LoadFlashPic(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
        ByVal stype, ByVal TopNum, ByVal PerRowNum, ByVal strLen, ByVal newindow, _
        ByVal width, ByVal height, ByVal showtopic)

        Dim Rs, SQL, i, strContent, foundstr
        Dim strtitle, ChildStr, miniature, HtmlFileName
        Dim HtmlFileUrl, addTime, LinkTarget

        ChannelID = Newasp.ChkNumeric(ChannelID)
        ClassID = Newasp.ChkNumeric(ClassID)
        SpecialID = Newasp.ChkNumeric(SpecialID)
        stype = Newasp.ChkNumeric(stype)

        On Error Resume Next
        Newasp.LoadChannel(ChannelID)

        If CInt(stype) >= 3 And CLng(ClassID) > 0 Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID = "  ChannelID  " And ClassID = "  ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                LoadFlashPic = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
            End If
            Rs.Close
        Else
            ChildStr = 0
        End If

        Select Case CInt(stype)
            Case 0: foundstr = "ORDER BY A.addTime DESC ,A.flashid DESC"
            Case 1: foundstr = "And A.isBest > 0 ORDER BY A.addTime DESC ,A.flashid DESC"
            Case 2: foundstr = "ORDER BY A.AllHits DESC ,A.flashid DESC"
            Case 3: foundstr = "And A.ClassID in ("  ChildStr  ") ORDER BY A.addTime DESC ,A.flashid DESC"
            Case 4: foundstr = "And A.ClassID in ("  ChildStr  ") And A.isBest > 0 ORDER BY A.addTime DESC ,A.flashid DESC"
            Case 5: foundstr = "And A.ClassID in ("  ChildStr  ") ORDER BY A.AllHits DESC ,A.flashid DESC"
        Case Else
            foundstr = "ORDER BY A.addTime DESC ,A.flashid DESC"
        End Select
        If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
            foundstr = "ORDER BY A.addTime DESC ,A.flashid DESC"
        End If
        If CLng(SpecialID) > 0 Then
            foundstr = "And A.SpecialID ="  CLng(SpecialID)  " "  foundstr
        End If
        SQL = " A.flashid,A.ClassID,A.title,A.AllHits,A.addTime,A.HtmlFileDate,A.isBest,A.miniature,"
        SQL = "SELECT TOP "  CInt(TopNum)  SQL  " C.ClassName,C.HtmlFileDir,C.UseHtml FROM [NC_FlashList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID WHERE A.isAccept>0 And A.miniature>'' And A.ChannelID="  ChannelID  " "  foundstr  ""
        Set Rs = Newasp.Execute(SQL)
        If Rs.BOF And Rs.EOF Then
            strContent = "img src='"  Newasp.InstallDir  "images/no_pic.gif' width="  width  " height="  height  " border=0>"
        Else
            strContent = "table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""3"">"  vbCrLf
            Do While Not Rs.EOF
                strContent = strContent  "tr>"  vbCrLf
                For i = 1 To CInt(PerRowNum)
                    strContent = strContent  "td align=""center"" class=""imagelist"">"
                    If Not Rs.EOF Then
                        strtitle = Newasp.GotTopic(Rs("title"), CInt(strLen))
                        miniature = Newasp.GetImageUrl(Rs("miniature"), Newasp.ChannelData(1))
                        miniature = Newasp.GetFlashAndPic(miniature, height, width)
                        HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("flashid"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                        If CInt(Newasp.ChannelUseHtml) > 0 Then
                            HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                        Else
                            HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("flashid")
                        End If
                        If CInt(newindow) > 0 Then
                            LinkTarget = " target=""_blank"""
                        Else
                            LinkTarget = ""
                        End If
                        strContent = strContent  Newasp.MainSetting(21)
                        strContent = Replace(strContent, "{$Miniature}", "a href='"  HtmlFileUrl  "' title='"  Rs("title")  "'"  LinkTarget  ">"  miniature  "/a>")
                        If CInt(showtopic) = 1 Then
                            strContent = Replace(strContent, "{$FlashTopic}", "a href='"  HtmlFileUrl  "' title='"  Rs("title")  "'"  LinkTarget  ">"  strtitle  "/a>")
                        Else
                            strContent = Replace(strContent, "{$FlashTopic}", vbNullString)
                        End If
                        strContent = strContent  "/td>"  vbCrLf
                    Rs.MoveNext
                    End If
                Next
            strContent = strContent  "/tr>"  vbCrLf
            Loop
            strContent = strContent  "/table>"  vbCrLf
        End If
        Rs.Close: Set Rs = Nothing
        LoadFlashPic = strContent
    End Function
    '================================================
    '函數(shù)名：ReadFlashPic
    '作  用：讀取動畫圖片列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadFlashPic(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent, ArrayList
        Dim arrTempContent, arrTempContents
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadFlashPic(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashPic(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashPic(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadFlashPic(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10)))
            Next
        End If
        ReadFlashPic = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadFriendLink
    '作  用：裝載友情連接
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function LoadFriendLink(ByVal TopNum, ByVal PerRowNum, ByVal isLogo, ByVal orders)
        Dim Rs, SQL, i, strContent
        Dim strOrder, LinkAddress

        strContent = ""
        If Not IsNumeric(TopNum) Then Exit Function
        If Not IsNumeric(PerRowNum) Then Exit Function
        If Not IsNumeric(isLogo) Then Exit Function
        If Not IsNumeric(orders) Then Exit Function
        On Error Resume Next
        If CInt(orders) = 1 Then
            '-- 首頁顯示按時間升序排列
            strOrder = "And isIndex > 0 Order By LinkTime Desc,LinkID Desc"
        ElseIf CInt(orders) = 2 Then
            '-- 首頁顯示按點擊數(shù)升序排列
            strOrder = "And isIndex > 0 Order By LinkHist Desc,LinkID Desc"
        ElseIf CInt(orders) = 3 Then
            '-- 首頁顯示按點擊數(shù)降序排列
            strOrder = "And isIndex > 0 Order By LinkHist Desc,LinkID Asc"
        ElseIf CInt(orders) = 4 Then
            '-- 所有按升序排列
            strOrder = "Order By LinkID Desc"
        ElseIf CInt(orders) = 5 Then
            '-- 所有按降序排列
            strOrder = "Order By LinkID Asc"
        ElseIf CInt(orders) = 6 Then
            '-- 所有按點擊數(shù)升序排列
            strOrder = "Order By LinkHist Desc,LinkID Desc"
        ElseIf CInt(orders) = 7 Then
            '-- 所有按點擊數(shù)降序排列
            strOrder = "Order By LinkHist Desc,LinkID Asc"
        ElseIf CInt(orders) = 8 Then
            '-- 首頁顯示按名稱排列
            strOrder = "And isIndex > 0 Order By LinkName Desc,LinkID Desc"
        ElseIf CInt(orders) = 9 Then
            '-- 所有按名稱排列
            strOrder = "Order By LinkName Desc,LinkID Desc"
        Else
            '-- 首頁顯示按時間降序排列
            strOrder = "And isIndex > 0 Order By LinkTime Asc,LinkID Asc"
        End If
        If CInt(isLogo) = 1 Or CInt(isLogo) = 3 Then
            SQL = "Select Top "  CInt(TopNum)  " LinkID,LinkName,LinkUrl,LogoUrl,Readme,LinkHist,isLogo from [NC_Link] where isLock = 0 And isLogo > 0 "  strOrder  ""
        Else
            SQL = "Select Top "  CInt(TopNum)  " LinkID,LinkName,LinkUrl,LogoUrl,Readme,LinkHist,isLogo from [NC_Link] where isLock = 0 And isLogo = 0 "  strOrder  ""
        End If
        Set Rs = Newasp.Execute(SQL)
        If Not (Rs.BOF And Rs.EOF) Then
            strContent = "table width=""100%"" border=0 cellpadding=1 cellspacing=3 class=FriendLink1>"  vbCrLf
            Do While Not Rs.EOF
                strContent = strContent  "tr>"  vbCrLf
                For i = 1 To CInt(PerRowNum)
                    strContent = strContent  "td align=center class=FriendLink2>"
                    If Not Rs.EOF Then
                        If CInt(isLogo)  2 Then
                            LinkAddress = Newasp.InstallDir  "link/link.asp?id="  Rs("LinkID")  "url="  Trim(Rs("LinkUrl"))
                        Else
                            LinkAddress = Trim(Rs("LinkUrl"))
                        End If
                        If Rs("isLogo") = 1 Or CInt(isLogo) = 3 Then
                            strContent = strContent  "a href='"  LinkAddress  "' target=_blank title='主頁名稱："  Rs("LinkName")  "#13;#10;點擊次數(shù)："  Rs("LinkHist")  "'>img src='"  Newasp.ReadFileUrl(Rs("LogoUrl"))  "' width=88 height=31 border=0>/a>"
                        Else
                            strContent = strContent  "a href='"  LinkAddress  "' target=_blank title='主頁名稱："  Rs("LinkName")  "#13;#10;點擊次數(shù)："  Rs("LinkHist")  "'>"  Rs("LinkName")  "/a>"
                        End If
                        strContent = strContent  "/td>"  vbCrLf
                        Rs.MoveNext
                    Else
                        If CInt(isLogo) = 1 Or CInt(isLogo) = 3 Then
                            strContent = strContent  "a href='"  Newasp.InstallDir  "link/addlink.asp' target=_blank>img src='"  Newasp.InstallDir  "images/link.gif' width=88 height=31 border=0>/a>"
                        Else
                            strContent = strContent  "a href='"  Newasp.InstallDir  "link/' target=_blank>更多連接/a>"
                        End If
                        strContent = strContent  "/td>"  vbCrLf
                    End If
                Next
                strContent = strContent  "/tr>"  vbCrLf
            Loop
            strContent = strContent  "/table>"  vbCrLf
        End If
        LoadFriendLink = strContent
    End Function
    '================================================
    '函數(shù)名：ReadFriendLink
    '作  用：讀取友情連接
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadFriendLink(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent, ArrayList
        Dim arrTempContent, arrTempContents
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadFriendLink(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFriendLink(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFriendLink(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadFriendLink(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3)))
            Next
        End If
        ReadFriendLink = strTemp
    End Function
    '================================================
    '函數(shù)名：PageRunTime
    '作  用：頁面執(zhí)行時間
    '================================================
    Public Function ExecutionTime()
        Dim Endtime
        ExecutionTime = ""
        If CInt(Newasp.IsRunTime) = 1 Then
            Endtime = Timer()
            ExecutionTime = "頁面執(zhí)行時間："  FormatNumber((((Endtime - startime) * 5000) + 0.5) / 10, 3, -1)  "毫秒"
        Else
            ExecutionTime = ""
        End If
    End Function

    '================================================
    '函數(shù)名：CurrentStation
    '作  用：當(dāng)前位置
    '參  數(shù)：...
    '================================================
    Public Function CurrentStation(ByVal ChannelID, ByVal ClassID, ByVal ClassName, _
        ByVal ParentID, ByVal strParent, ByVal HtmlFileDir, ByVal Compart)

        Dim rsCurrent, SQL, strContent, ChannelDir

        CurrentStation = ""
        ChannelID = Newasp.ChkNumeric(ChannelID)
        ClassID = Newasp.ChkNumeric(ClassID)
        ParentID = Newasp.ChkNumeric(ParentID)

        On Error Resume Next
        Newasp.LoadChannel(ChannelID)

        ChannelDir = Newasp.ChannelPath

        strContent = "a href='"  ChannelDir  "'>"  Newasp.ChannelName  "/a>"  Compart  ""
        If ParentID > 0 And Len(strParent) > 0 Then
            SQL = "SELECT ClassID,ClassName,HtmlFileDir,UseHtml FROM [NC_Classify] WHERE ChannelID = "  ChannelID  " And ClassID in("  strParent  ")"
            Set rsCurrent = Newasp.Execute(SQL)
            If Not (rsCurrent.EOF And rsCurrent.BOF) Then
                Do While Not rsCurrent.EOF

                    If CInt(Newasp.IsCreateHtml) > 0 Then
                        strContent = strContent  "a href='"  ChannelDir  rsCurrent("HtmlFileDir")  "'>"  rsCurrent("ClassName")  "/a>"  Compart  ""
                    Else
                        strContent = strContent  "a href='"  ChannelDir  "list.asp?classid="  rsCurrent("ClassID")  "'>"  rsCurrent("ClassName")  "/a>"  Compart  ""
                    End If
                    rsCurrent.MoveNext
                Loop
            End If
            rsCurrent.Close
            Set rsCurrent = Nothing
        End If
        If CInt(Newasp.IsCreateHtml) > 0 Then
            strContent = strContent  "a href='"  ChannelDir  HtmlFileDir  "'>"  ClassName  "/a>"
        Else
            strContent = strContent  "a href='"  ChannelDir  "list.asp?classid="  ClassID  "'>"  ClassName  "/a>"
        End If
        CurrentStation = strContent
    End Function
    '================================================
    '函數(shù)名：ReadCurrentStation
    '作  用：讀取當(dāng)前位置
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadCurrentStation(ByVal str, ByVal ChannelID, ByVal ClassID, _
        ByVal ClassName, ByVal ParentID, ByVal strParent, ByVal HtmlFileDir)

        Dim strTemp, i
        Dim sTempContent, nTempContent
        Dim arrTempContent, arrTempContents
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$CurrentStation(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$CurrentStation(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$CurrentStation(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                strTemp = Replace(strTemp, arrTempContents(i), CurrentStation(ChannelID, ClassID, ClassName, ParentID, strParent, HtmlFileDir, arrTempContent(i)))
            Next
        End If
        ReadCurrentStation = strTemp
    End Function
    '================================================
    '函數(shù)名：NewsPictureAndText
    '作  用：圖文混排列表
    '================================================
    Public Function NewsPictureAndText(ByVal chanid, ByVal ClassID, ByVal specid, _
        ByVal stype, ByVal height, ByVal width, ByVal maxlen, _
        ByVal maxline, ByVal hspace, ByVal vspace, ByVal align, _
        ByVal divcss, ByVal target, ByVal start, ByVal showpic, _
        ByVal showclass, ByVal showdate, ByVal dateformat)

        Dim Rs, SQL, i, strContent, foundstr
        Dim ChildStr, HtmlFileUrl, HtmlFileName, strPicture
        Dim PicTopic, NewsTitle, ClassName, ArticleTitle, WriteTime

        chanid = Newasp.ChkNumeric(chanid)
        ClassID = Newasp.ChkNumeric(ClassID)
        specid = Newasp.ChkNumeric(specid)
        stype = Newasp.ChkNumeric(stype)

        On Error Resume Next
        Newasp.LoadChannel(chanid)

        If CInt(stype) >= 3 And CLng(ClassID) > 0 Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID = "  chanid  " And ClassID = "  ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                NewsPictureAndText = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
            End If
            Rs.Close
        Else
            ChildStr = "0"
        End If
        Select Case CInt(stype)
            Case 0: foundstr = "ORDER BY A.Writetime DESC ,A.Articleid DESC"
            Case 1: foundstr = "And A.isBest > 0 ORDER BY A.Writetime DESC ,A.Articleid DESC"
            Case 2: foundstr = " ORDER BY A.AllHits DESC ,A.Articleid DESC"
            Case 3: foundstr = "And A.ClassID in ("  ChildStr  ") ORDER BY A.Writetime DESC ,A.Articleid DESC"
            Case 4: foundstr = "And A.ClassID in ("  ChildStr  ") And A.isBest > 0 ORDER BY A.Writetime DESC ,A.Articleid DESC"
            Case 5: foundstr = "And A.ClassID in ("  ChildStr  ") And A.AllHits > B.LeastHotHist ORDER BY A.AllHits DESC ,A.Articleid DESC"
            Case 6: foundstr = "And A.ClassID in ("  ChildStr  ") ORDER BY A.Writetime DESC ,A.Articleid DESC"
        Case Else
            foundstr = "ORDER BY A.Writetime DESC ,A.Articleid DESC"
        End Select
        If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
            foundstr = "ORDER BY A.Writetime DESC ,A.Articleid DESC"
        End If
        If CLng(specid) > 0 Then
            foundstr = "And A.SpecialID ="  CLng(specid)  " "  foundstr
        End If
        SQL = " A.ArticleID,A.ClassID,A.ColorMode,A.FontMode,A.title,A.BriefTopic,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest,"
        SQL = "SELECT TOP "  CInt(maxline)  SQL  " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_Article] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID="  chanid  " "  foundstr  ""
        Set Rs = Newasp.Execute(SQL)
        i = 0
        strContent = ""
        If Rs.BOF And Rs.EOF Then
            strContent = "還沒有添加任何內(nèi)容！"
        Else
            Do While Not Rs.EOF
                NewsTitle = Newasp.ReadTopic(Rs("title"), CInt(maxlen))
                NewsTitle = Newasp.ReadFontMode(NewsTitle, Rs("ColorMode"), Rs("FontMode"))
                PicTopic = Newasp.ReadPicTopic(Rs("BriefTopic"))
                ClassName = Newasp.ReadFontMode(Rs("ClassName"), Rs("ColorModes"), Rs("FontModes"))
                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("ArticleID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                    ClassName = "[a href='"  Newasp.ChannelPath  Rs("HtmlFileDir")  "index"  Newasp.ChannelHtmlExt  "'>"  ClassName  "/a>]"
                Else
                    HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("ArticleID")
                    ClassName = "[a href='"  Newasp.ChannelPath  "list.asp?classid="  Rs("ClassID")  "'>"  ClassName  "/a>]"
                End If
                If CInt(showclass) = 1 Then
                    ClassName = ClassName
                Else
                    ClassName = ""
                End If
                If CInt(showdate) = 1 Then
                    WriteTime = Newasp.ShowDateTime(Rs("WriteTime"), CInt(dateformat))
                Else
                    WriteTime = ""
                End If
                ArticleTitle = "div "  divcss  ">"  start  ClassName  " a href="""  HtmlFileUrl  """ target="""  target  """ title="""  Newasp.ChannelModule  "標(biāo)題："  Rs("title")  "#13;#10;發(fā)布時間："  Rs("WriteTime")  "#13;#10;閱覽次數(shù)："  Rs("AllHits")  """ class=showlist>"  NewsTitle  "/a>  "  WriteTime  "/div>"
                strContent = strContent  ArticleTitle
                Rs.MoveNext
                i = i + 1
            Loop
        End If
        Rs.Close: Set Rs = Nothing
        Dim sExtName, ExtName, ImageUrl
        If CInt(showpic) = 1 Then
            SQL = " A.ArticleID,A.ClassID,A.title,A.AllHits,A.WriteTime,A.HtmlFileDate,A.ImageUrl,"
            SQL = "SELECT "  SQL  " C.HtmlFileDir,B.ChannelDir,B.StopChannel,B.ModuleName,B.BindDomain,B.DomainName,B.IsCreateHtml,B.HtmlExtName,B.HtmlPath,B.HtmlForm,B.HtmlPrefix,B.LeastHotHist FROM ([NC_Article] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID) INNER JOIN [NC_Channel] B On A.ChannelID=B.ChannelID WHERE A.isAccept>0 And A.ChannelID="  CInt(chanid)  " And A.ImageUrl>'' "  foundstr  ""
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                strPicture = "img src='"  Newasp.SiteUrl  Newasp.InstallDir  "images/no_pic.gif' width="""  width  """ height="""  height  """  hspace="""  hspace  """ vspace="""  vspace  """ align="""  align  """ border=""0"">"
            Else
                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("ArticleID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                Else
                    HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("ArticleID")
                End If
                ImageUrl = Newasp.GetImageUrl(Rs("ImageUrl"), Newasp.ChannelData(1))
                sExtName = Split(Rs("ImageUrl"), ".")
                ExtName = sExtName(UBound(sExtName))
                Select Case LCase(ExtName)
                Case "swf", "swi"
                    strPicture = "object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width="""  width  """ height="""  height  """ hspace="""  hspace  """ vspace="""  vspace  """ align="""  align  """>"  vbNewLine
                    strPicture = strPicture  "     param name=""movie"" value="""  ImageUrl  """>"  vbNewLine
                    strPicture = strPicture  "     param name=""quality"" value=""high"">"  vbNewLine
                    strPicture = strPicture  "     embed src="""  ImageUrl  """ width="""  width  """ height="""  height  """ hspace="""  hspace  """ vspace="""  vspace  """ align="""  align  """ quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"">/embed>"  vbNewLine
                    strPicture = strPicture  "/object>"  vbNewLine
                Case Else
                    strPicture = "a href="""  HtmlFileUrl  """  target="""  target  """ title="""  Newasp.ChannelModule  "標(biāo)題："  Rs("title")  "#13;#10;發(fā)布時間："  Rs("WriteTime")  "#13;#10;閱覽次數(shù)："  Rs("AllHits")  """>img src="""  ImageUrl  """ width="""  width  """ height="""  height  """ hspace="""  hspace  """ vspace="""  vspace  """ align="""  align  """ border=""0"">/a>"
                End Select
            End If
            Rs.Close: Set Rs = Nothing
        Else
            strPicture = ""
        End If
        NewsPictureAndText = strPicture  strContent
    End Function
    '================================================
    '函數(shù)名：ReadNewsPicAndText
    '作  用：讀取圖文混排列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadNewsPicAndText(ByVal str)
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$NewsPictureAndText(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$NewsPictureAndText(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$NewsPictureAndText(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), NewsPictureAndText(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10), ArrayList(11), ArrayList(12), ArrayList(13), ArrayList(14), ArrayList(15), ArrayList(16), ArrayList(17)))
            Next
        End If
        ReadNewsPicAndText = strTemp
    End Function
    '================================================
    '函數(shù)名：SoftPictureAndText
    '作  用：軟件圖文混排列表
    '================================================
    Public Function SoftPictureAndText(ByVal chanid, ByVal ClassID, ByVal specid, _
        ByVal stype, ByVal height, ByVal width, ByVal maxlen, _
        ByVal maxline, ByVal hspace, ByVal vspace, ByVal align, _
        ByVal divcss, ByVal target, ByVal start, ByVal showpic, _
        ByVal showclass, ByVal showdate, ByVal dateformat)

        Dim Rs, SQL, i, strContent, foundstr
        Dim ChildStr, HtmlFileUrl, HtmlFileName, strPicture
        Dim SoftTopic, ClassName, softname, SoftTime

        chanid = Newasp.ChkNumeric(chanid)
        ClassID = Newasp.ChkNumeric(ClassID)
        specid = Newasp.ChkNumeric(specid)
        stype = Newasp.ChkNumeric(stype)

        On Error Resume Next
        Newasp.LoadChannel(chanid)

        If CInt(stype) >= 3 And CLng(ClassID) > 0 Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID = "  chanid  " And ClassID = "  ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                SoftPictureAndText = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
            End If
            Rs.Close
        Else
            ChildStr = "0"
        End If
        Select Case CInt(stype)
            Case 0: foundstr = "ORDER BY A.SoftTime DESC ,A.softid DESC"
            Case 1: foundstr = "And A.isBest > 0 ORDER BY A.SoftTime DESC ,A.softid DESC"
            Case 2: foundstr = "ORDER BY A.AllHits DESC ,A.softid DESC"
            Case 3: foundstr = "And A.ClassID in ("  ChildStr  ") ORDER BY A.SoftTime DESC ,A.softid DESC"
            Case 4: foundstr = "And A.ClassID in ("  ChildStr  ") And A.isBest > 0 ORDER BY A.SoftTime DESC ,A.softid DESC"
            Case 5: foundstr = "And A.ClassID in ("  ChildStr  ") ORDER BY A.AllHits DESC ,A.softid DESC"
        Case Else
            foundstr = "ORDER BY A.SoftTime DESC ,A.softid DESC"
        End Select
        If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
            foundstr = "ORDER BY A.SoftTime DESC ,A.softid DESC"
        End If
        If CLng(specid) > 0 Then
            foundstr = "And A.SpecialID ="  CLng(specid)  " "  foundstr
        End If
        SQL = " A.softid,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,"
        SQL = "SELECT TOP "  CInt(maxline)  SQL  " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_SoftList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID="  chanid  " "  foundstr  ""
        Set Rs = Newasp.Execute(SQL)
        i = 0
        strContent = ""
        If Rs.BOF And Rs.EOF Then
            strContent = "還沒有添加任何軟件！"
        Else
            Do While Not Rs.EOF
                SoftTopic = Newasp.ReadTopic(Trim(Rs("SoftName")  " "  Rs("SoftVer")), CInt(maxlen))
                SoftTopic = Newasp.ReadFontMode(SoftTopic, Rs("ColorMode"), Rs("FontMode"))
                ClassName = Newasp.ReadFontMode(Rs("ClassName"), Rs("ColorModes"), Rs("FontModes"))
                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("softid"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                    ClassName = "[a href='"  Newasp.ChannelPath  Rs("HtmlFileDir")  "index"  Newasp.ChannelHtmlExt  "'>"  ClassName  "/a>]"
                Else
                    HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("softid")
                    ClassName = "[a href='"  Newasp.ChannelPath  "list.asp?classid="  Rs("ClassID")  "'>"  ClassName  "/a>]"
                End If
                If CInt(showclass) = 1 Then
                    ClassName = ClassName
                Else
                    ClassName = ""
                End If
                If CInt(showdate) = 1 Then
                    SoftTime = Newasp.ShowDateTime(Rs("SoftTime"), CInt(dateformat))
                Else
                    SoftTime = ""
                End If
                softname = "div "  divcss  ">"  start  ClassName  " a href="""  HtmlFileUrl  """ target="""  target  """ title="""  Newasp.ChannelModule  "標(biāo)題："  Rs("SoftName")  " "  Rs("SoftVer")  "#13;#10;發(fā)布時間："  Rs("SoftTime")  "#13;#10;閱覽次數(shù)："  Rs("AllHits")  """ class=showlist>"  SoftTopic  "/a>  "  SoftTime  "/div>"
                strContent = strContent  softname
                Rs.MoveNext
                i = i + 1
            Loop
        End If
        Rs.Close: Set Rs = Nothing
        Dim sExtName, ExtName, SoftImage
        If CInt(showpic) = 1 Then
            SQL = " A.softid,A.ClassID,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.SoftImage,"
            SQL = "SELECT "  SQL  " C.HtmlFileDir,B.ChannelDir,B.ModuleName,B.BindDomain,B.DomainName,B.IsCreateHtml,B.HtmlExtName,B.HtmlPath,B.HtmlForm,B.HtmlPrefix,B.LeastHotHist FROM ([NC_SoftList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID) INNER JOIN [NC_Channel] B On A.ChannelID=B.ChannelID WHERE A.isAccept>0 And A.ChannelID="  CInt(chanid)  " And A.SoftImage>'' "  foundstr  ""
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                strPicture = "img src='"  Newasp.SiteUrl  Newasp.InstallDir  "images/no_pic.gif' width="""  width  """ height="""  height  """  hspace="""  hspace  """ vspace="""  vspace  """ align="""  align  """ border=""0"">"
            Else
                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("softid"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                Else
                    HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("softid")
                End If
                SoftImage = Newasp.GetImageUrl(Rs("SoftImage"), Newasp.ChannelData(1))
                sExtName = Split(Rs("SoftImage"), ".")
                ExtName = sExtName(UBound(sExtName))
                Select Case LCase(ExtName)
                Case "swf", "swi"
                    strPicture = "object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width="""  width  """ height="""  height  """ hspace="""  hspace  """ vspace="""  vspace  """ align="""  align  """>"  vbNewLine
                    strPicture = strPicture  "     param name=""movie"" value="""  SoftImage  """>"  vbNewLine
                    strPicture = strPicture  "     param name=""quality"" value=""high"">"  vbNewLine
                    strPicture = strPicture  "     embed src="""  SoftImage  """ width="""  width  """ height="""  height  """ hspace="""  hspace  """ vspace="""  vspace  """ align="""  align  """ quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"">/embed>"  vbNewLine
                    strPicture = strPicture  "/object>"  vbNewLine
                Case Else
                    strPicture = "a href="""  HtmlFileUrl  """  target="""  target  """ title="""  Newasp.ChannelModule  "標(biāo)題："  Rs("SoftName")  " "  Rs("SoftVer")  "#13;#10;發(fā)布時間："  Rs("SoftTime")  "#13;#10;閱覽次數(shù)："  Rs("AllHits")  """>img src="""  SoftImage  """ width="""  width  """ height="""  height  """ hspace="""  hspace  """ vspace="""  vspace  """ align="""  align  """ border=""0"">/a>"
                End Select
            End If
            Rs.Close: Set Rs = Nothing
        Else
            strPicture = ""
        End If
        SoftPictureAndText = strPicture  strContent
    End Function
    '================================================
    '函數(shù)名：ReadSoftPicAndText
    '作  用：讀取軟件圖文混排列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadSoftPicAndText(ByVal str)
        On Error Resume Next
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

        strTemp = str
        If InStr(strTemp, "{$SoftPictureAndText(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$SoftPictureAndText(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$SoftPictureAndText(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), SoftPictureAndText(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10), ArrayList(11), ArrayList(12), ArrayList(13), ArrayList(14), ArrayList(15), ArrayList(16), ArrayList(17)))
            Next
        End If
        ReadSoftPicAndText = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadGuestList
    '作  用：裝載留言列表
    '參  數(shù)：maxnum ----最多留言數(shù)
    '        maxlen ----字符長度
    '        newindow ----是否新窗口打開 1=是，0=否
    '        showdate ----是否顯示時間 1=是，0=否
    '        DateMode ----時間模式
    '        styles ----風(fēng)格名稱
    '================================================
    Public Function LoadGuestList(ByVal maxnum, ByVal maxlen, ByVal newindow, _
        ByVal showdate, ByVal DateMode, ByVal styles)

        Dim Rs, SQL, strContent
        Dim i, ListStyle, GuestTopic, LinkTarget
        Dim WriteTime, lastime, GuestTitle,strChannelDir

        On Error Resume Next
        Set Rs = Newasp.Execute("SELECT TOP "  CInt(maxnum)  " guestid,Topicformat,title,username,WriteTime,lastime,ReplyNum FROM NC_GuestBook WHERE isAccept>0 ORDER BY isTop DESC,lastime DESC,guestid DESC")
        If Rs.BOF And Rs.EOF Then
            LoadGuestList = "沒有任何留言!"
            Set Rs = Nothing
            Exit Function
        Else
            i = 0
            strContent = "table width=""100%"" border=0 cellpadding=2 cellspacing=0>"
            strChannelDir = Newasp.GetChannelDir(4)
            Do While Not Rs.EOF
                If (i Mod 2) = 0 Then
                    ListStyle = Trim(styles)  1
                Else
                    ListStyle = Trim(styles)  2
                End If
                If CInt(newindow) > 0 Then
                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If
                If CInt(showdate) > 0 Then
                    WriteTime = Newasp.ShowDateTime(Rs("WriteTime"), CInt(DateMode))
                    lastime = Newasp.ShowDateTime(Rs("lastime"), CInt(DateMode))
                Else
                    WriteTime = ""
                    lastime = ""
                End If
                GuestTitle = Newasp.HTMLEncode(Rs("title"))
                GuestTopic = "span "  Rs("Topicformat")  ">"  Newasp.GotTopic(GuestTitle, CInt(maxlen))  "/span>"
                GuestTopic = "a href="""  strChannelDir  "showreply.asp?guestid="  Rs("guestid")  """ title=""主題："  GuestTitle  "#13;#10;時間："  Rs("WriteTime")  "#13;#10;作者："  Newasp.HTMLEncode(Rs("username"))  """"  LinkTarget  ">"  GuestTopic  "/a>"
                strContent = strContent  Newasp.MainSetting(16)
                strContent = Replace(strContent, "{$GuestID}", Rs("guestid"))
                strContent = Replace(strContent, "{$UserName}", Newasp.HTMLEncode(Rs("username")))
                strContent = Replace(strContent, "{$GuestTopic}", GuestTopic)
                strContent = Replace(strContent, "{$ListStyle}", ListStyle)
                strContent = Replace(strContent, "{$Number}", i)
                strContent = Replace(strContent, "{$WriteTime}", WriteTime)
                strContent = Replace(strContent, "{$lastime}", lastime)
                Rs.MoveNext
                i = i + 1
            Loop
            strContent = strContent  "/table>"
        End If
        LoadGuestList = strContent
    End Function
    '================================================
    '函數(shù)名：ReadGuestList
    '作  用：讀取留言列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadGuestList(ByVal str)
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

        strTemp = str
        If InStr(strTemp, "{$ReadGuestList(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadGuestList(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadGuestList(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadGuestList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5)))
            Next
        End If
        ReadGuestList = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadPopularSoft
    '作  用：裝載排行軟件列表
    '參  數(shù)：ClassID   ----分類ID
    '        chanid   ----頻道ID
    '        stype   ----調(diào)用類型
    '        maxline   ----顯示列表數(shù)
    '        maxlen   ----顯示標(biāo)題長度
    '        showhits   ----是否顯示下載數(shù)
    '        target   ----連接目標(biāo)
    '        start   ----標(biāo)題頭標(biāo)記
    '        styles   ----樣式名稱
    '================================================
    Public Function LoadPopularSoft(ByVal chanid, ByVal ClassID, ByVal stype, _
        ByVal maxlen, ByVal maxline, ByVal showhits, _
        ByVal target, ByVal start, ByVal styles)

        Dim SQL, Rs, foundsql, strHits
        Dim ChildStr, i, strContent
        Dim HtmlFileName, HtmlFileUrl
        Dim NewsTitle, AllHits, strSoftName
        Dim divstyle

        chanid = Newasp.ChkNumeric(chanid)
        ClassID = Newasp.ChkNumeric(ClassID)
        stype = Newasp.ChkNumeric(stype)
        If chanid = 0 Then chanid = 1

        On Error Resume Next
        Newasp.LoadChannel(chanid)

        If CLng(ClassID) > 0 And Trim(ClassID) > "" Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID="  chanid  " And classid="  ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                LoadPopularSoft = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
                foundsql = "And A.ClassID in ("  ChildStr  ")"
            End If
            Rs.Close
        Else
            ChildStr = "0"
            foundsql = ""
        End If

        Select Case CInt(stype)
        Case 1
            foundsql = foundsql  " ORDER BY A.DayHits DESC ,A.softid DESC"
            strHits = "DayHits"
        Case 2
            foundsql = foundsql  " ORDER BY A.WeekHits DESC ,A.softid DESC"
            strHits = "WeekHits"
        Case 3
            foundsql = foundsql  " ORDER BY A.MonthHits DESC ,A.softid DESC"
            strHits = "MonthHits"
        Case 4
            foundsql = foundsql  " And A.isBest>0 ORDER BY A.AllHits DESC ,A.softid DESC"
            strHits = "AllHits"
        Case Else
            foundsql = foundsql  "ORDER BY A.AllHits DESC ,A.softid DESC"
            strHits = "AllHits"
        End Select
        SQL = " A.softid,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,A.DayHits,A.WeekHits,A.MonthHits,"
        SQL = "SELECT TOP "  CInt(maxline)  SQL  " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_SoftList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID="  chanid  " "  foundsql
        Set Rs = Newasp.Execute(SQL)
        i = 0
        strContent = ""
        If Rs.BOF And Rs.EOF Then
            strContent = "還沒有找到任何內(nèi)容！"
        Else
            Do While Not Rs.EOF
                If Trim(styles) > "" And Trim(styles) > "0" Then
                    If (i Mod 2) = 0 Then
                        divstyle = " class="""  Trim(styles)  "1"""
                    Else
                        divstyle = " class="""  Trim(styles)  "2"""
                    End If
                End If

                NewsTitle = Newasp.GotTopic(Rs("SoftName")  " "  Rs("SoftVer"), CInt(maxlen))
                NewsTitle = Newasp.ReadFontMode(NewsTitle, Rs("ColorMode"), Rs("FontMode"))
                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("SoftID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                Else
                    HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("softid")
                End If
                If CInt(showhits) > 0 Then
                    AllHits = Rs(strHits)
                Else
                    AllHits = ""
                End If
                strSoftName = "div"  divstyle  ">"  start  " a href="""  HtmlFileUrl  """ target="""  target  """ title="""  Newasp.ChannelModule  "名稱："  Rs("SoftName")  " "  Rs("SoftVer")  "#13;#10;發(fā)布時間："  Rs("SoftTime")  "#13;#10;下載總數(shù)："  Rs("AllHits")  """ class=popular>"  NewsTitle  "/a>  "  AllHits  "/div>"
                strContent = strContent  strSoftName

                Rs.MoveNext
                i = i + 1
            Loop
        End If
        Rs.Close: Set Rs = Nothing
        LoadPopularSoft = strContent
    End Function
    '================================================
    '函數(shù)名：ReadPopularSoft
    '作  用：讀取軟件排行列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadPopularSoft(ByVal str)
        On Error Resume Next
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

        strTemp = str
        If InStr(strTemp, "{$ReadPopularSoft(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularSoft(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularSoft(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadPopularSoft(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
            Next
        End If
        ReadPopularSoft = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadPopularArticle
    '作  用：裝載排行文章列表
    '參  數(shù)：ClassID   ----分類ID
    '        chanid   ----頻道ID
    '        stype   ----調(diào)用類型
    '        maxline   ----顯示列表數(shù)
    '        maxlen   ----顯示標(biāo)題長度
    '        showhits   ----是否顯示下載數(shù)
    '        target   ----連接目標(biāo)
    '        start   ----標(biāo)題頭標(biāo)記
    '        styles   ----樣式名稱
    '================================================
    Public Function LoadPopularArticle(ByVal chanid, ByVal ClassID, ByVal stype, _
        ByVal maxlen, ByVal maxline, ByVal showhits, ByVal target, _
        ByVal start, ByVal styles)

        Dim SQL, Rs, foundsql, strHits
        Dim ChildStr, i, strContent
        Dim HtmlFileName, HtmlFileUrl
        Dim NewsTitle, AllHits, ArticleTitle
        Dim divstyle

        chanid = Newasp.ChkNumeric(chanid)
        ClassID = Newasp.ChkNumeric(ClassID)
        stype = Newasp.ChkNumeric(stype)

        If chanid = 0 Then chanid = 2

        On Error Resume Next
        Newasp.LoadChannel(chanid)

        If CLng(ClassID) > 0 And Trim(ClassID) > "" Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID="  chanid  " And classid="  CLng(ClassID)
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                LoadPopularArticle = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
                foundsql = "And A.ClassID in ("  ChildStr  ")"
            End If
            Rs.Close
        Else
            ChildStr = "0"
            foundsql = ""
        End If
        Select Case CInt(stype)
        Case 1
            foundsql = foundsql  " ORDER BY A.DayHits DESC ,A.Articleid DESC"
            strHits = "DayHits"
        Case 2
            foundsql = foundsql  " ORDER BY A.WeekHits DESC ,A.Articleid DESC"
            strHits = "WeekHits"
        Case 3
            foundsql = foundsql  " ORDER BY A.MonthHits DESC ,A.Articleid DESC"
            strHits = "MonthHits"
        Case 4
            foundsql = foundsql  " And A.isBest>0 ORDER BY A.AllHits DESC ,A.Articleid DESC"
            strHits = "AllHits"
        Case Else
            foundsql = foundsql  "ORDER BY A.AllHits DESC ,A.Articleid DESC"
            strHits = "AllHits"
        End Select
        SQL = " A.ArticleID,A.ClassID,A.ColorMode,A.FontMode,A.title,A.BriefTopic,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest,A.DayHits,A.WeekHits,A.MonthHits,"
        SQL = "SELECT TOP "  CInt(maxline)  SQL  " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_Article] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID="  chanid  " "  foundsql
        Set Rs = Newasp.Execute(SQL)
        i = 0
        strContent = ""
        If Rs.BOF And Rs.EOF Then
            strContent = "還沒有找到任何軟件！"
        Else
            Do While Not Rs.EOF
                If Trim(styles) > "" And Trim(styles) > "0" Then
                    If (i Mod 2) = 0 Then
                        divstyle = " class="""  Trim(styles)  "1"""
                    Else
                        divstyle = " class="""  Trim(styles)  "2"""
                    End If
                End If
                NewsTitle = Newasp.GotTopic(Rs("title"), CInt(maxlen))
                NewsTitle = Newasp.ReadFontMode(NewsTitle, Rs("ColorMode"), Rs("FontMode"))
                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("ArticleID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                Else
                    HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("ArticleID")
                End If
                If CInt(showhits) > 0 Then
                    AllHits = Rs(strHits)
                Else
                    AllHits = ""
                End If
                ArticleTitle = "div"  divstyle  ">"  start  " a href="""  HtmlFileUrl  """ target="""  target  """ title="""  Newasp.ChannelModule  "標(biāo)題："  Rs("title")  "#13;#10;發(fā)布時間："  Rs("WriteTime")  "#13;#10;閱覽次數(shù)："  Rs("AllHits")  """ class=popular>"  NewsTitle  "/a>  "  AllHits  "/div>"
                strContent = strContent  ArticleTitle
                Rs.MoveNext
                i = i + 1
            Loop
        End If
        Rs.Close: Set Rs = Nothing
        LoadPopularArticle = strContent
    End Function
    '================================================
    '函數(shù)名：ReadPopularSoft
    '作  用：讀取軟件排行列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadPopularArticle(ByVal str)
        On Error Resume Next
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

        strTemp = str
        If InStr(strTemp, "{$ReadPopularArticle(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularArticle(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularArticle(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadPopularArticle(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
            Next
        End If
        ReadPopularArticle = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadPopularFlash
    '作  用：裝載排行動畫列表
    '參  數(shù)：ClassID   ----分類ID
    '        chanid   ----頻道ID
    '        stype   ----調(diào)用類型
    '        maxline   ----顯示列表數(shù)
    '        maxlen   ----顯示標(biāo)題長度
    '        showhits   ----是否顯示下載數(shù)
    '        target   ----連接目標(biāo)
    '        start   ----標(biāo)題頭標(biāo)記
    '        styles   ----樣式名稱
    '================================================
    Public Function LoadPopularFlash(ByVal chanid, ByVal ClassID, ByVal stype, _
        ByVal maxlen, ByVal maxline, ByVal showhits, _
        ByVal target, ByVal start, ByVal styles)

        Dim SQL, Rs, foundsql, strHits
        Dim ChildStr, i, strContent
        Dim HtmlFileName, HtmlFileUrl
        Dim NewsTitle, AllHits, strtitle
        Dim divstyle

        chanid = Newasp.ChkNumeric(chanid)
        ClassID = Newasp.ChkNumeric(ClassID)
        stype = Newasp.ChkNumeric(stype)
        If chanid = 0 Then chanid = 1

        On Error Resume Next
        Newasp.LoadChannel(chanid)

        If CLng(ClassID) > 0 And Trim(ClassID) > "" Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID="  chanid  " And classid="  ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                LoadPopularFlash = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
                foundsql = "And A.ClassID in ("  ChildStr  ")"
            End If
            Rs.Close
        Else
            ChildStr = "0"
            foundsql = ""
        End If

        Select Case CInt(stype)
        Case 1
            foundsql = foundsql  " ORDER BY A.DayHits DESC ,A.flashid DESC"
            strHits = "DayHits"
        Case 2
            foundsql = foundsql  " ORDER BY A.WeekHits DESC ,A.flashid DESC"
            strHits = "WeekHits"
        Case 3
            foundsql = foundsql  " ORDER BY A.MonthHits DESC ,A.flashid DESC"
            strHits = "MonthHits"
        Case 4
            foundsql = foundsql  " And A.isBest>0 ORDER BY A.AllHits DESC ,A.flashid DESC"
            strHits = "AllHits"
        Case Else
            foundsql = foundsql  "ORDER BY A.AllHits DESC ,A.flashid DESC"
            strHits = "AllHits"
        End Select
        SQL = " A.flashid,A.ClassID,A.ColorMode,A.FontMode,A.title,A.AllHits,A.addTime,A.HtmlFileDate,A.isBest,A.DayHits,A.WeekHits,A.MonthHits,"
        SQL = "SELECT TOP "  CInt(maxline)  SQL  " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_FlashList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID="  chanid  " "  foundsql
        Set Rs = Newasp.Execute(SQL)
        i = 0
        strContent = ""
        If Rs.BOF And Rs.EOF Then
            strContent = "還沒有找到任何內(nèi)容！"
        Else
            Do While Not Rs.EOF
                If Trim(styles) > "" And Trim(styles) > "0" Then
                    If (i Mod 2) = 0 Then
                        divstyle = " class="""  Trim(styles)  "1"""
                    Else
                        divstyle = " class="""  Trim(styles)  "2"""
                    End If
                End If

                NewsTitle = Newasp.GotTopic(Rs("title"), CInt(maxlen))
                NewsTitle = Newasp.ReadFontMode(NewsTitle, Rs("ColorMode"), Rs("FontMode"))
                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("flashid"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                Else
                    HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("flashid")
                End If
                If CInt(showhits) > 0 Then
                    AllHits = Rs(strHits)
                Else
                    AllHits = ""
                End If
                strtitle = "div"  divstyle  ">"  start  " a href="""  HtmlFileUrl  """ target="""  target  """ title="""  Newasp.ChannelModule  "名稱："  Rs("title")  "#13;#10;發(fā)布時間："  Rs("addTime")  "#13;#10;下載總數(shù)："  Rs("AllHits")  """ class=popular>"  NewsTitle  "/a>  "  AllHits  "/div>"
                strContent = strContent  strtitle

                Rs.MoveNext
                i = i + 1
            Loop
        End If
        Rs.Close: Set Rs = Nothing
        LoadPopularFlash = strContent
    End Function
    '================================================
    '函數(shù)名：ReadPopularFlash
    '作  用：讀取動畫排行列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadPopularFlash(ByVal str)
        On Error Resume Next
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

        strTemp = str
        If InStr(strTemp, "{$ReadPopularFlash(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularFlash(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularFlash(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadPopularFlash(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
            Next
        End If
        ReadPopularFlash = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadSoftType
    '作  用：裝載軟件類型列表
    '參  數(shù)：chanid   ----頻道ID
    '        SoftType   ----軟件類型
    '        maxline   ----顯示列表數(shù)
    '        maxlen   ----顯示標(biāo)題長度
    '        showclass   ----是否顯示分類
    '        showdate   ----是否顯示日期
    '        DateMode   ----顯示日期模式
    '        newindow  ----是否新窗口打開連接
    '        styles   ----樣式名稱
    '================================================
    Public Function LoadSoftType(ByVal chanid, ByVal SoftType, ByVal maxlen, _
        ByVal maxline, ByVal showclass, ByVal showdate, _
        ByVal DateMode, ByVal newindow, ByVal styles)

        Dim SQL, Rs, foundsql, strContent, i
        Dim strSoftName, ChildStr, ListStyle, HtmlFileName, BestCode, BestString
        Dim ClassName, HtmlFileUrl, SoftTime, LinkTarget, SoftTopic

        SoftType = Newasp.CheckStr(SoftType)
        chanid = Newasp.ChkNumeric(chanid)
        maxline = Newasp.ChkNumeric(maxline)
        If chanid = 0 Then chanid = 2
        If maxline = 0 Then maxline = 10

        On Error Resume Next
        Newasp.LoadChannel(chanid)

        If Trim(SoftType) > "" Then
            foundsql = "And A.SoftType='"  SoftType  "' Order By A.SoftTime Desc ,A.SoftID Desc"
        Else
            foundsql = "Order By A.SoftTime Desc ,A.SoftID Desc"
        End If

        SQL = " A.SoftID,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.SoftType,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,"
        SQL = "SELECT TOP "  maxline  SQL  " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml FROM [NC_SoftList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID="  chanid  " "  foundsql
        Set Rs = Newasp.Execute(SQL)
        i = 0
        strContent = ""
        If Rs.BOF And Rs.EOF Then
            strContent = "還沒有找到任何軟件！"
        Else
            strContent = "table width=""100%"" border=0 cellpadding=2 cellspacing=0>"
            Do While Not Rs.EOF
                If (i Mod 2) = 0 Then
                    ListStyle = Trim(styles)  1
                Else
                    ListStyle = Trim(styles)  2
                End If
                If Rs("isBest") > 0 Then
                    BestCode = 2
                    BestString = "font color='"  Newasp.MainSetting(3)  "'>推薦/font>"
                Else
                    BestCode = 1
                    BestString = ""
                End If
                strContent = strContent  Newasp.MainSetting(14)
                strSoftName = Newasp.GotTopic(Rs("SoftName")  " "  Rs("SoftVer"), CInt(maxlen))
                strSoftName = Newasp.ReadFontMode(strSoftName, Rs("ColorMode"), Rs("FontMode"))

                ClassName = Newasp.ReadFontMode(Rs("ClassName"), Rs("ColorModes"), Rs("FontModes"))
                HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("SoftID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                If CInt(Newasp.ChannelUseHtml) > 0 Then
                    HtmlFileUrl = Newasp.ChannelPath  Rs("HtmlFileDir")  Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath)  HtmlFileName
                    ClassName = "a href='"  Newasp.ChannelPath  Rs("HtmlFileDir")  "index"  Newasp.ChannelHtmlExt  "'>"  ClassName  "/a>"
                Else
                    HtmlFileUrl = Newasp.ChannelPath  "show.asp?id="  Rs("SoftID")
                    ClassName = "a href='"  Newasp.ChannelPath  "list.asp?classid="  Rs("ClassID")  "'>"  ClassName  "/a>"
                End If
                If CInt(showclass) = 0 Then ClassName = ""
                If CInt(showdate) > 0 Then
                    SoftTime = Newasp.ShowDateTime(Rs("SoftTime"), CInt(DateMode))
                Else
                    SoftTime = ""
                End If
                If CInt(newindow) > 0 Then
                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If

                SoftTopic = "a href='"  HtmlFileUrl  "'"  LinkTarget  " title='"  Newasp.ChannelModule  "名稱："  Rs("SoftName")  "#13;#10;發(fā)布時間："  Rs("SoftTime")  "#13;#10;下載次數(shù)："  Rs("AllHits")  "' class=showlist>"  strSoftName  "/a>"
                strContent = Replace(strContent, "{$SoftTopic}", SoftTopic)
                strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
                strContent = Replace(strContent, "{$SoftName}", strSoftName)
                strContent = Replace(strContent, "{$Title}", Rs("SoftName"))
                strContent = Replace(strContent, "{$DateAndTitle}", Rs("SoftTime"))
                strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl)
                strContent = Replace(strContent, "{$ClassName}", ClassName)
                strContent = Replace(strContent, "[]", "")
                strContent = Replace(strContent, "{$Target}", LinkTarget)
                strContent = Replace(strContent, "{$SoftTime}", SoftTime)
                strContent = Replace(strContent, "{$SoftHits}", Rs("AllHits"))
                strContent = Replace(strContent, "{$ListStyle}", ListStyle)
                strContent = Replace(strContent, "{$BestCode}", BestCode)
                strContent = Replace(strContent, "{$BestString}", BestString)
                Rs.MoveNext
                i = i + 1
            Loop
            strContent = strContent  "/table>"
        End If
        Set Rs = Nothing
        LoadSoftType = strContent
    End Function
    '================================================
    '函數(shù)名：ReadSoftType
    '作  用：讀取軟件類型列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadSoftType(ByVal str)
        On Error Resume Next
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

        strTemp = str
        If InStr(strTemp, "{$ReadSoftType(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadSoftType(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadSoftType(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadSoftType(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
            Next
        End If
        ReadSoftType = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadUserRank
    '作  用：裝用戶排行列表
    '================================================
    Public Function LoadUserRank(ByVal stype,ByVal grade,ByVal maxline,ByVal styles)
        Dim SQL, Rs, foundsql, strContent, i
        Dim ListStyle,username

        stype = Newasp.CheckNumeric(stype)
        grade = Newasp.CheckNumeric(grade)
        maxline = Newasp.CheckNumeric(maxline)
        If maxline = 0 Then maxline = 10
        If stype = 1 Then
            foundsql = "ORDER BY JoinTime DESC,userid DESC"
        ElseIf stype = 2 Then
            foundsql = "ORDER BY LastTime DESC,userid DESC"
        ElseIf stype = 3 Then
            foundsql = "ORDER BY userpoint DESC,userid DESC"
        Else
            foundsql = "ORDER BY userlogin DESC,userid DESC"
        End If
        If grade > 0 Then
            SQL = "SELECT TOP "  maxline  " userid,username,userpoint,userlogin FROM [NC_User] WHERE UserGrade="  grade  " "  foundsql
        Else
            SQL = "SELECT TOP "  maxline  " userid,username,userpoint,userlogin FROM [NC_User] "  foundsql
        End If
        Set Rs = Newasp.Execute(SQL)
        i = 0
        strContent = ""
        If Not (Rs.BOF And Rs.EOF) Then
            strContent = "table width=""100%"" border=0 cellpadding=2 cellspacing=0>"
            Do While Not Rs.EOF
                If (i Mod 2) = 0 Then
                    ListStyle = Trim(styles)  1
                Else
                    ListStyle = Trim(styles)  2
                End If
                username = "a href="""  Newasp.InstallDir  "user/userlist.asp?userid="  Rs("userid")  """ target=""_blank"">"  Rs("username")  "/a>"
                strContent = strContent  Newasp.MainSetting(23)
                strContent = Replace(strContent, "{$ListStyle}", ListStyle)
                strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
                strContent = Replace(strContent, "{$UserName}", username)
                strContent = Replace(strContent, "{$username}", Rs("username"))
                strContent = Replace(strContent, "{$UserID}", Rs("userid"))
                strContent = Replace(strContent, "{$UserLogin}", Rs("userlogin"))
                strContent = Replace(strContent, "{$UserPoint}", Rs("userpoint"))
                Rs.MoveNext
                i = i + 1
                strContent = Replace(strContent, "{$OrderID}", i)
            Loop
            strContent = strContent  "/table>"
        End If
        Rs.Close: Set Rs = Nothing

        LoadUserRank = strContent
    End Function
    '================================================
    '函數(shù)名：ReadUserRank
    '作  用：讀取用戶排行列表
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadUserRank(ByVal str)
        On Error Resume Next
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

        strTemp = str
        If InStr(strTemp, "{$ReadUserRank(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadUserRank(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadUserRank(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadUserRank(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3)))
            Next
        End If
        ReadUserRank = strTemp
    End Function
    '================================================
    '函數(shù)名：LoadStatistic
    '作  用：裝載頻道統(tǒng)計
    '參  數(shù)：moduleid ----所屬模塊
    '        ChannelID ----頻道ID
    '        strClass ----所調(diào)用的分類ID或者軟件類型
    '        stype ----統(tǒng)計類型，0=全部統(tǒng)計，1=今日更新統(tǒng)計，2=點擊數(shù)統(tǒng)計，3=軟件容量統(tǒng)計
    '================================================
    Public Function LoadStatistic(ByVal moduleid, ByVal ChannelID, ByVal strClass, ByVal stype)

        moduleid = Newasp.CheckNumeric(moduleid)
        ChannelID = Newasp.CheckNumeric(ChannelID)
        stype = Newasp.CheckNumeric(stype)

        Dim Rs, SQL, StatCount
        Dim foundsql, ClassID, ChildStr

        ClassID = Newasp.CheckNumeric(strClass)
        On Error Resume Next
        LoadStatistic = 0
        If ClassID > 0 Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID = "  ChannelID  " And ClassID="  ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                ChildStr = 0
            Else
                ChildStr = Rs("ChildStr")
            End If
            Rs.Close: Set Rs = Nothing
            foundsql = "And ChannelID="  ChannelID  " And ClassID in ("  ChildStr  ")"
        Else
            foundsql = "And ChannelID="  ChannelID
        End If
        Select Case moduleid
        Case 1
            If stype = 1 Then
                If isSqlDataBase = 1 Then
                    SQL = "SELECT COUNT(ArticleID) FROM NC_Article WHERE isAccept>0 "  foundsql  " And Datediff(d,WriteTime,GetDate())=0"
                Else
                    SQL = "SELECT COUNT(ArticleID) FROM NC_Article WHERE isAccept>0 "  foundsql  " And WriteTime>=Date()"
                End If
            ElseIf stype = 2 Then
                SQL = "SELECT SUM(AllHits) FROM NC_Article WHERE isAccept>0 "  foundsql
            ElseIf stype = 4 Then
                SQL = "SELECT SUM(DayHits) FROM NC_Article WHERE isAccept>0 "  foundsql
            Else
                SQL = "SELECT COUNT(ArticleID) FROM NC_Article WHERE isAccept>0 "  foundsql
            End If
        Case 2
            If Not IsNumeric(strClass) Then
                foundsql = foundsql  " And SoftType='"  Newasp.CheckStr(strClass)  "'"
            End If
            If stype = 1 Then
                If isSqlDataBase = 1 Then
                    SQL = "SELECT COUNT(softid) FROM NC_SoftList WHERE isAccept>0 "  foundsql  " And Datediff(d,SoftTime,GetDate())=0"
                Else
                    SQL = "SELECT COUNT(softid) FROM NC_SoftList WHERE isAccept>0 "  foundsql  " And SoftTime>=Date()"
                End If
            ElseIf stype = 2 Then
                SQL = "SELECT SUM(AllHits) FROM NC_SoftList WHERE isAccept>0 "  foundsql
            ElseIf stype = 3 Then
                SQL = "SELECT SUM(SoftSize) FROM NC_SoftList WHERE isAccept>0 "  foundsql
            ElseIf stype = 4 Then
                SQL = "SELECT SUM(DayHits) FROM NC_SoftList WHERE isAccept>0 "  foundsql
            Else
                SQL = "SELECT COUNT(softid) FROM NC_SoftList WHERE isAccept>0 "  foundsql
            End If
        Case 4
            If stype = 1 Then
                If isSqlDataBase = 1 Then
                    SQL = "SELECT COUNT(GuestID) FROM NC_GuestBook WHERE isAccept>0 And Datediff(d,WriteTime,GetDate())=0"
                Else
                    SQL = "SELECT COUNT(GuestID) FROM NC_GuestBook WHERE isAccept>0 And WriteTime>=Date()"
                End If
            Else
                SQL = "SELECT COUNT(GuestID) FROM NC_GuestBook WHERE isAccept>0"
            End If
        Case 5
            If stype = 1 Then
                If isSqlDataBase = 1 Then
                    SQL = "SELECT COUNT(flashid) FROM NC_FlashList WHERE isAccept>0 "  foundsql  " And Datediff(d,addTime,GetDate())=0"
                Else
                    SQL = "SELECT COUNT(flashid) FROM NC_FlashList WHERE isAccept>0 "  foundsql  " And addTime>=Date()"
                End If
            ElseIf stype = 2 Then
                SQL = "SELECT SUM(AllHits) FROM NC_FlashList WHERE isAccept>0 "  foundsql
            ElseIf stype = 3 Then
                SQL = "SELECT SUM(filesize) FROM NC_FlashList WHERE isAccept>0 "  foundsql
            ElseIf stype = 4 Then
                SQL = "SELECT SUM(DayHits) FROM NC_FlashList WHERE isAccept>0 "  foundsql
            Else
                SQL = "SELECT COUNT(flashid) FROM NC_FlashList WHERE isAccept>0 "  foundsql
            End If
        Case Else
            If stype = 1 Then
                If isSqlDataBase = 1 Then
                    SQL = "SELECT COUNT(userid) FROM NC_User WHERE Datediff(d,JoinTime,GetDate())=0"
                Else
                    SQL = "SELECT COUNT(userid) FROM NC_User WHERE JoinTime>=Date()"
                End If
            Else
                SQL = "SELECT COUNT(userid) FROM NC_User"
            End If
        End Select
        Set Rs = Newasp.Execute(SQL)
        If Rs.BOF And Rs.EOF Then
            StatCount = 0
        Else
            StatCount = CCur(Rs(0))
            If (moduleid = 2 And stype = 3) Or (moduleid = 5 And stype = 3) Then
                StatCount = Round(StatCount / 1024 / 1024, 3)
                StatCount = FormatNumber(StatCount, 3, -1)
            End If
        End If
        Rs.Close: Set Rs = Nothing
        LoadStatistic = StatCount
    End Function
    '================================================
    '函數(shù)名：ReadStatistic
    '作  用：讀取頻道統(tǒng)計
    '參  數(shù)：str ----原字符串
    '================================================
    Public Function ReadStatistic(ByVal str)
        On Error Resume Next
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

        strTemp = str
        On Error Resume Next
        If InStr(strTemp, "{$ReadStatistic(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadStatistic(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadStatistic(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadStatistic(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3)))
            Next
        End If
        ReadStatistic = strTemp
    End Function

    Public Function ShowIndex(ByVal isHtml)
        Dim HtmlContent
        Newasp.LoadTemplates 0, 1, 0
        HtmlContent = Newasp.HtmlContent
        HtmlContent = Replace(HtmlContent, "{$ChannelRootDir}", Newasp.InstallDir)
        HtmlContent = Replace(HtmlContent, "{$InstallDir}", Newasp.InstallDir)
        If Len(Newasp.HtmlSetting(1))  2 Then
            HtmlContent = Replace(HtmlContent, "{$PageTitle}", "首頁")
        Else
            HtmlContent = Replace(HtmlContent, "{$PageTitle}", Newasp.HtmlSetting(1))
        End If
        HtmlContent = Replace(HtmlContent, "{$ChannelID}", 0)
        HtmlContent = ReadAnnounceContent(HtmlContent, 0)
        HtmlContent = ReadClassMenu(HtmlContent)
        HtmlContent = ReadClassMenubar(HtmlContent)
        HtmlContent = ReadArticlePic(HtmlContent)
        HtmlContent = ReadSoftPic(HtmlContent)
        HtmlContent = ReadArticleList(HtmlContent)
        HtmlContent = ReadSoftList(HtmlContent)
        HtmlContent = ReadFlashList(HtmlContent)
        HtmlContent = ReadFlashPic(HtmlContent)
        HtmlContent = ReadFriendLink(HtmlContent)
        HtmlContent = ReadNewsPicAndText(HtmlContent)
        HtmlContent = ReadSoftPicAndText(HtmlContent)
        HtmlContent = ReadGuestList(HtmlContent)
        HtmlContent = ReadAnnounceList(HtmlContent)
        HtmlContent = ReadPopularArticle(HtmlContent)
        HtmlContent = ReadPopularSoft(HtmlContent)
        HtmlContent = ReadPopularFlash(HtmlContent)
        HtmlContent = ReadSoftType(HtmlContent)
        HtmlContent = ReadStatistic(HtmlContent)
        HtmlContent = ReadUserRank(HtmlContent)
        HtmlContent = Replace(HtmlContent, "{$SkinPath}", Newasp.SkinPath)
        HtmlContent = Replace(HtmlContent, "{$InstallDir}", Newasp.InstallDir)
        If isHtml Then
            ShowIndex = HtmlContent
        Else
            Response.Write HtmlContent
        End If
    End Function

End Class
%>

標(biāo)簽：涼山通遼邢臺赤峰清遠(yuǎn) 南京楚雄上海

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《文章列表類別》，本文關(guān)鍵詞文章,列表,類別,文章,列表,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。