update_2005.asp

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

            OldChannelID = rsPhoto2("ChannelID")
            ChannelDir = GetChannelDir(rsPhoto2("ChannelID"))
        End If
        rsPhoto("PhotoIntro") = UBBCode(dvHTMLEncode(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") = 0
        rsPhoto("Copymoney") = 0
        rsPhoto("IsPayed") = False
        rsPhoto("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_Soft()
    On Error Resume Next
    Info_CurrentUpdate = "正在升级软件数据..."
    TableName = "PE_Soft"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    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_old, 1, 1
    rsSoft.open "select * from PE_Soft", conn, 1, 3
    Do While Not rsSoft2.EOF
        rsSoft.addnew
        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") = Update_AF(rsSoft2("Author"))
        rsSoft("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") = GetSoftType(rsSoft2("SoftType"))
        rsSoft("SoftLanguage") = GetSoftLanguage(rsSoft2("SoftLanguage"))
        rsSoft("CopyrightType") = GetCopyrightType(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"))
        If OldChannelID <> rsSoft2("ChannelID") Then
            OldChannelID = rsSoft2("ChannelID")
            ChannelDir = GetChannelDir(rsSoft2("ChannelID"))
        End If
        rsSoft("SoftIntro") = UBBCode(dvHTMLEncode(rsSoft2("SoftIntro") & ""))
        rsSoft("SoftPicUrl") = rsSoft2("SoftPicUrl") & ""
        DownloadUrl = ""
        arrUrls = Split(LCase(rsSoft2("DownloadUrl")), "$$$")
        For i = 0 To UBound(arrUrls)
            If InStr(arrUrls(i), "|") > 0 Then
                arrTemp = Split(arrUrls(i), "|")
                If Left(arrTemp(1), Len("uploadsoft/")) = "uploadsoft/" Then
                    If DownloadUrl = "" Then
                        DownloadUrl = arrTemp(0) & "|" & Replace(arrTemp(1), "uploadsoft/", "")
                    Else
                        DownloadUrl = DownloadUrl & "$$$" & arrTemp(0) & "|" & Replace(arrTemp(1), "uploadsoft/", "")
                    End If
                Else
                    If DownloadUrl = "" Then
                        DownloadUrl = arrUrls(i)
                    Else
                        DownloadUrl = DownloadUrl & "$$$" & arrUrls(i)
                    End If
                End If
            End If
        Next
        rsSoft("DownloadUrl") = 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") = 0
        rsSoft("Copymoney") = 0
        rsSoft("IsPayed") = False
        rsSoft("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_Guest()
    On Error Resume Next
    Info_CurrentUpdate = "正在升级网站留言数据..."
    TableName = "PE_Guest"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsGuest2, rsGuest
    Set rsGuest2 = Server.CreateObject("ADODB.Recordset")
    Set rsGuest = Server.CreateObject("ADODB.Recordset")
    rsGuest2.open "select * from PE_Guest Order by GuestID Asc", conn_old, 1, 1
    rsGuest.open "select * from PE_GuestBook", conn, 1, 3
    Do While Not rsGuest2.EOF
        rsGuest.addnew
        rsGuest("GuestID") = rsGuest2("GuestID")
        rsGuest("KindID") = 0
        rsGuest("TopicID") = rsGuest2("GuestID")
        rsGuest("GuestMaxID") = rsGuest2("GuestMaxID")
        rsGuest("GuestType") = rsGuest2("GuestType")
        rsGuest("GuestName") = rsGuest2("GuestName") & ""
        rsGuest("GuestSex") = rsGuest2("GuestSex") & ""
        rsGuest("GuestOicq") = rsGuest2("GuestOicq") & ""
        rsGuest("GuestMsn") = rsGuest2("GuestMsn") & ""
        rsGuest("GuestIcq") = rsGuest2("GuestIcq") & ""
        rsGuest("GuestEmail") = rsGuest2("GuestEmail") & ""
        rsGuest("GuestHomepage") = rsGuest2("GuestHomepage") & ""
        rsGuest("GuestImages") = rsGuest2("GuestImages") & ""
        rsGuest("GuestFace") = rsGuest2("GuestFace") & ""
        rsGuest("GuestIP") = rsGuest2("GuestIP") & ""
        rsGuest("GuestTitle") = rsGuest2("GuestTitle") & ""
        rsGuest("GuestContent") = rsGuest2("GuestContent") & ""
        rsGuest("GuestDatetime") = rsGuest2("GuestDatetime")
        rsGuest("Hits") = 0
        rsGuest("ReplyNum") = 0
        rsGuest("LastReplyContent") = ""
        rsGuest("LastReplyGuest") = ""
        'rsGuest("LastReplyTime") = now
        rsGuest("LastReplyTitle") = ""
        rsGuest("GuestReply") = rsGuest2("GuestReply") & ""
        rsGuest("GuestReplyAdmin") = rsGuest2("GuestReplyAdmin") & ""
        rsGuest("GuestReplyDatetime") = rsGuest2("GuestReplyDatetime")
        rsGuest("Quintessence") = 0
        rsGuest("GuestIsPrivate") = rsGuest2("GuestIsPrivate")
        rsGuest("GuestIsPassed") = rsGuest2("GuestIsPassed")
        rsGuest("OnTop") = 0
        Err.Clear
        rsGuest.Update
        Call ErrorHandle("PE_Guest", rsGuest2("GuestID"), 0)
        rsGuest2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsGuest2.Close
    Set rsGuest2 = Nothing
    rsGuest.Close
    Set rsGuest = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_Announce()
    Info_CurrentUpdate = "正在升级网站公告数据..."
    TableName = "PE_Announce"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsAnnounce2, rsAnnounce
    Set rsAnnounce2 = Server.CreateObject("ADODB.Recordset")
    Set rsAnnounce = Server.CreateObject("ADODB.Recordset")
    rsAnnounce2.open "select * from PE_Announce Order by ID Asc", conn_old, 1, 1
    rsAnnounce.open "select * from PE_Announce", conn, 1, 3
    Do While Not rsAnnounce2.EOF
        rsAnnounce.addnew
        rsAnnounce("Title") = rsAnnounce2("Title") & ""
        rsAnnounce("Content") = rsAnnounce2("Content") & ""
        rsAnnounce("Author") = rsAnnounce2("Author") & ""
        rsAnnounce("DateAndTime") = rsAnnounce2("DateAndTime")
        rsAnnounce("IsSelected") = PE_CBool(rsAnnounce2("IsSelected"))
        rsAnnounce("ChannelID") = rsAnnounce2("ChannelID")
        rsAnnounce("ShowType") = rsAnnounce2("ShowType")
        rsAnnounce.Update
        rsAnnounce2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsAnnounce2.Close
    Set rsAnnounce2 = Nothing
    rsAnnounce.Close
    Set rsAnnounce = Nothing
    Call RefreshPercentBar
End Sub


Sub Update_PE_Vote()
    Info_CurrentUpdate = "正在升级网站调查数据..."
    TableName = "PE_Vote"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsVote2, rsVote
    Set rsVote2 = Server.CreateObject("ADODB.Recordset")
    Set rsVote = Server.CreateObject("ADODB.Recordset")
    rsVote2.open "select * from PE_Vote Order by ID Asc", conn_old, 1, 1
    rsVote.open "select * from PE_Vote", conn, 1, 3
    Do While Not rsVote2.EOF
        rsVote.addnew
        rsVote("Title") = rsVote2("Title") & ""
        For i = 1 To 8
            rsVote("Select" & i) = rsVote2("Select" & i) & ""
            rsVote("Answer" & i) = rsVote2("Answer" & i)
        Next
        rsVote("VoteTime") = rsVote2("VoteTime")
        rsVote("VoteType") = rsVote2("VoteType")
        rsVote("IsSelected") = PE_CBool(rsVote2("IsSelected"))
        rsVote("ChannelID") = rsVote2("ChannelID")
        rsVote.Update
        rsVote2.movenext
        TotalRecordIndex = TotalRecordIndex + 1
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
    Loop
    rsVote2.Close
    Set rsVote2 = Nothing
    rsVote.Close
    Set rsVote = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_PE_FriendSite()
    Info_CurrentUpdate = "正在升级友情链接数据..."
    TableName = "PE_FriendSite"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Dim rsFriendSite2, rsFriendSite
    Set rsFriendSite2 = Server.CreateObject("ADODB.Recordset")
    Set rsFriendSite = Server.CreateObject("ADODB.Recordset")
    rsFriendSite2.open "select * from PE_FriendSite Order by ID Asc", conn_old, 1, 1
    rsFriendSite.open "select * from PE_FriendSite", conn, 1, 3
    Do While Not rsFriendSite2.EOF
        rsFriendSite.addnew
        rsFriendSite("KindID") = 0
        rsFriendSite("SpecialID") = 0
        rsFriendSite("LinkType") = rsFriendSite2("LinkType")
        rsFriendSite("SiteName") = rsFriendSite2("SiteName") & ""
        rsFriendSite("SiteUrl") = rsFriendSite2("SiteUrl") & ""
        rsFriendSite("SiteIntro") = rsFriendSite2("SiteIntro") & ""
        rsFriendSite("LogoUrl") = rsFriendSite2("LogoUrl") & ""
        rsFriendSite("SiteAdmin") = rsFriendSite2("SiteAdmin") & ""
        rsFriendSite("SiteEmail") = rsFriendSite2("Email") & ""
        rsFriendSite("SitePassword") = rsFrien