newasp中main类(14)

        Main_Style = Value
        SkinPath = Main_Style(0, 0)
        Main_Setting = Split(Main_Style(2, 0), "|||")
        MainStyle = Main_Style(1, 0)
        'MainStyle = Replace(MainStyle, "{$InstallDir}", ReadInstallDir(BindDomain))
        MainStyle = Replace(MainStyle, "{$SkinPath}", SkinPath)
        MainStyle = Split(MainStyle, "|||")
        HtmlCss = MainStyle(0)
        HtmlTop = MainStyle(1)
        HtmlFoot = MainStyle(2)
        If pageid <> 0 Then
            Name = "Templates" & ChannelID & skinid & pageid
            If ObjIsEmpty() Then
                TemplatesToCache ChannelID, pageid
            End If
            ByValue = Value
        End If
    End Sub
    Private Sub TemplatesToCache(ChannelID, pageid)
        On Error Resume Next
        Dim Rs, SQL, rstmp
        SQL = "SELECT skinid,page_content,page_setting FROM [NC_Template] WHERE ChannelID = " & ChannelID & " And skinid = " & skinid & " And pageid = " & pageid
        Set Rs = Execute(SQL)
        If Not Rs.EOF Then
            Value = Rs.GetRows(1)
        Else
            Set rstmp = Execute("SELECT skinid,page_content,page_setting FROM [NC_Template] WHERE ChannelID = " & ChannelID & " And isDefault = 1 And pageid = " & pageid)