newasp中main类(42)

        ReadBriefTopic = ""
        If Not IsNumeric(para) Then Exit Function
        If para = 0 Then Exit Function
        Select Case para
        Case "1"
            sBriefTopic = "<font color='blue'>[图文]</font>"
        Case "2"
            sBriefTopic = "<font color='red'>[组图]</font>"
        Case "3"
            sBriefTopic = "<font color='green'>[新闻]</font>"
        Case "4"
            sBriefTopic = "<font color='blue'>[推荐]</font>"
        Case "5"
            sBriefTopic = "<font color='red'>[注意]</font>"
        Case "6"
            sBriefTopic = "<font color='green'>[转载]</font>"
        Case Else
            sBriefTopic = ""
        End Select
        ReadBriefTopic = sBriefTopic
    End Function
    '=============================================================
    '函数名：ReadPicTopic
    '作  用：读取简短标题
    '参  数：para
    '返回值：简短标题
    '=============================================================
    Public Function ReadPicTopic(ByVal para)
        Dim sBriefTopic
        ReadPicTopic = ""
        If Not IsNumeric(para) Then Exit Function
        If para = 0 Then Exit Function
        Select Case para
        Case "1"