newasp中main类(50)

    '================================================
    '函数名：ClassFileName
    '作  用：读取HTML文件列表名
    '参  数：ClassID ----分类ID
    '================================================
    Public Function ClassFileName(ByVal ClassID, ByVal ExtName, ByVal PrefixStr, ByVal n)
        Dim strFileName, strExtName, strClassID

        If Trim(ExtName) = "" Then ExtName = ".html"
        If Not IsNumeric(n) Then n = 0
        If Left(ExtName, 1) <> "." Then
            strExtName = "." & Trim(ExtName)
        Else
            strExtName = Trim(ExtName)
        End If
        If CInt(n) <= 1 Then
            strFileName = "index" & strExtName
        Else
            strClassID = Supplemental(ClassID, 3)
            strFileName = PrefixStr & strClassID & "_" & n & strExtName
        End If
        strFileName = Replace(strFileName, " ", "")
        ClassFileName = CStr(strFileName)
    End Function
    '================================================
    '函数名：SpecialFileName
    '作  用：读取专题HTML文件名
    '参  数：specid ----专题ID
    '================================================
    Public Function SpecialFileName(ByVal specid, ByVal ExtName, ByVal n)
        Dim strFileName, strExtName, strSpecialID

        If Trim(ExtName) = "" Then ExtName = ".html"
        If Not IsNumeric(n) Then n = 0