pe2005_datatrans.asp

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

        
        If strField <> "" Then
            For k = 0 To UBound(arrField)
                rsSoft(Trim(arrField(k))) = rsSoft2(Trim(arrField(k)))
            Next
        End If

        rsSoft("SoftID") = rsSoft2("SoftID")
        rsSoft("ChannelID") = rsSoft2("ChannelID")
        rsSoft("ClassID") = rsSoft2("ClassID")
        rsSoft("SpecialID") = rsSoft2("SpecialID")
        rsSoft("SoftName") = rsSoft2("SoftName") & ""
        rsSoft("SoftVersion") = rsSoft2("SoftVersion") & ""
        rsSoft("Author") = rsSoft2("Author") & ""
        rsSoft("CopyFrom") = rsSoft2("CopyFrom") & ""
        rsSoft("DemoUrl") = rsSoft2("DemoUrl") & ""
        rsSoft("Inputer") = rsSoft2("Inputer") & ""
        rsSoft("Editor") = rsSoft2("Editor") & ""
        rsSoft("Keyword") = rsSoft2("Keyword") & ""
        rsSoft("Hits") = rsSoft2("Hits")
        rsSoft("DayHits") = rsSoft2("DayHits")
        rsSoft("WeekHits") = rsSoft2("WeekHits")
        rsSoft("MonthHits") = rsSoft2("MonthHits")
        rsSoft("UpdateTime") = rsSoft2("UpdateTime")
        rsSoft("OperatingSystem") = rsSoft2("OperatingSystem") & ""
        rsSoft("SoftType") = rsSoft2("SoftType")
        rsSoft("SoftLanguage") = rsSoft2("SoftLanguage")
        rsSoft("CopyrightType") = rsSoft2("CopyrightType")
        rsSoft("SoftSize") = rsSoft2("SoftSize")
        rsSoft("RegUrl") = rsSoft2("RegUrl") & ""
        rsSoft("OnTop") = PE_CBool(rsSoft2("OnTop"))
        rsSoft("Elite") = PE_CBool(rsSoft2("Elite"))
        rsSoft("Passed") = PE_CBool(rsSoft2("Passed"))
        rsSoft("SoftIntro") = rsSoft2("SoftIntro") & ""
        rsSoft("SoftPicUrl") = rsSoft2("SoftPicUrl") & ""
        rsSoft("DownloadUrl") = rsSoft2("DownloadUrl")
        rsSoft("SoftPoint") = rsSoft2("SoftPoint")
        rsSoft("Deleted") = PE_CBool(rsSoft2("Deleted"))
        rsSoft("Stars") = rsSoft2("Stars")
        rsSoft("DecompressPassword") = rsSoft2("DecompressPassword") & ""
        rsSoft("LastHitTime") = rsSoft2("LastHitTime")
        rsSoft("TemplateID") = GetNewID(ArrTemplateID, rsSoft2("TemplateID"))
        rsSoft("SkinID") = GetNewID(ArrSkinID, rsSoft2("SkinID"))
        rsSoft("PresentExp") = rsSoft2("PresentExp")
        rsSoft("Copymoney") = rsSoft2("Copymoney")
        rsSoft("IsPayed") = PE_CBool(rsSoft2("IsPayed"))
        rsSoft("Beneficiary") = rsSoft2("Beneficiary")
        Err.Clear
        rsSoft.Update
        Call ErrorHandle("PE_Soft", rsSoft2("SoftID"), 0)
        rsSoft2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsSoft2.Close
    Set rsSoft2 = Nothing
    rsSoft.Close
    Set rsSoft = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Photo()
    On Error Resume Next
    Info_CurrentUpdate = "正在升级图片数据..."
    TableName = "PE_Photo"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0

    '自定义字段
    Dim rsField, strField, arrField, k
    strField = ""
    Set rsField = Conn_Source.Execute("select FieldName from PE_Field where ChannelID in (select DISTINCT ChannelID from PE_Photo)")
    Do While Not rsField.EOF
        If strField = "" Then
            strField = rsField(0)
        Else
            strField = strField & "," & rsField(0)
        End If
        rsField.movenext
    Loop
    Set rsField = Nothing
    If strField <> "" Then
        arrField = Split(strField, ",")
    End If
    
    Dim rsPhoto2, rsPhoto
    Dim arrUrls, arrTemp, PhotoUrl, i, OldChannelID
    OldChannelID = 0
    Set rsPhoto2 = Server.CreateObject("ADODB.Recordset")
    Set rsPhoto = Server.CreateObject("ADODB.Recordset")
    rsPhoto2.open "select * from PE_Photo Order by PhotoID Asc", Conn_Source, 1, 1
    rsPhoto.open "select * from PE_Photo", Conn_Remote, 1, 3
    Do While Not rsPhoto2.EOF
        rsPhoto.addnew
        
        If strField <> "" Then
            For k = 0 To UBound(arrField)
                rsPhoto(Trim(arrField(k))) = rsPhoto2(Trim(arrField(k)))
            Next
        End If

        rsPhoto("PhotoID") = rsPhoto2("PhotoID")
        rsPhoto("ChannelID") = rsPhoto2("ChannelID")
        rsPhoto("ClassID") = rsPhoto2("ClassID")
        rsPhoto("SpecialID") = rsPhoto2("SpecialID")
        rsPhoto("PhotoName") = rsPhoto2("PhotoName") & ""
        rsPhoto("Author") = rsPhoto2("Author") & ""
        rsPhoto("CopyFrom") = rsPhoto2("CopyFrom") & ""
        rsPhoto("Inputer") = rsPhoto2("Inputer") & ""
        rsPhoto("Editor") = rsPhoto2("Editor") & ""
        rsPhoto("Keyword") = rsPhoto2("Keyword") & ""
        rsPhoto("Hits") = rsPhoto2("Hits")
        rsPhoto("DayHits") = rsPhoto2("DayHits")
        rsPhoto("WeekHits") = rsPhoto2("WeekHits")
        rsPhoto("MonthHits") = rsPhoto2("MonthHits")
        rsPhoto("UpdateTime") = rsPhoto2("UpdateTime")
        rsPhoto("PhotoThumb") = rsPhoto2("PhotoThumb") & ""
        rsPhoto("PhotoUrl") = rsPhoto2("PhotoUrl") & ""
        rsPhoto("PhotoSize") = rsPhoto2("PhotoSize")
        rsPhoto("OnTop") = PE_CBool(rsPhoto2("OnTop"))
        rsPhoto("Elite") = PE_CBool(rsPhoto2("Elite"))
        rsPhoto("Passed") = PE_CBool(rsPhoto2("Passed"))
        rsPhoto("PhotoIntro") = rsPhoto2("PhotoIntro") & ""
        rsPhoto("PhotoPoint") = rsPhoto2("PhotoPoint")
        rsPhoto("Deleted") = PE_CBool(rsPhoto2("Deleted"))
        rsPhoto("Stars") = rsPhoto2("Stars")
        rsPhoto("LastHitTime") = rsPhoto2("LastHitTime")
        rsPhoto("TemplateID") = GetNewID(ArrTemplateID, rsPhoto2("TemplateID"))
        rsPhoto("SkinID") = GetNewID(ArrSkinID, rsPhoto2("SkinID"))
        rsPhoto("PresentExp") = rsPhoto2("PresentExp")
        rsPhoto("Copymoney") = rsPhoto2("Copymoney")
        rsPhoto("IsPayed") = PE_CBool(rsPhoto2("IsPayed"))
        rsPhoto("Beneficiary") = rsPhoto2("Beneficiary")
        Err.Clear
        rsPhoto.Update
        Call ErrorHandle("PE_Photo", rsPhoto2("PhotoID"), 0)
        rsPhoto2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsPhoto2.Close
    Set rsPhoto2 = Nothing
    rsPhoto.Close
    Set rsPhoto = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Special()
    Info_CurrentUpdate = "正在升级各频道中的专题数据..."
    TableName = "PE_Special"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsSpecial2, rsSpecial
    Set rsSpecial2 = Server.CreateObject("ADODB.Recordset")
    Set rsSpecial = Server.CreateObject("ADODB.Recordset")
    rsSpecial2.open "select * from PE_Special Order by SpecialID Asc", Conn_Source, 1, 1
    rsSpecial.open "select * from PE_Special", Conn_Remote, 1, 3
    Do While Not rsSpecial2.EOF
        rsSpecial.addnew
        rsSpecial("SpecialID") = rsSpecial2("SpecialID")
        rsSpecial("ChannelID") = rsSpecial2("ChannelID")
        rsSpecial("SpecialName") = rsSpecial2("SpecialName") & ""
        rsSpecial("OrderID") = rsSpecial2("OrderID")
        rsSpecial("ReadMe") = rsSpecial2("ReadMe") & ""
        rsSpecial("SkinID") = GetNewID(ArrSkinID, rsSpecial2("SkinID"))
        rsSpecial("TemplateID") = GetNewID(ArrTemplateID, rsSpecial2("TemplateID"))
        rsSpecial("SpecialDir") = rsSpecial2("SpecialDir") & ""
        rsSpecial.Update
        rsSpecial2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsSpecial2.Close
    Set rsSpecial2 = Nothing
    rsSpecial.Close
    Set rsSpecial = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_JsFile()
    Info_CurrentUpdate = "正在升级各频道中的JS数据..."
    TableName = "PE_JsFile"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Conn_Remote.Execute ("delete from PE_JsFile")
    Dim rsJsFile2, rsJsFile
    Set rsJsFile2 = Server.CreateObject("ADODB.Recordset")
    Set rsJsFile = Server.CreateObject("ADODB.Recordset")
    rsJsFile2.open "select * from PE_JsFile Order by ID Asc", Conn_Source, 1, 1
    rsJsFile.open "select * from PE_JsFile", Conn_Remote, 1, 3
    Do While Not rsJsFile2.EOF
        rsJsFile.addnew
        rsJsFile("ChannelID") = rsJsFile2("ChannelID")
        rsJsFile("JsName") = rsJsFile2("JsName") & ""
        rsJsFile("JsReadme") = rsJsFile2("JsReadme") & ""
        rsJsFile("JsType") = rsJsFile2("JsType")
        rsJsFile("JsFileName") = rsJsFile2("JsFileName") & ""
        rsJsFile("Config") = rsJsFile2("Config") & ""
        rsJsFile.Update
        rsJsFile2.movenext
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
        TotalRecordIndex = TotalRecordIndex + 1
    Loop
    rsJsFile2.Close
    Set rsJsFile2 = Nothing
    rsJsFile.Close
    Set rsJsFile = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Comment()
    Info_CurrentUpdate = "正在升级各频道中的评论数据..."
    TableName = "PE_Comment"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsComment2, rsComment
    Set rsComment2 = Server.CreateObject("ADODB.Recordset")
    Set rsComment = Server.CreateObject("ADODB.Recordset")
    rsComment2.open "select * from PE_Comment Order by CommentID Asc", Conn_Source, 1, 1
    rsComment.open "select * from PE_Comment", Conn_Remote, 1, 3
    Do While Not rsComment2.EOF
        rsComment.addnew
        rsComment("ChannelID") = rsComment2("ChannelID")
        rsComment("ClassID") = rsComment2("ClassID")
        rsComment("InfoID") = rsComment2("InfoID")
        rsComment("UserType") = rsComment2("UserType")
        rsComment("UserName") = rsComment2("UserName") & ""
        rsComment("Sex") = rsComment2("Sex") & ""
        rsComment("OICQ") = rsComment2("OICQ") & ""
        rsComment("MSN") = rsComment2("MSN") & ""
        rsComment("ICQ") = rsComment2("ICQ") & ""
        rsComment("Email") = rsComment2("Email") & ""
        rsComment("Homepage") = rsComment2("Homepage") & ""
        rsComment("IP") = rsComment2("IP") & ""
        rsComment("WriteTime") = rsComment2("WriteTime")
        rsComment("Score") = rsComment2("Score") & ""
        rsComment("Content") = rsComment2("Content") & ""
        rsComment("ReplyName") = rsComment2("ReplyName") & ""
        rsComment("ReplyContent") = rsComment2("ReplyContent") & ""
        rsComment("ReplyTime") = rsComment2("ReplyTime")
        rsComment("Passed") = PE_CBool(rsComment2("Passed"))
        rsComment.Update
        rsComment2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsComment2.Close
    Set rsComment2 = Nothing
    rsComment.Close
    Set rsComment = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Advertisement()
    Info_CurrentUpdate = "正在升级网站广告数据..."
    TableName = "PE_Advertisement"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsAdvertisement2, rsAdvertisement
    Set rsAdvertisement2 = Server.CreateObject("ADODB.Recordset")
    Set rsAdvertisement = Server.CreateObject("ADODB.Recordset")
    rsAdvertisement2.open "select * from PE_Advertisement Order by ADID Asc", Conn_Source, 1, 1