newasp中main类(51)

        If Left(ExtName, 1) <> "." Then
            strExtName = "." & Trim(ExtName)
        Else
            strExtName = Trim(ExtName)
        End If
        If CInt(n) <= 1 Then
            strFileName = "index" & strExtName
        Else
            strSpecialID = Supplemental(specid, 3)
            strFileName = "Special" & strSpecialID & "_" & n & strExtName
        End If
        strFileName = Replace(strFileName, " ", "")
        SpecialFileName = CStr(strFileName)
    End Function
    '================================================
    '函数名：ChannelMenu
    '作  用：显示频道菜单
    '================================================
    Public Function ChannelMenu()
        Dim SQL, Rs, i, TotalNumber,strTop
        Dim strContent, LinkTarget, ChannelName
        Dim ChannelUrl, HtmlContent, sCaption

        
        Name = "ChannelMenu"
        If ObjIsEmpty() Then
            If ChkNumeric(Main_Setting(7)) = 0 Then
                strTop = vbNullString
            Else
                strTop = "TOP " & CInt(Main_Setting(7))
            End If
            SQL = "SELECT " & strTop & " ChannelID,orders,ColorModes,FontModes,ChannelName,Caption,ChannelDir,StopChannel,IsHidden,BindDomain,DomainName,LinkTarget,ChannelType,ChannelUrl,IsHidden FROM [NC_Channel] WHERE IsHidden = 0 Order By orders"