newasp中main类(16)

        HtmlContent = Replace(HtmlContent, "{$Width}", Main_Setting(0))
        HtmlContent = Replace(HtmlContent, "{$ChannelMenu}", ChannelMenu)
        HtmlContent = Replace(HtmlContent, "{$WebSiteName}", SiteName)
        HtmlContent = Replace(HtmlContent, "{$WebSiteUrl}", SiteUrl)
        HtmlContent = Replace(HtmlContent, "{$MasterMail}", MasterMail)
        HtmlContent = Replace(HtmlContent, "{$Keyword}", keywords)
        HtmlContent = Replace(HtmlContent, "{$Copyright}", Copyright)
        HtmlContent = Replace(HtmlContent, "{$IndexName}", IndexName)
        HtmlContent = Replace(HtmlContent, "{$Version}", "")
        HtmlContent = HtmlContent
    End Property
    Public Property Get ByValue()
        ByValue = HtmlContent
    End Property
    Public Property Let HTMLValue(ByVal vNewValue)
        Dim TempStr
        TempStr = vNewValue
        TempStr = Replace(TempStr, "{$Style_CSS}", HtmlCss)
        TempStr = Replace(TempStr, "{$SkinPath}", SkinPath)
        TempStr = Replace(TempStr, "{$Width}", Main_Setting(0))
        TempStr = Replace(TempStr, "{$ChannelMenu}", ChannelMenu)
        TempStr = Replace(TempStr, "{$WebSiteName}", SiteName)
        TempStr = Replace(TempStr, "{$WebSiteUrl}", SiteUrl)
        TempStr = Replace(TempStr, "{$MasterMail}", MasterMail)
        TempStr = Replace(TempStr, "{$Keyword}", keywords)
        TempStr = Replace(TempStr, "{$Copyright}", Copyright)
        TempStr = Replace(TempStr, "{$IndexName}", IndexName)
        TempStr = Replace(TempStr, "{$Version}", "")