pe2005_datatrans.asp

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

        rsChannel("Fields_Options") = rsChannel2("Fields_Options") & ""
        
        If rsChannel2("ChannelType") = 1 Then
            Update_Admin_Purview (rsChannel2("ChannelDir"))
        End If
        rsChannel.Update
        rsChannel.Close
        rsChannel2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsChannel2.Close
    Set rsChannel2 = Nothing
    Set rsChannel = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Class()
    On Error Resume Next
    Info_CurrentUpdate = "正在升级各频道中的栏目数据..."
    TableName = "PE_Class"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsClass2, rsClass, sqlPath, rsPath
    Set rsClass2 = Server.CreateObject("ADODB.Recordset")
    Set rsClass = Server.CreateObject("ADODB.Recordset")
    rsClass2.open "select * from PE_Class Order by ClassID Asc", Conn_Source, 1, 1
    rsClass.open "select * from PE_Class", Conn_Remote, 1, 3
    Do While Not rsClass2.EOF
        rsClass.addnew
        rsClass("ClassID") = rsClass2("ClassID")
        rsClass("ChannelID") = rsClass2("ChannelID")
        rsClass("ClassName") = rsClass2("ClassName") & ""
        rsClass("ClassType") = rsClass2("ClassType")
        rsClass("OpenType") = rsClass2("OpenType")
        rsClass("ParentID") = rsClass2("ParentID")
        rsClass("ParentPath") = rsClass2("ParentPath")
        rsClass("Depth") = rsClass2("Depth")
        rsClass("RootID") = rsClass2("RootID")
        rsClass("Child") = rsClass2("Child")
        rsClass("arrChildID") = rsClass2("arrChildID")
        rsClass("PrevID") = rsClass2("PrevID")
        rsClass("NextID") = rsClass2("NextID")
        rsClass("OrderID") = rsClass2("OrderID")
        rsClass("ReadMe") = rsClass2("ReadMe") & ""
        rsClass("Setting") = PE_CLng(rsClass2("Setting"))
        rsClass("LinkUrl") = rsClass2("LinkUrl") & ""
        rsClass("ClassPicUrl") = rsClass2("ClassPicUrl") & ""
        rsClass("ClassDir") = rsClass2("ClassDir") & ""
        rsClass("ParentDir") = rsClass2("ParentDir") & ""
        rsClass("SkinID") = GetNewID(ArrSkinID, rsClass2("SkinID"))
        rsClass("TemplateID") = GetNewID(ArrTemplateID, rsClass2("TemplateID"))
        rsClass("ShowOnTop") = PE_CBool(rsClass2("ShowOnTop"))
        rsClass("ShowOnIndex") = PE_CBool(rsClass2("ShowOnIndex"))
        rsClass("IsElite") = PE_CBool(rsClass2("IsElite"))
        rsClass("EnableAdd") = PE_CBool(rsClass2("EnableAdd"))
        rsClass("EnableProtect") = PE_CBool(rsClass2("EnableProtect"))
        rsClass("MaxPerPage") = PE_CLng(rsClass2("MaxPerPage"))
        rsClass("DefaultItemTemplate") = GetNewID(ArrTemplateID, rsClass2("DefaultItemTemplate"))
        rsClass("DefaultItemSkin") = GetNewID(ArrSkinID, rsClass2("DefaultItemSkin"))
        rsClass("ItemListOrderType") = PE_CLng(rsClass2("ItemListOrderType"))
        rsClass("ItemOpenType") = PE_CLng(rsClass2("ItemOpenType"))
        rsClass("ItemCount") = PE_CLng(rsClass2("ItemCount"))
        rsClass("ClassPurview") = PE_CLng(rsClass2("ClassPurview"))
        rsClass("EnableComment") = PE_CBool(rsClass2("EnableComment"))
        rsClass("CheckComment") = PE_CBool(rsClass2("CheckComment"))
        rsClass("PresentExp") = PE_CLng(rsClass2("PresentExp"))
        Err.Clear
        rsClass.Update
        Call ErrorHandle("PE_Class", rsClass2("ClassID"), 1)
        rsClass2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsClass2.Close
    Set rsClass2 = Nothing
    rsClass.Close
    Set rsClass = Nothing
    Call RefreshPercentBar
End Sub


Sub Update_PE_Field()
    On Error Resume Next
    Dim rsField2, rsField, SheetName, FieldName, sqlField
    Set rsField2 = Server.CreateObject("ADODB.Recordset")
    Set rsField = Server.CreateObject("ADODB.Recordset")
    rsField2.open "select F.FieldID,F.ChannelID,F.FieldName,F.Title,F.LabelName,F.Tips,F.FieldType,F.DefaultValue,F.Options,F.EnableNull,F.ShowOnForm,F.FieldLevel,C.ModuleType from PE_Field F inner join PE_Channel C on F.ChannelID=C.ChannelID Order by F.ChannelID asc,F.FieldID Asc", Conn_Source, 1, 1
    rsField.open "select * from PE_Field", Conn_Remote, 1, 3
    Do While Not rsField2.EOF
        Select Case rsField2("ModuleType")
        Case 1
            SheetName = "PE_Article"
        Case 2
            SheetName = "PE_Soft"
        Case 3
            SheetName = "PE_Photo"
        Case 5
            SheetName = "PE_Product"
        End Select
            
        FieldName = rsField2("FieldName")
        If Remote_Type = "SQL" Then
            If rsField2("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 rsField2("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_Remote.Execute (sqlField)
        If Err Then
            Err.Clear
            Response.Write "<br><li>向 " & SheetName & " 表中添加自定义字段 " & FieldName & " 失败！</li>"
        Else
            rsField.addnew
            rsField("ChannelID") = rsField2("ChannelID") & ""
            rsField("FieldName") = rsField2("FieldName")
            rsField("Title") = rsField2("Title")
            rsField("LabelName") = rsField2("LabelName")
            rsField("Tips") = rsField2("Tips")
            rsField("FieldType") = rsField2("FieldType")
            rsField("DefaultValue") = rsField2("DefaultValue")
            rsField("Options") = rsField2("Options")
            rsField("EnableNull") = rsField2("EnableNull")
            rsField("ShowOnForm") = rsField2("ShowOnForm")
            rsField("FieldLevel") = rsField2("FieldLevel")
            rsField.Update
        End If

        rsField2.movenext
    Loop
    rsField2.Close
    Set rsField2 = Nothing
    rsField.Close
    Set rsField = Nothing
End Sub

Sub Update_PE_Article()
    'On Error Resume Next
    Info_CurrentUpdate = "正在升级文章数据..."
    TableName = "PE_Article"
    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_Article)")
    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 rsArticle2, rsArticle
    Dim strContent
    Set rsArticle2 = Server.CreateObject("ADODB.Recordset")
    Set rsArticle = Server.CreateObject("ADODB.Recordset")
    rsArticle2.open "select * from PE_Article Order by ArticleID Asc", Conn_Source, 1, 1
    rsArticle.open "select * from PE_Article", Conn_Remote, 1, 3
    Do While Not rsArticle2.EOF
        rsArticle.addnew

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

        rsArticle("ArticleID") = rsArticle2("ArticleID")
        rsArticle("ChannelID") = rsArticle2("ChannelID")
        rsArticle("ClassID") = rsArticle2("ClassID")
        rsArticle("SpecialID") = rsArticle2("SpecialID")
        rsArticle("Title") = rsArticle2("Title") & ""
        rsArticle("TitleIntact") = rsArticle2("TitleIntact") & ""
        rsArticle("Subheading") = rsArticle2("Subheading") & ""
        rsArticle("Author") = rsArticle2("Author") & ""
        rsArticle("CopyFrom") = rsArticle2("CopyFrom") & ""
        rsArticle("Inputer") = rsArticle2("Inputer") & ""
        rsArticle("LinkUrl") = rsArticle2("LinkUrl") & ""
        rsArticle("Editor") = rsArticle2("Editor") & ""
        rsArticle("Keyword") = rsArticle2("Keyword") & ""
        rsArticle("hits") = rsArticle2("hits")
        rsArticle("UpdateTime") = rsArticle2("UpdateTime")
        rsArticle("Hot") = PE_CBool(rsArticle2("Hot"))
        rsArticle("OnTop") = PE_CBool(rsArticle2("OnTop"))
        rsArticle("Elite") = PE_CBool(rsArticle2("Elite"))
        rsArticle("Passed") = PE_CBool(rsArticle2("Passed"))
        rsArticle("Content") = rsArticle2("Content")
        rsArticle("IncludePic") = rsArticle2("IncludePic")
        rsArticle("DefaultPicUrl") = rsArticle2("DefaultPicUrl") & ""
        rsArticle("UploadFiles") = rsArticle2("UploadFiles") & ""
        rsArticle("ReadPoint") = rsArticle2("ReadPoint")
        rsArticle("PaginationType") = rsArticle2("PaginationType")
        rsArticle("Deleted") = PE_CBool(rsArticle2("Deleted"))
        rsArticle("SkinID") = GetNewID(ArrSkinID, rsArticle2("SkinID"))
        rsArticle("TemplateID") = GetNewID(ArrTemplateID, rsArticle2("TemplateID"))
        rsArticle("Stars") = rsArticle2("Stars")
        rsArticle("TitleFontColor") = rsArticle2("TitleFontColor") & ""
        rsArticle("TitleFontType") = rsArticle2("TitleFontType")
        rsArticle("MaxCharPerPage") = rsArticle2("MaxCharPerPage")
        rsArticle("ShowCommentLink") = PE_CBool(rsArticle2("ShowCommentLink"))
        rsArticle("Receive") = PE_CBool(rsArticle2("Receive"))
        rsArticle("ReceiveUser") = rsArticle2("ReceiveUser") & ""
        rsArticle("Received") = rsArticle2("Received") & ""
        rsArticle("AutoReceiveTime") = rsArticle2("AutoReceiveTime")
        rsArticle("ReceiveType") = rsArticle2("ReceiveType")
        rsArticle("Intro") = rsArticle2("Intro")
        rsArticle("PresentExp") = rsArticle2("PresentExp")
        rsArticle("Copymoney") = rsArticle2("Copymoney")
        rsArticle("IsPayed") = PE_CBool(rsArticle2("IsPayed"))
        rsArticle("Beneficiary") = rsArticle2("Beneficiary")
        Err.Clear
        rsArticle.Update
        Call ErrorHandle("PE_Article", rsArticle2("ArticleID"), 0)
        rsArticle2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsArticle2.Close
    Set rsArticle2 = Nothing
    rsArticle.Close
    Set rsArticle = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Soft()
    On Error Resume Next
    Info_CurrentUpdate = "正在升级软件数据..."
    TableName = "PE_Soft"
    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_Soft)")
    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 rsSoft2, rsSoft
    Dim arrUrls, arrTemp, DownloadUrl, i, OldChannelID
    OldChannelID = 0
    Set rsSoft2 = Server.CreateObject("ADODB.Recordset")
    Set rsSoft = Server.CreateObject("ADODB.Recordset")
    rsSoft2.open "select * from PE_Soft Order by SoftID Asc", Conn_Source, 1, 1
    rsSoft.open "select * from PE_Soft", Conn_Remote, 1, 3
    Do While Not rsSoft2.EOF
        rsSoft.addnew