newasp中main类(41)

            Case 1
                strTempPath = y & "/" & m & "/" & d & "/"
            Case 2
                strTempPath = y & "/" & m & "/"
            Case 3
                strTempPath = y & m & "/"
            Case 4
                strTempPath = y & "/"
            Case 5
                strTempPath = y & "-" & m & "-" & d & "/"
            Case 6
                strTempPath = y & "-" & m & "/"
            Case 7
                strTempPath = "html/"
            Case 8
                strTempPath = "show/"
        Case Else
            strTempPath = ""
        End Select
        strTempPath = Replace(strTempPath, " ", "")
        ShowDatePath = CStr(strTempPath)
    End Function
    '=============================================================
    '函数名：ReadBriefTopicffd
    '作  用：读取简短标题
    '参  数：para
    '返回值：简短标题
    '=============================================================
    Public Function ReadBriefTopic(ByVal para)
        Dim sBriefTopic