admin_templateproject.asp

个人网站比较简短

                    rsSkin.MoveNext
                Loop

            End If

            trsSkin.Close
            Set trsSkin = Nothing
            rsSkin.Close
            Set rsSkin = Nothing
            ErrMsg = ErrMsg & "<li><font color=blue >" & rs("TemplateProjectName") & "</font>方案导入成功!</li>"
            trs.Update
        End If

        rs.MoveNext
    Loop

    trs.Close
    Set trs = Nothing
    rs.Close
    Set rs = Nothing

    '自定义标签导入
    Set trsLabel = tconn.Execute("select * from PE_Label")
    Set rsLabel = Server.CreateObject("adodb.recordset")
    rsLabel.Open "select * from PE_Label", Conn, 1, 3

    If Not trsLabel.EOF Then

        Do While Not trsLabel.EOF

            If PE_CLng(Conn.Execute("select count(*) from PE_Label where LabelName='" & trsLabel("LabelName") & "'")(0)) > 0 Then
            Else
                rsLabel.addnew
                rsLabel("LabelName") = trsLabel("LabelName")
                rsLabel("LabelClass") = trsLabel("LabelClass")
                rsLabel("LabelType") = trsLabel("LabelType")
                rsLabel("PageNum") = trsLabel("PageNum")
                rsLabel("reFlashTime") = trsLabel("reFlashTime")
                rsLabel("fieldlist") = trsLabel("fieldlist")
                rsLabel("LabelIntro") = trsLabel("LabelIntro")
                rsLabel("Priority") = trsLabel("Priority")
                rsLabel("LabelContent") = trsLabel("LabelContent")
                rsLabel("AreaCollectionID") = trsLabel("AreaCollectionID")
                rsLabel.Update
            End If

            trsLabel.MoveNext
        Loop

    End If

    Set trsLabel = Nothing
    rsLabel.Close
    Set rsLabel = Nothing
   
    tconn.Close
    Set tconn = Nothing
    Response.Write "<br>"
    Response.Write "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
    Response.Write "  <tr align='center' class='title'><td height='22'><strong>方案导入提示信息</strong></td></tr>" & vbCrLf
    Response.Write "  <tr class='tdbg'><td height='100' valign='top' align='center'><br>" & ErrMsg & "</td></tr>" & vbCrLf
    Response.Write "  <tr align='center' class='tdbg'><td><a href='" & ComeUrl & "'>&lt;&lt; 返回上一页</a></td></tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

    Call CreatSkinFile
End Sub

'=================================================
'过程名：Export
'作  用：导出模板方案项目
'=================================================
Sub Export()
    Dim rs, sql, iCount
    sql = "select * from PE_TemplateProject"
    Set rs = Conn.Execute(sql)
    Response.Write "<br>" & vbCrLf
    Response.Write "<FORM name=myform action='Admin_TemplateProject.asp' method=post>" & vbCrLf
    Response.Write "  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>"
    Response.Write "    <tr class='title'> "
    Response.Write "      <td height='22' align='center'><strong>网站方案导出</strong></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'><td height='10'></td></tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td align='center'>"
    Response.Write "        <table border='0' cellspacing='0' cellpadding='0'>"
    Response.Write "          <tr>"
    Response.Write "           <td>"
    Response.Write "            <select name='TemplateProjectID' size='2' multiple style='height:300px;width:450px;'>"

    If rs.BOF And rs.EOF Then
        Response.Write "         <option value=''>还没有方案项目！</option>"
        '关闭提交按钮
        iCount = 0
    Else
        iCount = rs.RecordCount

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

    End If

    rs.Close
    Set rs = Nothing
    Response.Write "         </select>"
    Response.Write "       </td>"
    Response.Write "       <td align='left'>&nbsp;&nbsp;&nbsp;&nbsp;<input type='button' name='Submit' value=' 选定所有 ' onclick='SelectAll()'>"
    Response.Write "       <br><br>&nbsp;&nbsp;&nbsp;&nbsp;<input type='button' name='Submit' value=' 取消选定 ' onclick='UnSelectAll()'><br><br><br><b>&nbsp;提示：按住“Ctrl”或“Shift”键可以多选</b></td>"
    Response.Write "      </tr>"
    Response.Write "      <tr height='30'>"
    Response.Write "        <td colspan='2'>目标数据库：<input name='Itemmdb' type='text' id='ItemMdb' value='../Temp/PE_TemplateProject.mdb' size='30' maxlength='50'>&nbsp;&nbsp;<INPUT TYPE='checkbox' NAME='FormatConn' value='yes' id='id' checked> 先清空目标数据库</td>"
    Response.Write "      </tr>"
    Response.Write "      <tr height='50'>"
    Response.Write "         <td colspan='2' align='center'><input type='submit' name='Submit' value='执行导出操作'>"
    Response.Write "          <input name='Action' type='hidden' id='Action' value='DoExport'>"
    Response.Write "         </td>"
    Response.Write "        </tr>"
    Response.Write "    </table>"
    Response.Write "   </td>"
    Response.Write " </tr>"
    Response.Write "</table>"
    Response.Write "</form>"
    Response.Write "<script language='javascript'>" & vbCrLf
    Response.Write "function SelectAll(){" & vbCrLf
    Response.Write "  for(var i=0;i<document.myform.TemplateProjectID.length;i++){" & vbCrLf
    Response.Write "    document.myform.TemplateProjectID.options[i].selected=true;}" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function UnSelectAll(){" & vbCrLf
    Response.Write "  for(var i=0;i<document.myform.TemplateProjectID.length;i++){" & vbCrLf
    Response.Write "    document.myform.TemplateProjectID.options[i].selected=false;}" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
End Sub

'=================================================
'过程名：DoExport
'作  用：导出模板方案项目
'=================================================
Sub DoExport()
    On Error Resume Next
    
    Dim rs, trs, sql, rsLabel, trsLabel, rsTemplate, trsTemplate, rsSkin, trsSkin
    Dim mdbname, tconn
    Dim TemplateProjectID, TemplateProjectName, FormatConn

    FormatConn = Request.Form("FormatConn")
    TemplateProjectID = Trim(Request("TemplateProjectID"))
    mdbname = Replace(Trim(Request.Form("Itemmdb")), "'", "")
    If IsValidID(TemplateProjectID) = False Then
        TemplateProjectID = ""
    End If
    
    If TemplateProjectID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要导出的网站方案ID!</li>"
    End If

    If mdbname = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请填写导出数据库名"
    End If

    Set tconn = Server.CreateObject("ADODB.Connection")
    tconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)

    If Err.Number <> 0 Then
        FoundErr = True
        Set tconn = Nothing
        ErrMsg = ErrMsg & "<li>数据库操作失败，请以后再试，错误原因：" & Err.Description
        Err.Clear
    End If

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

    tconn.Execute ("select TemplateProjectID from PE_TemplateProject")

    If Err Then
        Set trs = Nothing
        ErrMsg = ErrMsg & "<li>您要导出的数据库,不是系统方案数据库,请使用系统方案数据库。"
        Call WriteErrMsg(ErrMsg, ComeUrl)
        Exit Sub
    End If

    If FormatConn <> "" Then '要删除的数据
        tconn.Execute ("delete from PE_Label")
        tconn.Execute ("delete from PE_Skin")
        tconn.Execute ("delete from PE_Template")
        tconn.Execute ("delete from PE_TemplateProject")
    End If

    '方案导出
    Set rs = Conn.Execute("select * from PE_TemplateProject where TemplateProjectID in (" & TemplateProjectID & ")  order by TemplateProjectID")
    Set trs = Server.CreateObject("adodb.recordset")
    trs.Open "select * from PE_TemplateProject", tconn, 1, 3

    Do While Not rs.EOF
        trs.addnew
        trs("TemplateProjectID") = rs("TemplateProjectID")
        trs("TemplateProjectName") = rs("TemplateProjectName")
        trs("Intro") = rs("Intro")
        trs("IsDefault") = rs("IsDefault")
        '模板隶属方案导出
        Set rsTemplate = Conn.Execute("select * from PE_Template where ProjectName='" & rs("TemplateProjectName") & "' order by TemplateID")
        Set trsTemplate = Server.CreateObject("adodb.recordset")
        trsTemplate.Open "select * from PE_Template", tconn, 1, 3

        If rsTemplate.BOF Or rsTemplate.EOF Then
        Else

            Do While Not rsTemplate.EOF
                trsTemplate.addnew
                trsTemplate("TemplateID") = rsTemplate("TemplateID")
                trsTemplate("ChannelID") = rsTemplate("ChannelID")
                trsTemplate("TemplateName") = rsTemplate("TemplateName")
                trsTemplate("TemplateType") = rsTemplate("TemplateType")
                trsTemplate("TemplateContent") = rsTemplate("TemplateContent")
                trsTemplate("IsDefault") = rsTemplate("IsDefault")
                trsTemplate("ProjectName") = rsTemplate("ProjectName")
                trsTemplate("IsDefaultInProject") = rsTemplate("IsDefaultInProject")
                trsTemplate("Deleted") = rsTemplate("Deleted")
                trsTemplate.Update
                rsTemplate.MoveNext
            Loop

        End If

        trsTemplate.Close
        Set trsTemplate = Nothing
        rsTemplate.Close
        Set rsTemplate = Nothing
        '风格隶属方案导出
        Set rsSkin = Conn.Execute("select * from PE_Skin where ProjectName='" & rs("TemplateProjectName") & "' order by SkinID")
        Set trsSkin = Server.CreateObject("adodb.recordset")
        trsSkin.Open "select * from PE_Skin", tconn, 1, 3

        If rsSkin.BOF Or rsSkin.EOF Then
        Else

            Do While Not rsSkin.EOF
                trsSkin.addnew
                trsSkin("SkinID") = rsSkin("SkinID")
                trsSkin("SkinName") = rsSkin("SkinName")
                trsSkin("IsDefault") = rsSkin("IsDefault")
                trsSkin("Skin_CSS") = rsSkin("Skin_CSS")
                trsSkin("IsDefaultInProject") = rsSkin("IsDefaultInProject")
                trsSkin("ProjectName") = rsSkin("ProjectName")
                trsSkin.Update
                rsSkin.MoveNext
            Loop

        End If

        trsSkin.Close
        Set trsSkin = Nothing
        rsSkin.Close
        Set rsSkin = Nothing

        trs.Update
        rs.MoveNext
    Loop

    trs.Close
    Set trs = Nothing
    rs.Close
    Set rs = Nothing

    '自定义标签导出
    Set trsLabel = Conn.Execute("select * from PE_Label")
    Set rsLabel = Server.CreateObject("adodb.recordset")
    rsLabel.Open "select * from PE_Label", tconn, 1, 3

    If Not trsLabel.EOF Then

        Do While Not trsLabel.EOF
            rsLabel.addnew
            rsLabel("LabelName") = trsLabel("LabelName")
            rsLabel("LabelClass") = trsLabel("LabelClass")
            rsLabel("LabelType") = trsLabel("LabelType")
            rsLabel("PageNum") = trsLabel("PageNum")
            rsLabel("reFlashTime") = trsLabel("reFlashTime")
            rsLabel("fieldlist") = trsLabel("fieldlist")
            rsLabel("LabelIntro") = trsLabel("LabelIntro")
            rsLabel("Priority") = trsLabel("Priority")
            rsLabel("LabelContent") = trsLabel("LabelContent")
            rsLabel("AreaCollectionID") = trsLabel("AreaCollectionID")
            rsLabel.Update
            trsLabel.MoveNext
        Loop

    End If

    Set trsLabel = Nothing
    rsLabel.Close
    Set rsLabel = Nothing
   
    tconn.Close
    Set tconn = Nothing
    Call WriteSuccessMsg("已经成功将所选中的方案导出到指定的数据库中！", ComeUrl)
End Sub