newasp中main类(55)

                    CacheSelClass = CacheSelClass & "　├ "
                End If
                CacheSelClass = CacheSelClass & Rs1("ClassName") & "</option>" & vbCrLf
                Rs1.MoveNext
            Loop
            Rs1.Close
            Set Rs1 = Nothing
            Value = CacheSelClass
        End If
        LoadSelectClass = Value
    End Function
    Public Function ClassJumpMenu(ChannelID)
        Dim CacheJumpMenu
        Dim Rs1
        Dim i
        Name = "ClassJumpMenu" & ChannelID
        If ObjIsEmpty() Then
            Set Rs1 = Execute("select ClassID,ChannelID,ClassName,depth,TurnLink,TurnLinkUrl from [NC_Classify] where ChannelID = " & ChannelID & " order by rootid,orders")
            Do While Not Rs1.EOF
                If Rs1("TurnLink") <> 0 Then
                    CacheJumpMenu = CacheJumpMenu & "<option value=""" & Rs1("TurnLinkUrl") & """ {ClassID=" & Rs1("classid") & "}"
                Else
                    CacheJumpMenu = CacheJumpMenu & "<option value=""?ChannelID=" & Rs1("ChannelID") & "&sortid=" & Rs1("classid") & """ {ClassID=" & Rs1("classid") & "}"
                End If