newasp中main类(15)

            Value = rstmp.GetRows(1)
            Set rstmp = Nothing
        End If
        Set Rs = Nothing
    End Sub
    Private Sub TemplatesMainCache(skinid)
        On Error Resume Next
        Dim Rs, SQL, rstmp
        SQL = "SELECT TemplateDir,page_content,page_setting FROM [NC_Template] WHERE pageid = 0 And skinid = " & skinid & " And ChannelID = 0"
        Set Rs = Execute(SQL)
        If Not Rs.EOF Then
            Value = Rs.GetRows(1)
        Else
            Set rstmp = Execute("SELECT TemplateDir,page_content,page_setting from [NC_Template] WHERE pageid = 0 And isDefault = 1 And ChannelID = 0")
            Value = rstmp.GetRows(1)
            Set rstmp = Nothing
        End If
        Set Rs = Nothing
    End Sub
    Public Property Let ByValue(ByVal vNewValue)
        Dim tmpstr
        tmpstr = vNewValue
        Html_Setting = tmpstr(2, 0)
        Html_Setting = Split(Html_Setting, "|||")
        HtmlContent = tmpstr(1, 0)
        If CInt(Html_Setting(0)) <> 0 Then
            HtmlContent = HtmlTop & HtmlContent & HtmlFoot
        End If
        HtmlContent = Replace(HtmlContent, "{$Style_CSS}", HtmlCss)
        HtmlContent = Replace(HtmlContent, "{$SkinPath}", SkinPath)