admin_templateproject.asp

个人网站比较简短

            rs.MoveNext
        Loop

        Response.Write "<option value='0' " & OptionValue(0, TemplateChannelID) & ">系统通用模板</option> "
        Response.Write "<option value='999999' " & OptionValue(999999, TemplateChannelID) & ">方案所有模板</option> "
    End If

    Response.Write "</select>"
    rs.Close
    Set rs = Nothing
    Response.Write "              <br>"
    sql = "select ChannelID,TemplateID,TemplateName from PE_Template where "

    If TemplateChannelID <> 999999 Then
        If TemplateChannelID > 0 Then
            sql = sql & " ChannelID=" & TemplateChannelID & " and "
        ElseIf TemplateChannelID = 0 Then
            sql = sql & " ChannelID=0 and "
        End If
    End If

    sql = sql & " ProjectName='" & ProjectName & "' and Deleted=" & PE_False
    '显示模版
    Response.Write "              <select name='BatchTemplateID' id='BatchTemplateID' size='2' multiple style='height:250px;width:250px;' >"
    Set rs = Server.CreateObject("Adodb.RecordSet")
    rs.Open sql, Conn, 1, 1

    If rs.BOF And rs.EOF Then
        '没有模版时指定关闭提交按钮
        Response.Write "                <option value='0'>该方案还有没有任何模板</option>"
    Else

        Do While Not rs.EOF
            Response.Write "            <option value='" & rs("TemplateID") & "'>" & rs("TemplateName") & "</option>"
            rs.MoveNext
        Loop

    End If

    rs.Close
    Set rs = Nothing
    Response.Write "                   </select>"

    Response.Write "  <br>" & vbCrLf
    Response.Write "  <Input type='button' name='Submit' value=' 选定所有 ' onclick='SelectAll()'>" & vbCrLf
    Response.Write "  <Input type='button' name='Submit' value=' 取消选定 ' onclick='UnSelectAll()'><br>" & vbCrLf
    Response.Write "  <FONT style='font-size:12px' color=''><b>按住“Ctrl”或“Shift”键可以多选</b></FONT>" & vbCrLf
    Response.Write "<script language='javascript'>" & vbCrLf
    Response.Write "    function SelectAll(){" & vbCrLf
    Response.Write "        for(var i=0;i<document.form1.BatchTemplateID.length;i++){" & vbCrLf
    Response.Write "        document.form1.BatchTemplateID.options[i].selected=true;}" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    function UnSelectAll(){" & vbCrLf
    Response.Write "        for(var i=0;i<document.form1.BatchTemplateID.length;i++){" & vbCrLf
    Response.Write "        document.form1.BatchTemplateID.options[i].selected=false;}" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    function CheckForm(){" & vbCrLf
    Response.Write "        if (document.form1.BatchTemplateID.value==""""){" & vbCrLf
    Response.Write "            alert(""迁移模板不能为空！"");" & vbCrLf
    Response.Write "            document.form1.BatchTemplateID.focus();" & vbCrLf
    Response.Write "            return false;" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        if (document.form1.MoveTemplateProjectName.value==""""){" & vbCrLf
    Response.Write "            alert(""迁移的方案不能为空！"");" & vbCrLf
    Response.Write "            document.form1.MoveTemplateProjectName.focus();" & vbCrLf
    Response.Write "            return false;" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        if (document.form1.ProjectName.value==document.form1.MoveTemplateProjectName.value){" & vbCrLf
    Response.Write "            alert(""方案迁移不能自己给自己移动复制！"");" & vbCrLf
    Response.Write "            document.form1.ProjectName.focus();" & vbCrLf
    Response.Write "            return false;" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        document.form1.Action.value='DoTemplateBatchMove';" & vbCrLf
    Response.Write "        return true;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "</script>" & vbCrLf

    Response.Write "                </td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "            </table>" & vbCrLf
    Response.Write "          </td>" & vbCrLf

    Response.Write "          <td width='80' class='tdbg' align='center'>" & vbCrLf
        
    Response.Write "<Input TYPE='radio' Name='BatchTypeName' value='移动' > 移动到 &gt;&gt;" & vbCrLf
    Response.Write "<br>" & vbCrLf
    Response.Write "<Input TYPE='radio' Name='BatchTypeName' value='复制' > 复制到 &gt;&gt;" & vbCrLf
    Response.Write "<br>" & vbCrLf
    Response.Write "           <input type='submit' name='Submit' value=' 确 定 ' onClick=""javascript:return CheckForm()"" >" & vbCrLf
    Response.Write "          </td>"
    Response.Write "          <td class='tdbg' align='left'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<strong>系统中已经存在的方案项目</strong><br>"
    Response.Write "             &nbsp;&nbsp;<select name='MoveTemplateProjectName' size='2'  style='height:300px;width:200px;' >"
    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") & "'>" & rs("TemplateProjectName") & "</option>"
            rs.MoveNext
        Loop

    End If

    rs.Close
    Set rs = Nothing
    Response.Write "           </select></td>"
    Response.Write "        </tr>"
    Response.Write "      </table>"
    Response.Write "     </tr>" & vbCrLf
    Response.Write "    </table>" & vbCrLf
    Response.Write "   </td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "<center><FONT color='red'> 注:</FONT>移动的时候,<FONT color='#3366FF'>系统默认,方案默认</FONT>是不会移动的。</center> " & vbCrLf
    Response.Write "<input name=""Action"" type=""hidden"" id=""Action"" value=""TemplateBatchMove"">" & vbCrLf
    Response.Write "</form>" & vbCrLf

End Sub

'=================================================
'过程名：DoTemplateBatchMove
'作  用：批量迁移模板处理
'=================================================
Sub DoTemplateBatchMove()

    Dim rs, trs, jrs, sql
    Dim TemplateType, TemplateID, TemplateProjectName, TemplateChannelID, BatchTemplateID
    Dim ProjectName, MoveTemplateProjectName, BatchTypeName
    Dim tempIsDefault, tempIsDefaultInProject, SysDefault '临时数据
        
    FoundErr = False
    tempIsDefault = False
    tempIsDefaultInProject = False

    BatchTypeName = Trim(Request.Form("BatchTypeName"))
    TemplateProjectName = ReplaceBadChar(Trim(Request.Form("TemplateProjectName")))
    TemplateChannelID = PE_CLng(Trim(Request.Form("TemplateChannelID")))
    BatchTemplateID = Trim(Request.Form("BatchTemplateID"))
    ProjectName = Trim(Request.Form("ProjectName"))
    MoveTemplateProjectName = ReplaceBadChar(Trim(Request.Form("MoveTemplateProjectName")))
    If IsValidID(BatchTemplateID) = False Then
        BatchTemplateID = ""
    End If
    
    If BatchTypeName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请选择要迁移的类型,是移动还是复制。</li>"
    End If

    If BatchTemplateID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>没有模板ID号,请返回输入要" & BatchTypeName & "的模板ID</li>"
    End If

    If FoundInArr(MoveTemplateProjectName, ProjectName, ",") = True Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>相同的方案不能" & BatchTypeName & ",请返回输入" & BatchTypeName & "不同的方案</li>"
    End If

    TemplateID = BatchTemplateID

    If MoveTemplateProjectName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>没有选择要" & BatchTypeName & "的方案</li>"
    End If

    If FoundErr = True Then
        Call WriteErrMsg(ErrMsg, ComeUrl)
        Exit Sub
    End If

    '得到系统方案默认名称
    Set rs = Conn.Execute("Select TemplateProjectName From PE_TemplateProject Where IsDefault=" & PE_True)

    If rs.BOF And rs.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>选择的模板类型不对</li>"
    Else
        SysDefault = rs("TemplateProjectName")
    End If

    Set rs = Nothing

    If FoundErr = True Then
        Exit Sub
    End If

    sql = "select * from PE_Template where "

    If InStr(TemplateID, ",") > 0 Then
        sql = sql & " TemplateID in (" & TemplateID & ")"
    Else
        sql = sql & " TemplateID=" & TemplateID
    End If

    If BatchTypeName = "移动" Then
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.Open sql, Conn, 1, 3

        '这要加计算
        Do While Not rs.EOF
            If rs("IsDefault") = True Or rs("IsDefaultInProject") = True Then
                ErrMsg = ErrMsg & "<li>是" & rs("ProjectName") & "方案的默认模板不能<FONT color='red'>移动</Font>!"
            Else
                rs("IsDefault") = False
                rs("IsDefaultInProject") = False
                rs("ProjectName") = MoveTemplateProjectName
                ErrMsg = ErrMsg & "<li><FONT color='blue'> " & rs("TemplateName") & "</FONT>模板成功" & BatchTypeName & "到" & MoveTemplateProjectName & "方案!"
                rs.Update
            End If
            rs.MoveNext
        Loop

        rs.Close
        Set rs = Nothing
    Else
        '这要加计算
        Set rs = Conn.Execute(sql)
        Set trs = Server.CreateObject("adodb.recordset")
        trs.Open "select * from PE_Template", Conn, 1, 3

        Do While Not rs.EOF
            trs.addnew
            trs("ChannelID") = rs("ChannelID")
            trs("TemplateName") = rs("TemplateName")
            trs("TemplateType") = rs("TemplateType")
            trs("TemplateContent") = rs("TemplateContent")
            
            '检测有无重复
            Set jrs = Conn.Execute("select * from PE_Template where ChannelID=" & trs("ChannelID") & " and ProjectName='" & MoveTemplateProjectName & "' and TemplateType=" & trs("TemplateType"))

            If jrs.BOF And jrs.EOF Then
                tempIsDefault = True
            Else

                Do While Not jrs.EOF

                    If tempIsDefault = False Then
                        If jrs("IsDefault") = True Or trs("ProjectName") = MoveTemplateProjectName Or jrs("ProjectName") <> SysDefault Then
                            tempIsDefault = True
                        End If
                    End If

                    If tempIsDefaultInProject = False Then
                        If jrs("IsDefaultInProject") = True Or trs("ProjectName") = MoveTemplateProjectName Then
                            tempIsDefaultInProject = True
                        End If
                    End If

                    If tempIsDefault = True And tempIsDefaultInProject = True Then
                        Exit Do
                    End If

                    jrs.MoveNext
                Loop

            End If

            Set jrs = Nothing

            If tempIsDefault = True Then
                trs("IsDefault") = False
            Else
                trs("IsDefault") = rs("IsDefault")
            End If

            If tempIsDefaultInProject = True Then
                trs("IsDefaultInProject") = False
            Else
                trs("IsDefaultInProject") = rs("IsDefaultInProject")
            End If

            trs("ProjectName") = MoveTemplateProjectName
            trs("Deleted") = rs("Deleted")
            ErrMsg = ErrMsg & "<li><FONT color='blue'> " & rs("TemplateName") & "</FONT>模板成功" & BatchTypeName & "到" & MoveTemplateProjectName & "方案!"
            tempIsDefaultInProject = False
            trs.Update
            rs.MoveNext
        Loop

        trs.Close
        Set trs = Nothing
        rs.Close
        Set rs = Nothing
    End If

    Call WriteSuccessMsg(ErrMsg, "Admin_TemplateProject.asp?action=Main&ProjectName=" & SysDefault)
End Sub

'=================================================
'过程名：SkinBatchMove
'作  用：批量迁移风格
'=================================================
Sub SkinBatchMove()

    Dim rs, sql
    Dim SkinID, ProjectName, BatchTypeName

    SkinID = ReplaceBadChar(Trim(Request("SkinID")))
    ProjectName = ReplaceBadCha