update_2005.asp

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

        rsConfig("EnableUserReg") = PE_CBool(rsConfig2("EnableUserReg"))
        rsConfig("EmailCheckReg") = PE_CBool(rsConfig2("EmailCheckReg"))
        rsConfig("AdminCheckReg") = PE_CBool(rsConfig2("AdminCheckReg"))
        rsConfig("UserExpExchangePoint") = rsConfig2("PerWealth")
        rsConfig("MailServer") = rsConfig2("MailServer")
        rsConfig("MailServerUserName") = rsConfig2("MailServerUserName")
        rsConfig("MailServerPassWord") = rsConfig2("MailServerPassWord")
        rsConfig("MailDomain") = rsConfig2("MailDomain")
        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_old, 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, 1, 3
    Do While Not rsSkin2.EOF
        If i = 0 Then
            conn.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.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, 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_old, 1, 1
    If Not (rsTemplate2.EOF And rsTemplate2.bof) Then
        ReDim ArrTemplateID(rsTemplate2.recordcount - 1, 1)
        i = 0
    End If
    conn.execute ("update PE_Template set IsDefault=" & PE_False & " where (TemplateType<=8 and ChannelID>0) or (TemplateType<=1 and ChannelID=0)")
    rsTemplate.open "select * from PE_Template", conn, 1, 3
    Do While Not rsTemplate2.EOF
        rsTemplate.addnew
        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.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_old, 1, 1
    Do While Not rsChannel2.EOF
        rsChannel.open "select * from PE_Channel where ChannelID=" & rsChannel2("ChannelID") & "", conn, 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") & ""
        If rsChannel2("ModuleType") = 1 Then
            rsChannel("ChannelItemUnit") = "篇"
        ElseIf rsChannel2("ModuleType") = 2 Then
            rsChannel("ChannelItemUnit") = "个"
        ElseIf rsChannel2("ModuleType") = 3 Then
            rsChannel("ChannelItemUnit") = "张"
        Else
            rsChannel("ChannelItemUnit") = ""
        End If
        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") = False
        rsChannel("EnableCheck") = PE_CBool(rsChannel2("EnableCheck"))
        rsChannel("EnableUploadFile") = PE_CBool(rsChannel2("EnableUploadFile"))
        If rsChannel2("ModuleType") = 1 Then
            rsChannel("UploadDir") = "UploadFiles"
        ElseIf rsChannel2("ModuleType") = 2 Then
            rsChannel("UploadDir") = "UploadSoft"
        ElseIf rsChannel2("ModuleType") = 3 Then
            rsChannel("UploadDir") = "UploadPhotos"
        Else
            rsChannel("UploadDir") = ""
        End If
        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"))
        If rsChannel2("UseCreateHTML") = True Then
            rsChannel("UseCreateHTML") = 1
        Else
            rsChannel("UseCreateHTML") = 0
        End If
        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") = 0
        rsChannel("ListFileType") = 0
        rsChannel("FileNameType") = 0
        rsChannel("AutoCreateType") = 1
        rsChannel("FileExt_Index") = 0
        rsChannel("FileExt_List") = 0
        rsChannel("FileExt_Item") = 0
        If rsChannel2("ModuleType") = 2 Then
            rsChannel("Fields_Options") = "国产软件" & vbCrLf & "国外软件" & vbCrLf & "汉化补丁" & vbCrLf & "程序源码" & vbCrLf & "电影下载" & vbCrLf & "Flash动画" & vbCrLf & "其他$$$英文" & vbCrLf & "简体中文" & vbCrLf & "繁体中文" & vbCrLf & "简繁中文" & vbCrLf & "多国语言" & vbCrLf & "其他语言$$$免费版" & vbCrLf & "共享版" & vbCrLf & "试用版" & vbCrLf & "演示版" & vbCrLf & "注册版" & vbCrLf & "破解版" & vbCrLf & "零售版" & vbCrLf & "OEM版$$$Linux" & vbCrLf & "DOS" & vbCrLf & "9x" & vbCrLf & "95" & vbCrLf & "98" & vbCrLf & "Me" & vbCrLf & "NT" & vbCrLf & "2000" & vbCrLf & "XP" & vbCrLf & ".NET"
        End If
        
        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_old, 1, 1
    rsClass.open "select * from PE_Class", conn, 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") = 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"))
        If PE_CLng(rsClass2("BrowsePurview")) >= 9999 Then
            rsClass("ClassPurview") = 0
            If rsClass2("ParentID") > 0 Then
                sqlPath = "select BrowsePurview from PE_Class where ClassID in (" & rsClass2("ParentPath") & ") order by Depth"
                Set rsPath = conn_old.execute(sqlPath)
                Do While Not rsPath.EOF
                    If rsPath("BrowsePurview") < 9999 Then rsClass("ClassPurview") = 2
                    rsPath.movenext
                Loop
                rsPath.Close
                Set rsPath = Nothing
            End If
        Else
            rsClass("ClassPurview") = 2
        End If
        rsClass("EnableComment") = True
        rsClass("CheckComment") = True
        rsClass("PresentExp") = 1
        Err.Clear
        rsClass.Update
        Call ErrorHandle("PE_Class", rsClass2("ClassID"), 1)
        rsClass2.movenext
        TotalRecordIndex = TotalRecordIndex + 1