pe2006_datatrans.asp

动易2006sql全功能版 如果遇到MD5加密文件

    If FoundInArr(UpdateTable, "PE_InvoiceItem") = True Then Call Update_Table("PE_InvoiceItem", "InvoiceID", "InvoiceID", "发票项目")
    If FoundInArr(UpdateTable, "PE_ShoppingCarts") = True Then Call Update_Table("PE_ShoppingCarts", "CartItemID", "CartItemID", "购物车表")

    If FoundInArr(UpdateTable, "PE_DeliverType") = True Then Call Update_Table("PE_DeliverType", "TypeID", "", "送货方式")
    If FoundInArr(UpdateTable, "PE_DeliverItem") = True Then Call Update_Table("PE_DeliverItem", "DeliverID", "DeliverID", "发退货记录")
    If FoundInArr(UpdateTable, "PE_PaymentType") = True Then Call Update_Table("PE_PaymentType", "TypeID", "", "付款方式")
    If FoundInArr(UpdateTable, "PE_Payment") = True Then Call Update_Table("PE_Payment", "PaymentID", "", "在线支付记录")
    If FoundInArr(UpdateTable, "PE_PresentProject") = True Then Call Update_Table("PE_PresentProject", "ProjectID", "ProjectID", "促销方案")
    If FoundInArr(UpdateTable, "PE_TransferItem") = True Then Call Update_Table("PE_TransferItem", "ItemID", "ItemID", "订单过户记录")

    If FoundInArr(UpdateTable, "PE_AreaCollection") = True Then Call Update_Table("PE_AreaCollection", "AreaID", "AreaID", "区域采集表")
	If FoundInArr(UpdateTable, "PE_Item") = True Then Call Update_Table("PE_Item", "ItemID", "ItemID", "采集项目")
    If FoundInArr(UpdateTable, "PE_Filters") = True Then Call Update_Table("PE_Filters", "FilterID", "FilterID", "采集过滤")
    If FoundInArr(UpdateTable, "PE_HistrolyNews") = True Then Call Update_Table("PE_HistrolyNews", "HistrolyNewsID", "HistrolyNewsID", "采集历史记录")

    If FoundInArr(UpdateTable, "PE_Channel") = True Then Call Update_Table("PE_Channel", "ChannelID", "", "网站频道")
    If FoundInArr(UpdateTable, "PE_User") = True Then Call Update_Table("PE_User", "", "", "会员数据")

    If FoundInArr(UpdateTable, "PE_Client") = True Then Call Update_Table("PE_Client", "", "", "顾客表")
    If FoundInArr(UpdateTable, "PE_Company") = True Then Call Update_Table("PE_Company", "", "", "公司表")
    If FoundInArr(UpdateTable, "PE_ComplainItem") = True Then Call Update_Table("PE_ComplainItem", "ItemID", "ItemID", "投诉项目")
    If FoundInArr(UpdateTable, "PE_ServiceItem") = True Then Call Update_Table("PE_ServiceItem", "ItemID", "ItemID", "服务记录")
	If FoundInArr(UpdateTable, "PE_Contacter") = True Then Call Update_Table("PE_Contacter", "", "", "联系人表")

    If FoundInArr(UpdateTable, "PE_DeliverCharge") = True Then Call Update_Table("PE_DeliverCharge", "ID", "ID", "运费标准")
    If FoundInArr(UpdateTable, "PE_Dictionary") = True Then Call Update_Table("PE_Dictionary", "FieldID", "FieldID", "字典表")
    If FoundInArr(UpdateTable, "PE_DownError") = True Then Call Update_Table("PE_DownError", "", "", "下载报错")
    If FoundInArr(UpdateTable, "PE_DownServer") = True Then Call Update_Table("PE_DownServer", "ServerID", "ServerID", "镜像服务器")
    If FoundInArr(UpdateTable, "PE_Friend") = True Then Call Update_Table("PE_Friend", "ID", "ID", "好友表")
'房产
    If FoundInArr(UpdateTable, "PE_HouseArea") = True Then Call Update_Table("PE_HouseArea", "", "", "房产区域表")
    If FoundInArr(UpdateTable, "PE_HouseConfig") = True Then Call Update_Table("PE_HouseConfig", "", "SkinID,TemplateID", "房产栏目配置")
    If FoundInArr(UpdateTable, "PE_HouseCS") = True Then Call Update_Table("PE_HouseCS", "HouseID", "", "出售信息表")
    If FoundInArr(UpdateTable, "PE_HouseCZ") = True Then Call Update_Table("PE_HouseCZ", "HouseID", "HouseID", "出租信息表")
    If FoundInArr(UpdateTable, "PE_HouseHZ") = True Then Call Update_Table("PE_HouseHZ", "HouseID", "", "合租信息表")
    If FoundInArr(UpdateTable, "PE_HouseQG") = True Then Call Update_Table("PE_HouseQG", "HouseID", "", "求购信息表")
    If FoundInArr(UpdateTable, "PE_HouseQZ") = True Then Call Update_Table("PE_HouseQZ", "HouseID", "", "求租信息表")

    If FoundInArr(UpdateTable, "PE_InfoS") = True Then Call Update_Table("PE_InfoS", "InfoID", "InfoID", "专题关联表")
    If FoundInArr(UpdateTable, "PE_TemplateProject") = True Then Call Update_Table("PE_TemplateProject", "TemplateProjectID", "", "模板方案")
'自定义页面
    If FoundInArr(UpdateTable, "PE_Page") = True Then Call Update_Table("PE_Page", "ID", "ID", "自定义页面")
    If FoundInArr(UpdateTable, "PE_PageClass") = True Then Call Update_Table("PE_PageClass", "ID", "ID", "自定义页分类")

    If FoundInArr(UpdateTable, "PE_Country") = True Then Call Update_Table("PE_Country", "CountryID", "CountryID", "国家表")
    If FoundInArr(UpdateTable, "PE_Province") = True Then Call Update_Table("PE_Province", "ProvinceID", "ProvinceID", "省市表")
    If FoundInArr(UpdateTable, "PE_City") = True Then Call Update_Table("PE_City", "AreaID", "AreaID", "邮政编码") 
	
'聚合空间
    If FoundInArr(UpdateTable, "PE_Space") = True Then Call Update_Table("PE_Space", "ID", "", "聚合空间")
    If FoundInArr(UpdateTable, "PE_SpaceBook") = True Then Call Update_Table("PE_SpaceBook", "ID", "", "聚合空间图书")
    If FoundInArr(UpdateTable, "PE_SpaceComment") = True Then Call Update_Table("PE_SpaceComment", "ID", "ID", "聚合空间评论")
    If FoundInArr(UpdateTable, "PE_SpaceDiary") = True Then Call Update_Table("PE_SpaceDiary", "ID", "", "聚合空间日志")
    If FoundInArr(UpdateTable, "PE_SpaceKind") = True Then Call Update_Table("PE_SpaceKind", "KindID", "", "聚合空间分类")
    If FoundInArr(UpdateTable, "PE_SpaceLink") = True Then Call Update_Table("PE_SpaceLink", "ID", "", "聚合空间链接")
    If FoundInArr(UpdateTable, "PE_SpaceMusic") = True Then Call Update_Table("PE_SpaceMusic", "ID", "", "聚合空间音乐")
    If FoundInArr(UpdateTable, "PE_SpacePhoto") = True Then Call Update_Table("PE_SpacePhoto", "ID", "", "聚合空间图片")
    If FoundInArr(UpdateTable, "PE_SpaceVisitor") = True Then Call Update_Table("PE_SpaceVisitor", "ID", "ID", "聚合空间来访")
'招聘
    If FoundInArr(UpdateTable, "PE_PositionSupplyInfo") = True Then Call Update_Table("PE_PositionSupplyInfo", "PositionSupplyInfoID", "", "申请职位表")
    If FoundInArr(UpdateTable, "PE_JobCategory") = True Then Call Update_Table("PE_JobCategory", "JobCategoryID", "", "工作类别")
    If FoundInArr(UpdateTable, "PE_Position") = True Then Call Update_Table("PE_Position", "PositionID", "", "职位表")
    If FoundInArr(UpdateTable, "PE_Resume") = True Then Call Update_Table("PE_Resume", "ResumeID", "", "简历")
    If FoundInArr(UpdateTable, "PE_SubCompany") = True Then Call Update_Table("PE_SubCompany", "SubCompanyID", "", "分公司")
    If FoundInArr(UpdateTable, "PE_WorkPlace") = True Then Call Update_Table("PE_WorkPlace", "WorkPlaceID", "", "工作地点")

    If FoundInArr(UpdateTable, "PE_Supply") = True Then Call Update_Table("PE_Supply", "SupplyID", "SkinID,TemplateID", "供求表")
    If FoundInArr(UpdateTable, "PE_Supply_Company") = True Then Call Update_Table("PE_Supply_Company", "", "", "供求公司")


    Call DelAllCache
    Conn_Old.Close
    Set Conn_Old = Nothing


    Response.Write "<script>" & vbCrLf
    Response.Write "Info_CurrentUpdate.innerHTML=""<font color='blue'>数据库迁移成功！</font>"";" & vbCrLf
    Response.Write "Info_Timer.innerHTML=""" & FormatNumber((Timer - BeginTime), 3) & """;" & vbCrLf
    Response.Write "Update_Table.style.display='none';" & vbCrLf
    Response.Write "Success_Table.style.display='';" & vbCrLf
    Response.Write "</script>" & vbCrLf


End Sub

Sub Del()
    On Error Resume Next
    Dim fso
    Set fso = CreateObject(objName_FSO)
    If fso.FileExists(Server.mappath("PE2006_DataTrans.asp")) Then
        fso.DeleteFile Server.mappath("PE2006_DataTrans.asp")
    End If
    If Err.Number <> 0 Then
        ErrMsg = ErrMsg & "<br><li>删除迁移程序（PE2006_DataTrans.asp）失败，错误原因：" & Err.Description & "<br>请手动删除此文件。"
        Err.Clear
        Exit Sub
    Else
        Response.Write "<li>删除迁移程序（PE2006_DataTrans.asp）成功！</li>"
    End If
End Sub

Sub Update_Purview()  '对目标数据库进行预处理
    On Error Resume Next
    Dim rsChannel
    Set rsChannel = Conn_Old.Execute("select ChannelDir from PE_Channel where ChannelType=1 Order by ChannelID Asc")
    Do While Not rsChannel.EOF
        If SystemDatabaseType = "SQL" Then
            Conn.Execute ("alter table PE_Admin add AdminPurview_" & rsChannel("ChannelDir") & " Int null")
        Else
            Conn.Execute ("alter table PE_Admin add COLUMN AdminPurview_" & rsChannel("ChannelDir") & " INTEGER")
        End If
        rsChannel.movenext
    Loop
    rsChannel.Close
    Set rsChannel = Nothing
End Sub

Sub Update_PE_Field()
    On Error Resume Next
    Dim SheetName, FieldName, sqlField
    rsOld.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_Old, 1, 1
    Conn.Execute("delete from PE_Field")
	rsNew.open "select * from PE_Field", Conn, 1, 3
    Do While Not rsOld.EOF
        Select Case rsOld("ModuleType")
        Case 1
            SheetName = "PE_Article"
        Case 2
            SheetName = "PE_Soft"
        Case 3
            SheetName = "PE_Photo"
        Case 5
            SheetName = "PE_Product"
        End Select
            
        FieldName = rsOld("FieldName")
        If SystemDatabaseType = "SQL" Then
            If rsOld("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 rsOld("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.Execute (sqlField)
        If Err Then
            Err.Clear
            Response.Write "<br><li>向 " & SheetName & " 表中添加自定义字段 " & FieldName & " 失败！</li>"
        Else
            rsNew.addnew
            rsNew("ChannelID") = rsOld("ChannelID") & ""
            rsNew("FieldName") = rsOld("FieldName")
            rsNew("Title") = rsOld("Title")
            rsNew("LabelName") = rsOld("LabelName")
            rsNew("Tips") = rsOld("Tips")
            rsNew("FieldType") = rsOld("FieldType")
            rsNew("DefaultValue") = rsOld("DefaultValue")
            rsNew("Options") = rsOld("Option