<%
Dim TopicPath, BookPath, AdFilePath
TopicPath = SiteWebFilePath & "topic/"
BookPath = SiteWebFilePath & "book/"
AdFilePath = SiteWebFilePath & "Plug/super/?action=super"
Dim WapPath, WapSitePath, WapSiteFilePath
WapPath = SiteWebFilePath & "m"
WapSitePath = WapPath & "/"
WapSiteFilePath = "m/"

'============================================================== Channel表字段
Dim ChannelField
ChannelField = "ChannelName,BriefName,TabName,ModelId,ChannelPath,ChannelKey,ChannelDesc,"
ChannelField = ChannelField & "CnTemplateIndex,EnTemplateIndex,CnTemplateSearch,EnTemplateSearch,ShowPic,"
ChannelField = ChannelField & "IsThumbnail,ThumbW,ThumbH,ThumbMode,"
ChannelField = ChannelField & "IsWaterMark,WaterMarkLogo,WaterLogoPos,WaterMarkTextPos,WaterMarkText,"
ChannelField = ChannelField & "Px,IsShow,ChannelImg"
'==============================================================

Function GetCaCheChannelInfo(ByVal ChannelCaCheName, ByVal ChannelId, ByVal TargetField)
    Dim CaCheNameInfo, ChannelResult
    ChannelResult = ""
    CaCheNameInfo = ChannelCaCheName & ChannelId
    Easp.Cache(CaCheNameInfo).Expires = 120
    If Easp.Cache(CaCheNameInfo).Ready() Then
        ChannelResult = Easp.Cache(CaCheNameInfo)
    Else
        ChannelResult = Easp.db.RT(TablePrefix & "Channel", " Id = "& ChannelId &" ", TargetField)
        If Easp.Has(ChannelResult) Then
            Easp.Cache(CaCheNameInfo) = ChannelResult
            Easp.Cache(CaCheNameInfo).SaveApp
        End If
    End If
    GetCaCheChannelInfo = ChannelResult
End Function
%>