update_2006.asp

软件简介： 系统安装步骤： 1、安装IIS。 2、安装动易组件 3、双击PowerEasy2006.exe

            If rsOld("FieldType") = 2 Then
                sqlField = "alter table " & SheetName & " add " & FieldName & " ntext null"
            Else
                sqlField = "alter table " & SheetName & " add " & FieldName & " nvarchar(255) null"
            End If
        Else
            If rsOld("FieldType") = 2 Then
                sqlField = "alter table " & SheetName & " add " & FieldName & " text null"
            Else
                sqlField = "alter table " & SheetName & " add " & FieldName & " varchar(255) null"
            End If
        End If
        Conn.Execute (sqlField)
        If Err Then
            Err.Clear
            Response.Write "<br><li>向 " & SheetName & " 表中添加自定义字段 " & FieldName & " 失败！</li>"
        Else
            rsNew.addnew
            rsNew("ChannelID") = rsOld("ChannelID") & ""
            rsNew("FieldName") = rsOld("FieldName")
            rsNew("Title") = rsOld("Title")
            rsNew("LabelName") = rsOld("LabelName")
            rsNew("Tips") = rsOld("Tips")
            rsNew("FieldType") = rsOld("FieldType")
            rsNew("DefaultValue") = rsOld("DefaultValue")
            rsNew("Options") = rsOld("Options")
            rsNew("EnableNull") = rsOld("EnableNull")
            rsNew("ShowOnForm") = rsOld("ShowOnForm")
            rsNew("FieldLevel") = rsOld("FieldLevel")
            rsNew.Update
        End If

        rsOld.movenext
    Loop
    rsOld.Close
    rsNew.Close
End Sub

Sub Update_PE_Skin()
    Dim maxrs
    TableName = "PE_Skin"
    Info_CurrentUpdate = "正在升级网站风格"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Call RefreshPercentBar(True)
    rsOld.open "select * from PE_Skin Order by SkinID Asc", Conn_Old, 1, 1
    If Not (rsOld.EOF And rsOld.bof) Then
        ReDim ArrSkinID(rsOld.recordcount - 1, 1)
        i = 0
    End If
    rsNew.open "select * from PE_Skin", Conn, 1, 3
    Do While Not rsOld.EOF
        If i = 0 Then
            Conn.Execute ("update PE_Skin set IsDefault=" & PE_False & "")
        End If
        rsNew.addnew
        rsNew("SkinName") = rsOld("SkinName")
        rsNew("IsDefault") = False
        If rsOld("IsDefault") = True Then
            rsNew("IsDefaultInProject") = True
        Else
            rsNew("IsDefaultInProject") = False
        End If
        rsNew("Skin_CSS") = rsOld("Skin_CSS") & AppendSkinCss()
        rsNew("ProjectName") = "原2005版模板方案"
        rsNew.Update

        Set maxrs = Conn.Execute("select max(SkinID) from PE_Skin")
        If Not IsNull(maxrs(0)) Then
            ArrSkinID(i, 0) = rsOld("SkinID")
            ArrSkinID(i, 1) = maxrs(0)
        End If
        Set maxrs = Nothing
        i = i + 1

        rsOld.movenext
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar(True)
        End If
        TotalRecordIndex = TotalRecordIndex + 1
        If Response.IsClientConnected = False Then Exit Do
    Loop
    rsOld.Close
    rsNew.Close
    Call RefreshPercentBar(False)
End Sub

Sub Update_PE_Template()
    Dim maxrs
    TableName = "PE_Template"
    Info_CurrentUpdate = "正在升级网站模板"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Call RefreshPercentBar(True)
    rsOld.open "select * from PE_Template Order by ChannelID Asc,TemplateID Asc", Conn_Old, 1, 1
    If Not (rsOld.EOF And rsOld.bof) Then
        ReDim ArrTemplateID(rsOld.recordcount - 1, 1)
        i = 0
    End If
    rsNew.open "select * from PE_Template", Conn, 1, 3
    Do While Not rsOld.EOF
        rsNew.addnew
        rsNew("ChannelID") = rsOld("ChannelID")
        rsNew("TemplateName") = rsOld("TemplateName")
        rsNew("TemplateType") = rsOld("TemplateType")
        rsNew("TemplateContent") = rsOld("TemplateContent")
        rsNew("IsDefault") = False
        rsNew("ProjectName") = "原2005版模板方案"
        If rsOld("IsDefault") = True Then
            rsNew("IsDefaultInProject") = True
        Else
            rsNew("IsDefaultInProject") = False
        End If
        rsNew("Deleted") = False
        rsNew.Update

        Set maxrs = Conn.Execute("select max(TemplateID) from PE_Template")
        If Not IsNull(maxrs(0)) Then
            ArrTemplateID(i, 0) = rsOld("TemplateID")
            ArrTemplateID(i, 1) = maxrs(0)
        End If
        Set maxrs = Nothing
        i = i + 1

        rsOld.movenext
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar(True)
        End If
        TotalRecordIndex = TotalRecordIndex + 1
    Loop
    rsOld.Close
    rsNew.Close

    Conn.Execute ("update PE_TemplateProject set IsDefault=" & PE_False & " where IsDefault=" & PE_True & "")
    Conn.Execute ("Insert into PE_TemplateProject(TemplateProjectID,TemplateProjectName,Intro,IsDefault) values (1001,'原2005版模板方案','原2005版模板方案'," & PE_True & ")")


    '定义风格系统默认
    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='原2005版模板方案'")
    '定义模板系统默认
    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='原2005版模板方案'")
    '定义方案系统默认
    Conn.Execute ("update PE_TemplateProject set IsDefault=" & PE_False & " where IsDefault=" & PE_True & "")
    Conn.Execute ("update PE_TemplateProject set IsDefault=" & PE_True & " where TemplateProjectName='原2005版模板方案'")

    Call RefreshPercentBar(False)
End Sub

Sub Update_Table(TableName, strOrder, ExcludeField, strUpdate)
    On Error Resume Next
    Info_CurrentUpdate = "正在升级" & strUpdate
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Call RefreshPercentBar(True)
    If FoundInArr("PE_Config,PE_Label", TableName) = False Then
        If TableName = "PE_Channel" Then
            Conn.Execute ("delete from " & TableName & " where ChannelID<>997 and ChannelID<>998 and ChannelID<>999")
        Else
            Conn.Execute ("delete from " & TableName)
        End If
    End If
    If Trim(strOrder) = "" Then
        rsOld.open "select * from " & TableName, Conn_Old, 1, 1
    Else
        rsOld.open "select * from " & TableName & " Order by " & strOrder & " asc", Conn_Old, 1, 1
    End If

    rsNew.open "select * from " & TableName, Conn, 1, 3
    Do While Not rsOld.EOF
        If FoundInArr("PE_Config", TableName) = False Then
            rsNew.addnew
        End If
        For i = 0 To rsOld.Fields.Count - 1
            If FoundInArr(ExcludeField, rsOld.Fields(i).Name) = False Then
                'On Error Resume Next
                Select Case rsOld.Fields(i).Type
                Case 3, 4, 5, 6, 17 '数值
                    If IsNumeric(rsOld(rsOld.Fields(i).Name).Value) Then
                        rsNew(rsOld.Fields(i).Name) = rsOld(rsOld.Fields(i).Name)
                    Else
                        rsNew(rsOld.Fields(i).Name) = 0
                    End If
                Case 11 '布尔
                    If IsNull(rsOld(rsOld.Fields(i).Name).Value) Then
                        rsNew(rsOld.Fields(i).Name) = False
                    Else
                        rsNew(rsOld.Fields(i).Name) = CBool(rsOld(rsOld.Fields(i).Name))
                    End If
                Case 7, 135 '日期
                    If IsDate(rsOld(rsOld.Fields(i).Name).Value) Then
                        rsNew(rsOld.Fields(i).Name) = rsOld(rsOld.Fields(i).Name)
                    Else
                        rsNew(rsOld.Fields(i).Name) = Now()
                    End If
                Case 202, 203 '文本、备注
                    rsNew(rsOld.Fields(i).Name) = rsOld(rsOld.Fields(i).Name) & ""
                Case Else
                    rsNew(rsOld.Fields(i).Name) = rsOld(rsOld.Fields(i).Name)
                End Select


                If Err.Number <> 0 Then
                    Response.Write "<br><br>出 错 表：" & TableName