update_2006.asp

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

                    Response.Write "<br>出错字段：" & rsOld.Fields(i).Name
                    Response.Write "<br>出错记录：" & RecordIndex
                    Response.Write "<br>出错内容：" & rsOld(rsOld.Fields(i).Name)
                    Response.Write "<br>错 误 号：" & Err.Number
                    Response.Write "<br>错误描述：" & Err.Description
                    Response.Write "<br>错误来源：" & Err.Source & "<br>"
                    Err.Clear
                    Response.End
                End If
            End If
        Next

        Select Case TableName
        Case "PE_AdZone"
            rsNew("ZoneJsName") = Year(rsOld("UpdateTime")) & Right("0" & Month(rsOld("UpdateTime")), 2) & "/" & rsOld("ZoneID") & ".js"
        Case "PE_Admin"
            rsNew("RoleName") = ""
            rsNew("AdminPurview_GuestBook") = 0
            rsNew("AdminPurview_Supply") = 0
            rsNew("AdminPurview_House") = 0
            rsNew("AdminPurview_Job") = 0
            rsNew("arrClass_GuestBook") = ""
            rsNew("Count_Add") = 0
            rsNew("Count_Check") = 0
            rsNew("Count_Reject") = 0
        Case "PE_Announce"
            rsNew("OutTime") = 0
        Case "PE_Author"
            rsNew("IsElite") = False
            rsNew("onTop") = False
            rsNew("Hits") = 0
        Case "PE_Card"
            rsNew("AgentName") = ""
        Case "PE_Class"
            rsNew("SkinID") = GetNewID(ArrSkinID, rsOld("SkinID"))
            rsNew("TemplateID") = GetNewID(ArrTemplateID, rsOld("TemplateID"))
            rsNew("Tips") = rsOld("Readme")
            rsNew("Meta_Keywords") = ""
            rsNew("Meta_Description") = ""
            rsNew("DefaultItemPoint") = 0
            rsNew("DefaultItemChargeType") = 0
            rsNew("DefaultItemPitchTime") = 24
            rsNew("DefaultItemReadTimes") = 10
            rsNew("DefaultItemDividePercent") = 0
            'rsNew("CommandClassPoint") = 0
            'rsNew("ReleaseClassPoint") = 0
        Case "PE_Comment"
            rsNew("ModuleType") = rsOld("ChannelID")
        Case "PE_CopyFrom"
            rsNew("Passed") = True
            rsNew("onTop") = False
            rsNew("IsElite") = False
            rsNew("Hits") = 0
        Case "PE_GuestBook"
            rsNew("ReplyIsPrivate") = False
            rsNew("GuestContentLength") = Len(rsOld("GuestContent"))
            If IsDate(rsOld("LastReplyTime")) Then rsNew("LastReplyTime") = rsOld("LastReplyTime")
            If IsDate(rsOld("GuestReplyDatetime")) Then rsNew("GuestReplyDatetime") = rsOld("GuestReplyDatetime")
        Case "PE_Producer"
            rsNew("Passed") = True
            rsNew("onTop") = False
            rsNew("IsElite") = False
            rsNew("Hits") = 0
        Case "PE_Trademark"
            rsNew("Passed") = True
            rsNew("onTop") = False
            rsNew("Hits") = 0
        Case "PE_Product"
            rsNew("SkinID") = GetNewID(ArrSkinID, rsOld("SkinID"))
            rsNew("TemplateID") = GetNewID(ArrTemplateID, rsOld("TemplateID"))
            rsNew("BarCode") = ""
            rsNew("CommentCount") = 0
            rsNew("CreateTime") = rsOld("UpdateTime")
            rsNew("VoteID") = 0
            rsNew("PresentMoney") = 0
            rsNew("PresentPoint") = 0
            rsNew("Weight") = 0
            If rsOld("ProductType") = 4 Then
                rsNew("EnableSingleSell") = False
            Else
                rsNew("EnableSingleSell") = True
            End If
            rsNew("DependentProducts") = ""
            Conn.Execute ("insert into PE_InfoS (ModuleType,ItemID,SpecialID) values (5," & rsOld("ProductID") & "," & rsOld("SpecialID") & ")")
        Case "PE_UsedDetail"
            rsNew("LessonInfo") = ""
        Case "PE_Item"
            rsNew("SpecialID") = "" '原数字变文本 新增可空
            rsNew("KeyScatterNum") = 2
            rsNew("InfoPoint") = 0 'ReadPoint转化
            rsNew("AddThumb") = False
            rsNew("CollecOrder") = 0
            rsNew("Status") = GetStatusByPassed(rsOld("Passed"))
            rsNew("ThumbnailType") = 0
            rsNew("ThsString") = ""
            rsNew("ThoString") = ""
            rsNew("PsString") = ""
            rsNew("PoString") = ""
            rsNew("PhsString") = ""
            rsNew("PhoString") = ""
            rsNew("IsString") = ""
            rsNew("IoString") = ""
            rsNew("IntroType") = 0
            rsNew("IntroStr") = ""
            rsNew("IntroNum") = 100
            rsNew("IsField") = 0
            rsNew("Field") = ""
            rsNew("InfoPurview") = 0
            rsNew("arrGroupID") = ""
            rsNew("ChargeType") = 0
            rsNew("PitchTime") = 0
            rsNew("ReadTimes") = 0
            rsNew("DividePercent") = 0
            rsNew("SaveFlashUrlToFile") = False
        Case "PE_KeyLink"
            rsNew("OpenType") = 0
            rsNew("ReplaceType") = 0
            rsNew("Priority") = 0
        Case "PE_Label"
            rsNew("AreaCollectionID") = 0
        Case "PE_Vote"
            rsNew("EndTime") = Now() + 30
            rsNew("IsItem") = False
        Case "PE_BankrollItem"
            rsNew("UserName") = "PE$$$" & rsOld("UserID") '先直接引用原来的UserID，稍后在转化会员时再转化
            rsNew("ClientID") = 0
            'rsNew("LogTime") =
            rsNew("Inputer") = "升级程序"
            rsNew("IP") = ""
        Case "PE_ConsumeLog"
            rsNew("ModuleType") = rsOld("ChannelID")
            rsNew("Times") = 1
            rsNew("IP") = ""
            rsNew("Inputer") = "升级程序"
        Case "PE_DeliverType"
            rsNew("ChargeType") = 0
            rsNew("ReleaseType") = 0
            rsNew("ReleaseCharge") = 10
            rsNew("MaxCharge") = 100
            rsNew("MinMoney1") = 1000
            rsNew("MinMoney2") = 5000
            rsNew("MinMoney3") = 10000
        Case "PE_OrderForm"
            rsNew("UserName") = "PE$$$" & rsOld("UserID") '先直接引用原来的UserID，稍后在转化会员时再转化
            rsNew("ClientID") = 0
            rsNew("AgentName") = ""
            rsNew("Mobile") = ""
            rsNew("PresentPoint") = 0
        Case "PE_OrderFormItem"
            rsNew("PresentMoney") = 0
            rsNew("PresentPoint") = 0
        Case "PE_Payment"
            rsNew("UserName") = "PE$$$" & rsOld("UserID")  '先直接引用原来的UserID，稍后在转化会员时再转化
        Case "PE_PresentProject"
            rsNew("PresentPoint") = 0
        Case "PE_Special"
            rsNew("SkinID") = GetNewID(ArrSkinID, rsOld("SkinID"))
            rsNew("TemplateID") = GetNewID(ArrTemplateID, rsOld("TemplateID"))
            rsNew("OpenType") = 0
            rsNew("SpecialPicUrl") = ""
            rsNew("Tips") = ""
            rsNew("MaxPerPage") = 20
            rsNew("IsElite") = False
        Case "PE_Channel"
            Conn.Execute ("update PE_Comment set ModuleType=" & PE_CLng(rsOld("ModuleType")) & " where ModuleType=" & rsOld("ChannelID") & "")
            Conn.Execute ("update PE_ConsumeLog set ModuleType=" & PE_CLng(rsOld("ModuleType")) & " where ModuleType=" & rsOld("ChannelID") & "")
            
            rsNew("DefaultSkinID") = GetNewID(ArrSkinID, rsOld("DefaultSkinID"))
            rsNew("Template_Index") = GetNewID(ArrTemplateID, rsOld("Template_Index"))
            rsNew("Meta_Keywords") = ""
            rsNew("Meta_Description") = ""
            rsNew("ShowNameOnPath") = rsOld("ShowName")
            If rsOld("EnableCheck") = True Then
                rsNew("CheckLevel") = 1
            Else
                rsNew("CheckLevel") = 0
            End If
            rsNew("UpdatePages") = 3
            rsNew("ChannelPurview") = 0
            rsNew("arrGroupID") = ""
            rsNew("JS_SpecialNum") = 10
            rsNew("AuthorInfoLen") = 8
            rsNew("MaxPerPage_Index") = 20
            rsNew("MaxPerPage_SearchResult") = 10
            rsNew("MaxPerPage_New") = 20
            rsNew("MaxPerPage_Hot") = 20
            rsNew("MaxPerPage_Elite") = 20
            rsNew("MaxPerPage_SpecialList") = 20
            rsNew("MoneyPerKw") = 100
            rsNew("arrEnabledTabs") = "Charge,Vote,Recieve,Copyfee,SoftParameter"
            rsNew("TimingCreateSetting") = ""
            rsNew("EmailOfReject") = ""
            rsNew("EmailOfPassed") = ""
            'rsNew("CommandChannelPoint") = 0
        Case "PE_Article"
            rsNew("Author") = ChangeAuthor(rsOld("Author"))
            rsNew("CopyFrom") = ChangeAuthor(rsOld("CopyFrom"))
            rsNew("SkinID") = GetNewID(ArrSkinID, rsOld("SkinID"))
            rsNew("TemplateID") = GetNewID(ArrTemplateID, rsOld("TemplateID"))
            '注意这里的ChannelID=1，这是因为前面已经将ChannelID变成了ModuleType
            rsNew("CommentCount") = PE_CLng(Conn_Old.Execute("select count(*) from PE_Comment where ChannelID=1 and InfoID=" & rsOld("ArticleID") & "")(0))
            rsNew("CreateTime") = rsOld("UpdateTime")
            rsNew("Status") = GetStatusByPassed(rsOld("Passed"))
            rsNew("InfoPoint") = rsOld("ReadPoint")
            'rsNew("PayDate") =
            rsNew("V