pe2005_datatrans.asp

《动易网站管理系统》2005 SP2正式版中

    Do While Not rsAdmin2.EOF
        rsAdmin.open "select * from PE_Admin where AdminName='" & rsAdmin2("AdminName") & "'", Conn_Remote, 1, 3
        If rsAdmin.bof And rsAdmin.EOF Then
            rsAdmin.addnew
        End If
        rsAdmin("AdminName") = rsAdmin2("AdminName") & ""
        rsAdmin("UserName") = rsAdmin2("UserName") & ""
        rsAdmin("Password") = rsAdmin2("Password") & ""
        rsAdmin("Purview") = rsAdmin2("Purview")
        rsAdmin("LastLoginIP") = rsAdmin2("LastLoginIP") & ""
        rsAdmin("LastLoginTime") = rsAdmin2("LastLoginTime")
        rsAdmin("LastLogoutTime") = rsAdmin2("LastLogoutTime")
        rsAdmin("LoginTimes") = rsAdmin2("LoginTimes")
        rsAdmin("RndPassword") = rsAdmin2("RndPassword") & ""
        rsAdmin("EnableMultiLogin") = PE_CBool(rsAdmin2("EnableMultiLogin"))
        rsAdmin("AdminPurview_Article") = rsAdmin2("AdminPurview_Article")
        rsAdmin("AdminPurview_Soft") = rsAdmin2("AdminPurview_Soft")
        rsAdmin("AdminPurview_Photo") = rsAdmin2("AdminPurview_Photo")
        rsAdmin("AdminPurview_Shop") = rsAdmin2("AdminPurview_Shop")
        rsAdmin("AdminPurview_Others") = rsAdmin2("AdminPurview_Others") & ""
        rsAdmin("arrClass_View") = rsAdmin2("arrClass_View") & ""
        rsAdmin("arrClass_Input") = rsAdmin2("arrClass_Input") & ""
        rsAdmin("arrClass_Check") = rsAdmin2("arrClass_Check") & ""
        rsAdmin("arrClass_Manage") = rsAdmin2("arrClass_Manage") & ""
        rsAdmin.Update
        rsAdmin.Close
        rsAdmin2.movenext
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
        TotalRecordIndex = TotalRecordIndex + 1
    Loop
    rsAdmin2.Close
    Set rsAdmin2 = Nothing
    Set rsAdmin = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Config()
    Info_CurrentUpdate = "正在升级网站配置数据..."
    TableName = "PE_Config"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsConfig2, rsConfig
    Set rsConfig2 = Server.CreateObject("ADODB.Recordset")
    Set rsConfig = Server.CreateObject("ADODB.Recordset")
    rsConfig2.open "select * from PE_Config", Conn_Source, 1, 1
    rsConfig.open "select * from PE_Config", Conn_Remote, 1, 3
    If Not (rsConfig2.bof And rsConfig2.EOF) Then
        If rsConfig.bof And rsConfig.EOF Then
            rsConfig.addnew
        End If
        rsConfig("SiteName") = rsConfig2("SiteName")
        rsConfig("SiteTitle") = rsConfig2("SiteTitle")
        rsConfig("SiteUrl") = rsConfig2("SiteUrl")
        rsConfig("SiteKey") = rsConfig2("SiteKey")
        rsConfig("InstallDir") = rsConfig2("InstallDir")
        rsConfig("LogoUrl") = rsConfig2("LogoUrl")
        rsConfig("BannerUrl") = rsConfig2("BannerUrl")
        rsConfig("WebmasterName") = rsConfig2("WebmasterName")
        rsConfig("WebmasterEmail") = rsConfig2("WebmasterEmail")
        rsConfig("Copyright") = rsConfig2("Copyright")
        rsConfig("ShowSiteChannel") = PE_CBool(rsConfig2("ShowSiteChannel"))
        rsConfig("ShowAdminLogin") = PE_CBool(rsConfig2("ShowAdminLogin"))
        rsConfig("ShowRunTime") = PE_CBool(rsConfig2("ShowRunTime"))
        rsConfig("EnableSaveRemote") = PE_CBool(rsConfig2("EnableSaveRemote"))
        rsConfig("EnableLinkReg") = PE_CBool(rsConfig2("EnableLinkReg"))
        rsConfig("GuestBookCheck") = PE_CBool(rsConfig2("GuestBookCheck"))
        rsConfig("EnableRss") = PE_CBool(rsConfig2("EnableRss"))
        rsConfig("EnableWap") = PE_CBool(rsConfig2("EnableWap"))
        rsConfig("EnableSoftKey") = PE_CBool(rsConfig2("EnableSoftKey"))
        rsConfig("SessionTimeout") = rsConfig2("SessionTimeout")
        rsConfig("objName_FSO") = rsConfig2("objName_FSO")
        rsConfig("EnableUserReg") = PE_CBool(rsConfig2("EnableUserReg"))
        rsConfig("EmailCheckReg") = PE_CBool(rsConfig2("EmailCheckReg"))
        rsConfig("AdminCheckReg") = PE_CBool(rsConfig2("AdminCheckReg"))
        rsConfig("RegPresent") = rsConfig2("RegPresent")
        rsConfig("MoneyExchangePoint") = rsConfig2("MoneyExchangePoint")
        rsConfig("UserExpExchangePoint") = rsConfig2("UserExpExchangePoint")
        rsConfig("MailObject") = rsConfig2("MailObject")
        rsConfig("MailServer") = rsConfig2("MailServer")
        rsConfig("MailServerUserName") = rsConfig2("MailServerUserName")
        rsConfig("MailServerPassWord") = rsConfig2("MailServerPassWord")
        rsConfig("MailDomain") = rsConfig2("MailDomain")
        rsConfig("PhotoObject") = rsConfig2("PhotoObject")
        rsConfig("Watermark_Text") = rsConfig2("Watermark_Text")
        rsConfig("Watermark_Text_FontName") = rsConfig2("Watermark_Text_FontName")
        rsConfig("Watermark_Text_FontSize") = rsConfig2("Watermark_Text_FontSize")
        rsConfig("Watermark_Text_FontColor") = rsConfig2("Watermark_Text_FontColor")
        rsConfig("Watermark_Text_Position") = rsConfig2("Watermark_Text_Position")
        rsConfig("Thumb_DefaultWidth") = rsConfig2("Thumb_DefaultWidth")
        rsConfig("Thumb_DefaultHeight") = rsConfig2("Thumb_DefaultHeight")
        rsConfig("Thumb_Arithmetic") = rsConfig2("Thumb_Arithmetic")
        rsConfig("FileExt_SiteIndex") = rsConfig2("FileExt_SiteIndex")
        rsConfig("UserName_RegDisabled") = rsConfig2("UserName_RegDisabled")
        rsConfig("RegFields_MustFill") = rsConfig2("RegFields_MustFill")
        rsConfig("SearchInterval") = rsConfig2("SearchInterval")
        rsConfig("SearchResultNum") = rsConfig2("SearchResultNum")
        rsConfig("SearchContent") = PE_CBool(rsConfig2("SearchContent"))
        rsConfig("EnableGuestBuy") = PE_CBool(rsConfig2("EnableGuestBuy"))
        rsConfig("IncludeTax") = PE_CBool(rsConfig2("IncludeTax"))
        rsConfig("TaxRate") = rsConfig2("TaxRate")
        rsConfig("PayOnlineProvider") = rsConfig2("PayOnlineProvider")
        rsConfig("PayOnlineShopID") = rsConfig2("PayOnlineShopID")
        rsConfig("PayOnlineKey") = rsConfig2("PayOnlineKey")
        rsConfig("PayOnlineRate") = rsConfig2("PayOnlineRate")
        rsConfig("PayOnlinePlusPoundage") = PE_CBool(rsConfig2("PayOnlinePlusPoundage"))
        rsConfig("Prefix_OrderFormNum") = rsConfig2("Prefix_OrderFormNum")
        rsConfig("Prefix_PaymentNum") = rsConfig2("Prefix_PaymentNum")
        rsConfig("WapLogo") = rsConfig2("WapLogo")
        rsConfig("ShowWapAppendix") = PE_CBool(rsConfig2("ShowWapAppendix"))
        rsConfig("EnableWapPl") = PE_CBool(rsConfig2("EnableWapPl"))
        rsConfig("ShowWapShop") = PE_CBool(rsConfig2("ShowWapShop"))
        rsConfig("ShowWapManage") = PE_CBool(rsConfig2("ShowWapManage"))
        rsConfig("RssCodeType") = PE_CBool(rsConfig2("RssCodeType"))
        rsConfig.Update
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    End If
    rsConfig2.Close
    Set rsConfig2 = Nothing
    rsConfig.Close
    Set rsConfig = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Skin()
    Info_CurrentUpdate = "正在升级网站风格..."
    TableName = "PE_Skin"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsSkin2, rsSkin, maxrs
    Set rsSkin2 = Server.CreateObject("ADODB.Recordset")
    Set rsSkin = Server.CreateObject("ADODB.Recordset")
    rsSkin2.open "select * from PE_Skin Order by SkinID Asc", Conn_Source, 1, 1
    If Not (rsSkin2.EOF And rsSkin2.bof) Then
        ReDim ArrSkinID(rsSkin2.recordcount - 1, 1)
        i = 0
    End If
    rsSkin.open "select * from PE_Skin", Conn_Remote, 1, 3
    Do While Not rsSkin2.EOF
        If i = 0 Then
            Conn_Remote.Execute ("update PE_Skin set IsDefault=" & PE_False & "")
        End If
        rsSkin.addnew
        rsSkin("SkinName") = rsSkin2("SkinName")
        rsSkin("IsDefault") = PE_CBool(rsSkin2("IsDefault"))
        rsSkin("Skin_CSS") = rsSkin2("Skin_CSS")
        rsSkin.Update

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

        rsSkin2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsSkin2.Close
    Set rsSkin2 = Nothing
    rsSkin.Close
    Set rsSkin = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Template()
    Info_CurrentUpdate = "正在升级网站模板..."
    TableName = "PE_Template"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsTemplate2, rsTemplate, tmpChannelID, maxrs
    Set rsTemplate2 = Server.CreateObject("ADODB.Recordset")
    Set rsTemplate = Server.CreateObject("ADODB.Recordset")
    rsTemplate2.open "select * from PE_Template Order by ChannelID Asc,TemplateID Asc", Conn_Source, 1, 1
    If Not (rsTemplate2.EOF And rsTemplate2.bof) Then
        ReDim ArrTemplateID(rsTemplate2.recordcount - 1, 1)
        i = 0
    End If
    rsTemplate.open "select * from PE_Template", Conn_Remote, 1, 3
    tmpChannelID = -1
    Do While Not rsTemplate2.EOF
        rsTemplate.addnew
        If tmpChannelID <> rsTemplate2("ChannelID") Then
            tmpChannelID = rsTemplate2("ChannelID")
            Conn_Remote.Execute ("update PE_Template set IsDefault=" & PE_False & " where ChannelID=" & tmpChannelID)
        End If
        rsTemplate("ChannelID") = rsTemplate2("ChannelID")
        rsTemplate("TemplateName") = rsTemplate2("TemplateName")
        rsTemplate("TemplateType") = rsTemplate2("TemplateType")
        rsTemplate("TemplateContent") = rsTemplate2("TemplateContent")
        rsTemplate("IsDefault") = PE_CBool(rsTemplate2("IsDefault"))
        rsTemplate.Update

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

        rsTemplate2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsTemplate2.Close
    Set rsTemplate2 = Nothing
    rsTemplate.Close
    Set rsTemplate = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Channel()
    Info_CurrentUpdate = "正在升级网站频道数据..."
    TableName = "PE_Channel"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsChannel2, rsChannel
    Set rsChannel2 = Server.CreateObject("ADODB.Recordset")
    Set rsChannel = Server.CreateObject("ADODB.Recordset")
    rsChannel2.open "select * from PE_Channel Order by ChannelID Asc", Conn_Source, 1, 1
    Do While Not rsChannel2.EOF
        rsChannel.open "select * from PE_Channel where ChannelID=" & rsChannel2("ChannelID") & "", Conn_Remote, 1, 3
        If rsChannel.bof And rsChannel.EOF Then
            rsChannel.addnew
        End If
        rsChannel("ChannelID") = rsChannel2("ChannelID")
        rsChannel("ChannelName") = rsChannel2("ChannelName") & ""
        rsChannel("ChannelShortName") = rsChannel2("ChannelShortName") & ""
        rsChannel("ChannelItemUnit") = rsChannel2("ChannelItemUnit") & ""
        rsChannel("ReadMe") = rsChannel2("ReadMe") & ""
        rsChannel("ChannelPicUrl") = rsChannel2("ChannelPicUrl") & ""
        rsChannel("OrderID") = rsChannel2("OrderID")
        rsChannel("OpenType") = rsChannel2("OpenType")
        rsChannel("ChannelType") = rsChannel2("ChannelType")
        rsChannel("LinkUrl") = rsChannel2("LinkUrl") & ""
        rsChannel("ChannelDir") = rsChannel2("ChannelDir") & ""
        rsChannel("ModuleType") = PE_CLng(rsChannel2("ModuleType"))
        rsChannel("Disabled") = PE_CBool(rsChannel2("Disabled"))
        rsChannel("ShowName") = PE_CBool(rsChannel2("ShowName"))
        rsChannel("ShowMyStyle") = PE_CBool(rsChannel2("ShowMyStyle"))
        rsChannel("ShowClassTreeGuide") = PE_CBool(rsChannel2("ShowClassTreeGuide"))
        rsChannel("ShowSuspensionPoints") = PE_CBool(rsChannel2("ShowSuspensionPoints"))
        rsChannel("EnableCheck") = PE_CBool(rsChannel2("EnableCheck"))
        rsChannel("EnableUploadFile") = PE_CBool(rsChannel2("EnableUploadFile"))
        rsChannel("UploadDir") = rsChannel2("UploadDir") & ""
        rsChannel("MaxFileSize") = PE_CLng(rsChannel2("MaxFileSize"))
        rsChannel("HitsOfHot") = PE_CLng(rsChannel2("HitsOfHot"))
        rsChannel("DaysOfNew") = PE_CLng(rsChannel2("DaysOfNew"))
        rsChannel("MaxPerLine") = PE_CLng(rsChannel2("MaxPerLine"))
        rsChannel("UpFileType") = rsChannel2("UpFileType") & ""
        rsChannel("DefaultSkinID") = GetNewID(ArrSkinID, rsChannel2("DefaultSkinID"))
        rsChannel("Template_Index") = GetNewID(ArrTemplateID, rsChannel2("Template_Index"))
        rsChannel("TopMenuType") = PE_CLng(rsChannel2("TopMenuType"))
        rsChannel("ClassGuideType") = PE_CLng(rsChannel2("ClassGuideType"))
        rsChannel("UseCreateHTML") = PE_CLng(rsChannel2("UseCreateHTML"))
        rsChannel("ItemCount") = PE_CLng(rsChannel2("ItemCount"))
        rsChannel("ItemChecked") = PE_CLng(rsChannel2("ItemChecked"))
        rsChannel("CommentCount") = PE_CLng(rsChannel2("CommentCount"))
        rsChannel("SpecialCount") = PE_CLng(rsChannel2("SpecialCount"))
        rsChannel("HitsCount") = PE_CLng(rsChannel2("HitsCount"))
        rsChannel("StructureType") = PE_CLng(rsChannel2("StructureType"))
        rsChannel("ListFileType") = PE_CLng(rsChannel2("ListFileType"))
        rsChannel("FileNameType") = PE_CLng(rsChannel2("FileNameType"))
        rsChannel("AutoCreateType") = PE_CLng(rsChannel2("AutoCreateType"))
        rsChannel("FileExt_Index") = PE_CLng(rsChannel2("FileExt_Index"))
        rsChannel("FileExt_List") = PE_CLng(rsChannel2("FileExt_List"))
        rsChannel("FileExt_Item") = PE_CLng(rsChannel2("FileExt_Item"))