newasp中main类(43)

            sBriefTopic = "<font color='" & Main_Setting(4) & "'>[图文]</font>"
        Case "2"
            sBriefTopic = "<font color='" & Main_Setting(5) & "'>[组图]</font>"
        Case "3"
            sBriefTopic = "<font color='" & Main_Setting(6) & "'>[新闻]</font>"
        Case "4"
            sBriefTopic = "<font color='" & Main_Setting(4) & "'>[推荐]</font>"
        Case "5"
            sBriefTopic = "<font color='" & Main_Setting(5) & "'>[注意]</font>"
        Case "6"
            sBriefTopic = "<font color='" & Main_Setting(6) & "'>[转载]</font>"
        Case Else
            sBriefTopic = ""
        End Select
        ReadPicTopic = sBriefTopic
    End Function
    '=============================================================
    '函数名：ReadPayMoney
    '作  用：读取要支付的金钱
    '参  数：money   ----实际金钱
    '返回值：加上手续费后的金钱
    '=============================================================
    Public Function ReadPayMoney(ByVal money, ByVal Reduce)
        On Error Resume Next
        If money = 0 Then
            ReadPayMoney = 0
            Exit Function
        End If
        Dim arrChinaeBank, valPercent, Percents

        arrChinaeBank = Split(ChinaeBank, "|||")