文章列表类别(48)

    '函数名：CurrentStation
    '作  用：当前位置
    '参  数：...
    '================================================
    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