newasp中main类(45)

    '================================================
    '函数名：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 = InstallDir & CacheChannel(2,0)
    End Function

    '================================================
    '函数名：GetImageUrl
    '作  用：获取图片URL
    '================================================
    Public Function GetImageUrl(ByVal url, ByVal ChannelDir)
        On Error Resume Next
        Dim strTempUrl, strImageUrl

        If Not IsNull(url) And Trim(url) <> "" And LCase(url) <> "http://" Then
            strTempUrl = InstallDir & ChannelDir
            If CheckUrl(url) = 1 Then