newasp中main类

;"
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, "|||")
Percents = CCur(arrChinaeBank(2) / 100)

If Percents = 0 Then
ReadPayMoney = CCur(money)
Else
If CBool(Reduce) = True Then
valPercent = Round(CCur(money) / (1 + 1 * Percents), 2)
ReadPayMoney = CCur(valPercent)
Else
valPercent = Round(CCur(money) * Percents, 2)
ReadPayMoney = CCur(money + valPercent)
End If
End If
End Function
''=============================================================
''函数名：RebateMoney
''作 用：读取打折的后金钱
''参 数：money ----实际金钱
'' Discount ----折扣
''=============================================================
Public Function RebateMoney(ByVal money, ByVal Discount)
On Error Resume Next
Dim Rebate

money = CheckNumeric(money)
Discount = CheckNumeric(Discount)
If Discount > 0 And Discount < 10 Then
Rebate = Round(money * (Discount / 10), 2)
RebateMoney = CCur(Rebate)
Else
RebateMoney = CCur(money)
End If
End Function
''================================================
''函数名：Supplemental
''作 用：补足参数
''参 数：para ----原参数
'' n ----增补的位数
''================================================
Public Function Supplemental(para, n)
Supplemental = ""
If Not IsNumeric(para) Then Exit Function
If Len(para) < n Then
Supplemental = String(n - Len(para), "0") & para
Else
Supplemental = para
End If
End Function
''-----------------------------------------------------------------
Public Function GetChannelDir(ByVal chanid)
On Error Resume Next
If Not IsNumeric(chanid) Then chanid = 1
Name = "Channel" & chanid
If ObjIsEmpty() Then ReloadChannel (chanid)
CacheChannel = Value
GetChannelDir =