admin_templateproject.asp

个人网站比较简短

'*************************  类模块主区域结束  *******************************
'*************************  类模块扩展域开始  *******************************
'=================================================
'过程名：SetDefault
'作  用：设置方案默认
'=================================================
Sub SetDefault()
    Dim TemplateProjectID, ProjectName
    TemplateProjectID = PE_CLng(Trim(Request("TemplateProjectID")))
    ProjectName = ReplaceBadChar(Trim(Request("ProjectName")))

    If TemplateProjectID = 0 Then
        FoundErr = True
        ErrMsg = "<li>方案ID 不能为空!</li>"
        Exit Sub
    End If

    '定义风格系统默认
    Conn.Execute ("update PE_Skin set IsDefault=" & PE_False & " where IsDefault=" & PE_True & "")
    Conn.Execute ("update PE_Skin set IsDefault=" & PE_True & " where IsDefaultInProject=" & PE_True & " and ProjectName='" & ProjectName & "'")
    '定义模板系统默认
    Conn.Execute ("update PE_Template set IsDefault=" & PE_False & " where IsDefault=" & PE_True & "")
    Conn.Execute ("update PE_Template set IsDefault=" & PE_True & " where IsDefaultInProject=" & PE_True & " and ProjectName='" & ProjectName & "'")
    '定义方案系统默认
    Conn.Execute ("update PE_TemplateProject set IsDefault=" & PE_False & " where IsDefault=" & PE_True & "")
    Conn.Execute ("update PE_TemplateProject set IsDefault=" & PE_True & " where TemplateProjectName='" & ProjectName & "'")

    Call WriteSuccessMsg("<li>成功将选定的方案设置为方案默认方案</li><li>成功将选定的风格设置为方案默认风格</li><li>成功将选定的模板设置为方案默认模板</li>", ComeUrl)
    Call CreatSkinFile
    Call ClearSiteCache(0)
End Sub

'=================================================
'过程名：DelTemplateProject
'作  用：确认删除方案
'=================================================
Sub DelTemplateProject()
    Dim TemplateProjectID, ProjectName, strTemp
    TemplateProjectID = PE_CLng(Trim(Request("TemplateProjectID")))
    ProjectName = ReplaceBadChar(Trim(Request("ProjectName")))
    Response.Write "        <br>" & vbCrLf
    Response.Write "        <table border='0' align='center' cellpadding='0' cellspacing='1' width='350' height='150' class='border'>" & vbCrLf
    Response.Write "          <tr class='title' height='22'>" & vbCrLf
    Response.Write "           <td align='center' ><strong>您确认删除方案么</strong></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr class='tdbg'>" & vbCrLf
    Response.Write "           <td  align='center' class='tdbg' valign='top'>"
    Response.Write "           <br><br>&nbsp;&nbsp;确定要<FONT color='red'>删除此方案吗？</font>删除此方案后方案隶属的<FONT color='blue'>模板,风格</font> 都将会被删除,请绝对注意!<br><br><br>"
    Response.Write "                <FONT color='red'> <a href='Admin_TemplateProject.asp?action=Del2&TemplateProjectID=" & TemplateProjectID & "&ProjectName=" & ProjectName & "'>确认删除</a></FONT>&nbsp;&nbsp;&nbsp;" & vbCrLf
    Response.Write "                <FONT color='blue'> <a href='Admin_TemplateProject.asp?action=main'> 返 回 </a></FONT> " & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "        </table>" & vbCrLf
        
End Sub

'=================================================
'过程名：DelTemplateProject2
'作  用：澈底删除方案
'=================================================
Sub DelTemplateProject2()
    Dim rs, sql
    Dim TemplateProjectID, ProjectName, strTemp
    TemplateProjectID = PE_CLng(Trim(Request("TemplateProjectID")))
    ProjectName = ReplaceBadChar(Trim(Request("ProjectName")))

    If TemplateProjectID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定TemplateProjectID</li>"
        Exit Sub
    End If

    sql = "select * from PE_TemplateProject where TemplateProjectID=" & TemplateProjectID
    Set rs = Server.CreateObject("Adodb.RecordSet")
    rs.Open sql, Conn, 1, 3

    If rs.BOF And rs.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的方案！</li>"
    Else

        If rs("IsDefault") = True Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>当前方案为默认方案，不能删除。请先将默认改为其他方案后再来删除此方案。</li>"
        End If
    End If

    If FoundErr = True Then
        rs.Close
        Set rs = Nothing
        Exit Sub
    End If

    rs.Delete
    rs.Update
    rs.Close
    Set rs = Nothing

    Conn.Execute ("delete from PE_Skin where ProjectName='" & ProjectName & "'")
    Conn.Execute ("delete from PE_Template where ProjectName='" & ProjectName & "'")

    strTemp = strTemp & "<li>成功删除选定的方案。</li>"
    strTemp = strTemp & "<li>成功删除选定的方案中的所有模板。</li>"
    strTemp = strTemp & "<li>成功删除选定的方案中的所有风格。</li>"

    Call WriteSuccessMsg(strTemp, "Admin_TemplateProject.asp?Action=main")
End Sub

'=================================================
'过程名：TemplateProject
'作  用：模板方案频道选项
'=================================================
Sub TemplateProject()

    Dim sql, rs
    Dim iTemplateType, iChannelID, i, Num
    iChannelID = 0
    iTemplateType = 0
    i = 0
    Num = 1
    ModuleType = PE_CLng(Trim(Request("ModuleType")))
        
    sql = "select * from PE_Template where Deleted=" & PE_False & " and ChannelID=" & ChannelID & " order by TemplateType,ChannelID"
        
    Set rs = Conn.Execute(sql)
    Response.Write "<form name='form1' method='post' action='Admin_Template.asp'>"
    Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "     <tr class='title' height='22'>"
    Response.Write "      <td width='30' align='center'><strong>选择</strong></td>"
    Response.Write "      <td width='30' align='center'><strong>ID</strong></td>"
    Response.Write "      <td width='150' align='center'><b>模板类型</b></td>"
    Response.Write "      <td height='22' align='center'><strong>模板名称</strong></td>"
    Response.Write "      <td width='80' align='center'><strong>是否默认</strong></td>"
    Response.Write "     </tr>"
    i = 0

    If rs.BOF And rs.EOF Then
        Response.Write "<tr class='tdbg'><td width='100%' colspan='6' align='center'> 没 有 任 何 模 板</td></tr>"
    Else

        Do While Not rs.EOF

            If i > 0 And rs("TemplateType") <> iTemplateType Or i > 0 And rs("ChannelID") <> iChannelID Then
                Num = Num + 1
                Response.Write "<tr height='10'><td colspan='6'></td></tr>"
            End If

            iChannelID = rs("ChannelID")
            iTemplateType = rs("TemplateType")
            i = i + 1

            Response.Write "  <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
            Response.Write "  <td width=""30"" align=""center"" height=""30"">" & vbCrLf
            Response.Write "    <input TYPE='radio' value='" & rs("TemplateID") & "' name=""TemplateID" & Num & """"

            If rs("IsDefault") = True Then Response.Write "checked"
            Response.Write "> " & vbCrLf
            Response.Write "  </td>" & vbCrLf
            Response.Write "      <td width='30' align='center'>" & rs("TemplateID") & "</td>"
            Response.Write "      <td width='150' align='center'>" & GetTemplateTypeName(rs("TemplateType"), rs("ChannelID")) & "</td>"
            Response.Write "      <td align='center'><a href='Admin_Template.asp?ChannelID=" & ChannelID & "&Action=Modify&TemplateID=" & rs("TemplateID") & "'>" & rs("TemplateName") & "</a></td>"
            Response.Write "      <td width='80' align='center'><b>"

            If rs("IsDefault") = True Then
                Response.Write "√"
            Else
                Response.Write "×"
            End If

            Response.Write "</td>"
            Response.Write "</tr>"

            rs.MoveNext
        Loop

        Response.Write "<Input TYPE='hidden' Name='Num' value='" & Num & "'>"

    End If

    rs.Close
    Set rs = Nothing
    Response.Write "</table>  "
    Response.Write "</form>"
End Sub

'=================================================
'过程名：CreatSkinFile
'作  用：显示处理结果生成css文件
'=================================================
Sub CreatSkinFile()

    If ObjInstalled_FSO = False Then
        Exit Sub
    End If

    If Not fso.FolderExists(Server.MapPath(InstallDir)) Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请先进行网站配置后再进行此项操作。</li>"
        Exit Sub
    End If

    If Not fso.FolderExists(Server.MapPath(InstallDir & "Skin")) Then
        fso.CreateFolder (Server.MapPath(InstallDir & "Skin"))
    End If

    Dim rsSkin, sqlSkin, hf, strSkin
    sqlSkin = "select * from PE_Skin"
    Set rsSkin = Conn.Execute(sqlSkin)

    Do While Not rsSkin.EOF
        strSkin = Replace_CaseInsensitive(rsSkin("Skin_CSS"), "Skin/", InstallDir & "Skin/")
        Call WriteToFile(InstallDir & "Skin/Skin" & rsSkin("SkinID") & ".css", strSkin)
        rsSkin.MoveNext
    Loop

    rsSkin.Close
    sqlSkin = "select * from PE_Skin where IsDefault=" & PE_True & ""
    Set rsSkin = Conn.Execute(sqlSkin)

    If rsSkin.BOF And rsSkin.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>你还没有将其中一个风格设为默认风格哦。请记得一定要做这一步呀。</li>"
    Else
        strSkin = Replace_CaseInsensitive(rsSkin("Skin_CSS"), "Skin/", InstallDir & "Skin/")
        Call WriteToFile(InstallDir & "Skin/DefaultSkin.css", strSkin)
    End If

    rsSkin.Close
    Set rsSkin = Nothing
End Sub

'=================================================
'过程名：TemplateBatchMove
'作  用：批量迁移模板
'=================================================
Sub TemplateBatchMove()
    Dim rs, sql
    Dim TemplateID, TemplateProjectID, ProjectName, TemplateChannelID

    TemplateID = ReplaceBadChar(Trim(Request("TemplateID")))
    TemplateChannelID = PE_CLng(Trim(Request("TemplateChannelID")))
    TemplateProjectID = ReplaceBadChar(Trim(Request("TemplateProjectID")))
    ProjectName = ReplaceBadChar(Trim(Request("ProjectName")))

    If ProjectName = "" Then
        Set rs = Conn.Execute("Select TemplateProjectName From PE_TemplateProject Where IsDefault=" & PE_True & "")

        If rs.BOF And rs.EOF Then
            Call WriteErrMsg("<li>系统中还没有默认方案,请到方案管理指定默认方案！</li>", ComeUrl)
            Exit Sub
        Else
            ProjectName = rs("TemplateProjectName")
        End If

        Set rs = Nothing
    End If
    
    Response.Write "<form method=""post"" action=""Admin_TemplateProject.asp"" name=""form1"" >" & vbCrLf
    Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0' class='border'>" & vbCrLf
    Response.Write "  <tr class='title'>" & vbCrLf
    Response.Write "    <td  align='center'><b>方案间模板迁移 </td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='0' class='border'>" & vbCrLf
    Response.Write "  <tr align='center'>" & vbCrLf
    Response.Write "    <td class='tdbg' height='200' valign='top'>"
    Response.Write "      <table width='98%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
    Response.Write "        <tr align='center'>" & vbCrLf
    Response.Write "          <td class='tdbg5' valign='top' width='50%'>" & vbCrLf
    Response.Write "            <table width='100%' border='0' cellpadding='2' cellspacing='1'>" & vbCrLf
    Response.Write "              <tr>" & vbCrLf
    Response.Write "                <td width='80'></td>" & vbCrLf
    Response.Write "                <td>" & vbCrLf
    Response.Write "                                &nbsp;&nbsp;&nbsp;&nbsp;<b>选择方案中要迁移的的模板</b><br>" & vbCrLf
    Response.Write "            <select name='ProjectName' style='width:150px;'  onChange='document.form1.submit();'>"
    sql = "select * from PE_TemplateProject"
    Set rs = Conn.Execute(sql)

    If rs.BOF And rs.EOF Then
        Response.Write "<option value='0'>没有任何方案项目</option>"
    Else

        Do While Not rs.EOF
            Response.Write "<option value='" & rs("TemplateProjectName") & "' " & OptionValue(rs("TemplateProjectName"), ProjectName) & ">" & rs("TemplateProjectName") & "</option>"
            rs.MoveNext
        Loop

    End If

    rs.Close
    Set rs = Nothing
    Response.Write "            </select>"
    Response.Write "            <br>"
    sql = "SELECT DISTINCT t.ChannelID, c.ChannelName FROM PE_Template t INNER JOIN PE_Channel c ON t.ChannelID = c.ChannelID"
    Set rs = Conn.Execute(sql)
    Response.Write "<select name='TemplateChannelID' id='TemplateChannelID' onChange='document.form1.submit();'>"

    If rs.BOF And rs.EOF Then
        Response.Write "<option value="" selected>还没有添加频道！</option> "
    Else

        Do While Not rs.EOF
            Response.Write "<option value=" & rs("ChannelID") & " " & OptionValue(rs("ChannelID"), TemplateChannelID) & ">" & rs("ChannelName") & "</option>"