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"
