update_2005.asp

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

        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_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_old, 1, 1
    rsSpecial.open "select * from PE_Special", conn, 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_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_old, 1, 1
    rsComment.open "select * from PE_Comment", conn, 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_JsFile()
    Info_CurrentUpdate = "正在升级各频道中的JS数据..."
    TableName = "PE_JsFile"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    conn.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_old, 1, 1
    rsJsFile.open "select * from PE_JsFile", conn, 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
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsJsFile2.Close
    Set rsJsFile2 = Nothing
    rsJsFile.Close
    Set rsJsFile = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Article()
    On Error Resume Next
    Info_CurrentUpdate = "正在升级文章数据..."
    TableName = "PE_Article"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    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_old, 1, 1
    rsArticle.open "select * from PE_Article", conn, 1, 3
    Do While Not rsArticle2.EOF
        rsArticle.addnew
        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") = Update_AF(rsArticle2("Author"))
        rsArticle("CopyFrom") = Update_AF(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"))
        strContent = Replace(rsArticle2("Content"), "UploadFiles", "{$UploadDir}")
        strContent = Replace(strContent, "uploadfiles", "{$UploadDir}")
        strContent = Replace(strContent, "UPLOADFILES", "{$UploadDir}")
        rsArticle("Content") = strContent
        rsArticle("IncludePic") = rsArticle2("IncludePic")
        If LCase(Left(rsArticle2("DefaultPicUrl"), Len("uploadfiles/"))) = "uploadfiles/" Then
            rsArticle("DefaultPicUrl") = Replace(LCase(rsArticle2("DefaultPicUrl")), "uploadfiles/", "")
        Else
            rsArticle("DefaultPicUrl") = rsArticle2("DefaultPicUrl") & ""
        End If
        rsArticle("UploadFiles") = Replace(LCase(rsArticle2("UploadFiles") & ""), "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") = rsArticle2("ShowCommentLink")
        If IsNull(rsArticle2("Receive")) Then
            rsArticle("Receive") = False
        Else
            rsArticle("Receive") = rsArticle2("Receive")
        End If
        rsArticle("ReceiveUser") = rsArticle2("ReceiveUser") & ""
        rsArticle("Received") = rsArticle2("Received") & ""
        If IsNull(rsArticle2("AutoReceiveTime")) Then
            rsArticle("AutoReceiveTime") = 0
        Else
            rsArticle("AutoReceiveTime") = rsArticle2("AutoReceiveTime")
        End If
        If IsNull(rsArticle2("ReceiveType")) Then
            rsArticle("ReceiveType") = 0
        Else
            rsArticle("ReceiveType") = rsArticle2("ReceiveType")
        End If
        rsArticle("Intro") = ""
        rsArticle("PresentExp") = 0
        rsArticle("Copymoney") = 0
        rsArticle("IsPayed") = False
        rsArticle("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_Photo()
    On Error Resume Next
    Info_CurrentUpdate = "正在升级图片数据..."
    TableName = "PE_Photo"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    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_old, 1, 1
    rsPhoto.open "select * from PE_Photo", conn, 1, 3
    Do While Not rsPhoto2.EOF
        rsPhoto.addnew
        rsPhoto("PhotoID") = rsPhoto2("PhotoID")
        rsPhoto("ChannelID") = rsPhoto2("ChannelID")
        rsPhoto("ClassID") = rsPhoto2("ClassID")
        rsPhoto("SpecialID") = rsPhoto2("SpecialID")
        rsPhoto("PhotoName") = rsPhoto2("PhotoName") & ""
        rsPhoto("Author") = Update_AF(rsPhoto2("Author"))
        rsPhoto("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")
        If LCase(Left(rsPhoto2("PhotoThumb"), Len("uploadthumbs/"))) = "uploadthumbs/" Then
            rsPhoto("PhotoThumb") = Replace(LCase(rsPhoto2("PhotoThumb")), "uploadthumbs/", "")
        Else
            rsPhoto("PhotoThumb") = rsPhoto2("PhotoThumb") & ""
        End If
        PhotoUrl = ""
        arrUrls = Split(LCase(rsPhoto2("PhotoUrl")), "$$$")
        For i = 0 To UBound(arrUrls)
            If InStr(arrUrls(i), "|") > 0 Then
                arrTemp = Split(arrUrls(i), "|")
                If Left(arrTemp(1), Len("uploadphotos/")) = "uploadphotos/" Then
                    If PhotoUrl = "" Then
                        PhotoUrl = arrTemp(0) & "|" & Replace(arrTemp(1), "uploadphotos/", "")
                    Else
                        PhotoUrl = PhotoUrl & "$$$" & arrTemp(0) & "|" & Replace(arrTemp(1), "uploadphotos/", "")
                    End If
                Else
                    If PhotoUrl = "" Then
                        PhotoUrl = arrUrls(i)
                    Else
                        PhotoUrl = PhotoUrl & "$$$" & arrUrls(i)
                    End If
                End If
            End If
        Next
        rsPhoto("PhotoUrl") = PhotoUrl
        rsPhoto("PhotoSize") = rsPhoto2("PhotoSize")
        rsPhoto("OnTop") = PE_CBool(rsPhoto2("OnTop"))
        rsPhoto("Elite") = PE_CBool(rsPhoto2("Elite"))
        rsPhoto("Passed") = PE_CBool(rsPhoto2("Passed"))
        If OldChannelID <> rsPhoto2("ChannelID") Then