newasp中main类(10)

        CopyrightStr = CopyrightStr & "│NewCloud SiteManageSystem Version 2.0.0 SP1 │" & vbCrLf
        CopyrightStr = CopyrightStr & "│版权所有: 新云网络 (newasp.net)             │" & vbCrLf
        CopyrightStr = CopyrightStr & "│官方主页: http://www.newasp.net             │" & vbCrLf
        CopyrightStr = CopyrightStr & "│论坛地址: http://bbs.newasp.net             │" & vbCrLf
        CopyrightStr = CopyrightStr & "│E-Mail:   webenvoy@163.com  QQ: 94022511    │" & vbCrLf
        CopyrightStr = CopyrightStr & "└────────────────────.NET┘" & vbCrLf
        CopyrightStr = CopyrightStr & "-->" & vbCrLf
        If CInt(IstopSite) = 1 And Not Admin_Page Then Response.Redirect ("" & SiteUrl & InstallDir & "showerr.asp?action=stop")
    End Sub
    Public Sub ReloadConfig()
        Dim SQL, Rs
        On Error Resume Next
        SQL = "SELECT * from [NC_Config] "
        Set Rs = Execute(SQL)
        Value = Rs.GetRows(1)
        Set Rs = Nothing
    End Sub
    '=============================================================
    '过程名：ReloadChannel
    '作  用：再装频道设置
    '参  数：ChannelID   ----频道ID
    '=============================================================
    Private Sub ReloadChannel(ChannelID)
        Dim SQL, Rs
        On Error Resume Next
        SQL = "SELECT ChannelID,ChannelName,ChannelDir,StopChannel,ChannelType,modules,ModuleName,BindDomain,DomainName,ChannelSkin,HtmlPath,HtmlForm,IsCreateHtml,HtmlExtName,HtmlPrefix,StopUpload,MaxFileSize,UpFileType,IsAuditing,AppearGrade,PostGrade,LeastString,MaxString,PaginalNum,LeastHotHist,Channel_Setting from NC_Channel where ChannelType <= 1 And ChannelID = " & CLng(ChannelID)