📄 pe2006_datatrans.asp
字号:
Response.Write " </td>" & vbCrLf
Response.Write " <td align=""right"" width=""180"" background=""http://www.powereasy.net/images/logo.gif""> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class=""tdbg"">" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <table width=""90%"" align=""center"" height=""350"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td valign=""top"">" & vbCrLf
Response.Write " <fieldset><legend>迁移进度</legend>" & vbCrLf
Response.Write " <table border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <table width=""634"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width=""240"">当前进度：<span id=""Info_CurrentPercent"" name=""Info_CurrentPercent"">0</span>%</td>" & vbCrLf
Response.Write " <td><span id=""Info_CurrentUpdate"">123</span></td>" & vbCrLf
Response.Write " <td align=""right""><span id=""Info_CurrentRecord"" name=""Info_CurrentRecord""></span></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " <table width=""634"" height=""20"" border=""0"" cellspacing=""1"" cellpadding=""1"" bgcolor=""#000000"" align=""center"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td bgcolor=""#ffffff"">" & vbCrLf
Response.Write " <table name=""PercentBar"" id=""PercentBar"" width=""0"" height=""18"" bgcolor=""green"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td></td></tr></table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " <table width=""634"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td>总体进度：<span id=""Info_TotalPercent"" name=""Info_TotalPercent"">0</span>%</td>" & vbCrLf
Response.Write " <td align=""right""><span id=""Info_TotalRecord"" name=""Info_TotalRecord""></span></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " <table width=""634"" height=""20"" border=""0"" cellspacing=""1"" cellpadding=""1"" bgcolor=""#000000"" align=""center"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td bgcolor=""#ffffff"">" & vbCrLf
Response.Write " <table name=""TotalPercentBar"" id=""TotalPercentBar"" width=""0"" height=""18"" bgcolor=""blue"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td></td></tr></table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </fieldset>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " <textarea id='UpdateInfo' rows=""11"" cols=""105"" style=""font-size: 9pt;"" readonly></textarea>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>"
Response.Write " <hr>" & vbCrLf
Response.Write " <table width=""100%"" height=""30"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td align=""center"">" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </form>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table id=""Success_Table"" style=""display:none"" width=""700"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" class=""border"">" & vbCrLf
Response.Write " <form name=""myform"" method=""post"" action=""PE2006_DataTrans.asp"">" & vbCrLf
Response.Write " <tr align=""center"" class=""topbg"">" & vbCrLf
Response.Write " <td height=""25""><strong>动易2006版 数据转换/迁移程序</strong></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=""60"" align=right>" & vbCrLf
Response.Write " <table width=""100%"" height=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-bottom: 1px solid #999999;"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <strong>迁移完成：</strong><br>" & vbCrLf
Response.Write " 成功将源数据库迁移至目标数据库！</font><br>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " <td align=""right"" width=""180"" background=""http://www.powereasy.net/images/logo.gif""> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class=""tdbg"">" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <table width=""90%"" align=""center"" height=""350"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td valign=""top"">" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " 恭喜您，从源数据库迁移至目标数据库成功！！！<br>" & vbCrLf
Response.Write " 共耗时：<span id=""Info_Timer""></span>秒。<br>" & vbCrLf
Response.Write " <font color=red>若您是直接在服务器进行迁移，则请立即删除此文件！以免带来安全隐患。</font><br><br>" & vbCrLf
Response.Write " 升级成功后，请到后台管理<font color='#FF0000'>认真仔细的</font>检查相关数据。<br>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>"
Response.Write " <hr>" & vbCrLf
Response.Write " <table width=""100%"" height=""30"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td align=""center"">" & vbCrLf
Response.Write " <input type=""hidden"" name=""Action"" value=""SelectDatabase"">" & vbCrLf
Response.Write " <input name=""delfile"" type=""button"" value="" 删除此程序 "" onclick=""location='PE2006_DataTrans.asp?Action=Del'"">" & vbCrLf
Response.Write " <input name=""close"" type=""button"" value="" 关闭此窗口 "" onclick=""javascript:onclick=window.close()"">" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </form>" & vbCrLf
Response.Write "</table>" & vbCrLf
Call Update_Purview
Call Update_PE_Field
If FoundInArr(UpdateTable, "PE_Config") = True Then Call Update_Table("PE_Config", "", "", "网站配置")
If FoundInArr(UpdateTable, "PE_Skin") = True Then Call Update_PE_Skin
If FoundInArr(UpdateTable, "PE_Template") = True Then Call Update_PE_Template
If FoundInArr(UpdateTable, "PE_Class") = True Then Call Update_Table("PE_Class", "ClassID", "SkinID,TemplateID", "网站栏目")
If FoundInArr(UpdateTable, "PE_Special") = True Then Call Update_Table("PE_Special", "SpecialID", "SkinID,TemplateID", "所有专题")
If FoundInArr(UpdateTable, "PE_Article") = True Then Call Update_Table("PE_Article", "ArticleID", "SkinID,TemplateID", "所有文章")
If FoundInArr(UpdateTable, "PE_Soft") = True Then Call Update_Table("PE_Soft", "SoftID", "SkinID,TemplateID", "所有软件")
If FoundInArr(UpdateTable, "PE_Photo") = True Then Call Update_Table("PE_Photo", "PhotoID", "SkinID,TemplateID", "所有图片")
If FoundInArr(UpdateTable, "PE_Product") = True Then Call Update_Table("PE_Product", "ProductID", "SkinID,TemplateID", "所有商品")
If FoundInArr(UpdateTable, "PE_GuestKind") = True Then Call Update_Table("PE_GuestKind", "KindID", "", "留言类别")
If FoundInArr(UpdateTable, "PE_GuestBook") = True Then Call Update_Table("PE_GuestBook", "GuestID", "", "留言")
If FoundInArr(UpdateTable, "PE_Admin") = True Then Call Update_Table("PE_Admin", "ID", "ID", "网站管理员")
If FoundInArr(UpdateTable, "PE_UserGroup") = True Then Call Update_Table("PE_UserGroup", "GroupID", "", "用户组")
If FoundInArr(UpdateTable, "PE_Label") = True Then Call Update_Table("PE_Label", "LabelID", "LabelID", "自定义标签")
If FoundInArr(UpdateTable, "PE_Comment") = True Then Call Update_Table("PE_Comment", "CommentID", "CommentID", "评论")
If FoundInArr(UpdateTable, "PE_JsFile") = True Then Call Update_Table("PE_JsFile", "ID", "ID", "JS代码")
If FoundInArr(UpdateTable, "PE_Announce") = True Then Call Update_Table("PE_Announce", "ID", "ID", "网站公告")
If FoundInArr(UpdateTable, "PE_AdZone") = True Then Call Update_Table("PE_AdZone", "ZoneID", "", "广告版位")
If FoundInArr(UpdateTable, "PE_Advertisement") = True Then Call Update_Table("PE_Advertisement", "ADID", "", "网站广告")
If FoundInArr(UpdateTable, "PE_FsKind") = True Then Call Update_Table("PE_FsKind", "KindID", "", "友情链接类别")
If FoundInArr(UpdateTable, "PE_FriendSite") = True Then Call Update_Table("PE_FriendSite", "ID", "ID", "友情链接")
If FoundInArr(UpdateTable, "PE_Vote") = True Then Call Update_Table("PE_Vote", "ID", "ID", "网站调查")
If FoundInArr(UpdateTable, "PE_Author") = True Then Call Update_Table("PE_Author", "ID", "ID", "作者")
If FoundInArr(UpdateTable, "PE_CopyFrom") = True Then Call Update_Table("PE_CopyFrom", "ID", "ID", "来源")
If FoundInArr(UpdateTable, "PE_NewKeys") = True Then Call Update_Table("PE_NewKeys", "ID", "ID", "关键字")
If FoundInArr(UpdateTable, "PE_Producer") = True Then Call Update_Table("PE_Producer", "ProducerID", "ProducerID", "生产商")
If FoundInArr(UpdateTable, "PE_Trademark") = True Then Call Update_Table("PE_Trademark", "TrademarkID", "TrademarkID", "商标")
If FoundInArr(UpdateTable, "PE_KeyLink") = True Then Call Update_Table("PE_KeyLink", "ID", "ID", "字符替换")
If FoundInArr(UpdateTable, "PE_Log") = True Then Call Update_Table("PE_Log", "LogID", "LogID", "网站日志")
If FoundInArr(UpdateTable, "PE_Favorite") = True Then Call Update_Table("PE_Favorite", "ID", "ID", "用户收藏")
If FoundInArr(UpdateTable, "PE_Message") = True Then Call Update_Table("PE_Message", "ID", "ID", "短消息")
If FoundInArr(UpdateTable, "PE_Classroom") = True Then Call Update_Table("PE_Classroom", "ID", "ID", "室场记录")
If FoundInArr(UpdateTable, "PE_Equipment") = True Then Call Update_Table("PE_Equipment", "ID", "ID", "设备记录")
If FoundInArr(UpdateTable, "PE_UsedDetail") = True Then Call Update_Table("PE_UsedDetail", "ID", "ID", "设备使用记录")
If FoundInArr(UpdateTable, "PE_Bank") = True Then Call Update_Table("PE_Bank", "BankID", "", "银行帐户")
If FoundInArr(UpdateTable, "PE_BankrollItem") = True Then Call Update_Table("PE_BankrollItem", "ItemID", "ItemID", "资金明细")
If FoundInArr(UpdateTable, "PE_Card") = True Then Call Update_Table("PE_Card", "CardID", "CardID", "充值卡")
If FoundInArr(UpdateTable, "PE_ConsumeLog") = True Then Call Update_Table("PE_ConsumeLog", "LogID", "LogID", "消费明细")
If FoundInArr(UpdateTable, "PE_OrderForm") = True Then Call Update_Table("PE_OrderForm", "OrderFormID", "", "订单")
If FoundInArr(UpdateTable, "PE_OrderFormItem") = True Then Call Update_Table("PE_OrderFormItem", "ItemID", "", "订单明细")
If FoundInArr(UpdateTable, "PE_RechargeLog") = True Then Call Update_Table("PE_RechargeLog", "LogID", "LogID", "有效期明细")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -