📄 update_2006.asp
字号:
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=""Update_2006.asp"">" & vbCrLf
Response.Write " <tr align=""center"" class=""topbg"">" & vbCrLf
Response.Write " <td height=""25""><strong>动易 2005版 To 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 " 成功将动易2005版数据库升级至2006版！</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 " 恭喜您，从动易2005版的数据库升级到动易2006版成功！！！<br>" & vbCrLf
Response.Write " 共耗时：<span id=""Info_Timer""></span>秒。<br>" & vbCrLf
Response.Write " <font color=red>若您是直接在服务器进行升级，则请立即删除此文件！以免带来安全隐患。</font><br><br>" & vbCrLf
Response.Write " 您还需要继续完成以下工作："
Response.Write " <br>①运行install.asp进行系统安装并配置相关网站信息。" & vbCrLf
Response.Write " <br>②后台——系统设置——网站信息配置，检查各项网站配置情况。" & vbCrLf
Response.Write " <br>③后台——管理员管理，将系统默认使用的管理员“Admin”删除，或者修改其密码。" & vbCrLf
Response.Write " <br>④后台——系统设置——网站风格管理，将其中一个风格设为默认风格。即使不想改变默认风格，也需要做此步。" & vbCrLf
Response.Write " <br>⑤后台——各个频道——栏目管理，刷新栏目JS——专题管理，刷新专题JS——JS文件管理，刷新所有JS文件。" & vbCrLf
Response.Write " <br>⑥后台——系统设置——频道管理，如果有自定义的频道，请刷新频道文件，并检查各频道的参数设置情况。" & vbCrLf
Response.Write " <br>⑦将2005版中各频道的上传文件复制到2006版的相关频道中。" & vbCrLf
Response.Write " <br>⑧如果网站启用了生成HTML功能的，请重新生成所有页面。" & 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 " <input type=""hidden"" name=""Action"" value=""SelectDatabase"">" & vbCrLf
Response.Write " <input name=""delfile"" type=""button"" value="" 删除此程序 "" onclick=""location='Update_2006.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_Preview
Call Update_PE_Field
If FoundInArr(UpdateTable, "PE_Config") = True Then Call Update_Table("PE_Config", "", "ShowRunTime,SessionTimeout,RegPresent,MoneyExchangePoint,Watermark_Text_Position", "网站配置")
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", "Setting,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", "Author,CopyFrom,SpecialID,Hot,Passed,ReadPoint,SkinID,TemplateID", "所有文章")
If FoundInArr(UpdateTable, "PE_Soft") = True Then Call Update_Table("PE_Soft", "SoftID", "Author,CopyFrom,SpecialID,Passed,SoftPoint,Copymoney,IsPayed,Beneficiary,SkinID,TemplateID", "所有软件")
If FoundInArr(UpdateTable, "PE_Photo") = True Then Call Update_Table("PE_Photo", "PhotoID", "Author,CopyFrom,SpecialID,Passed,PhotoPoint,Copymoney,IsPayed,Beneficiary,SkinID,TemplateID", "所有图片")
If FoundInArr(UpdateTable, "PE_Product") = True Then Call Update_Table("PE_Product", "ProductID", "SpecialID,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", "LastReplyTime,GuestReplyDatetime", "留言")
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,Config", "自定义标签")
If FoundInArr(UpdateTable, "PE_Comment") = True Then Call Update_Table("PE_Comment", "CommentID", "CommentID,ChannelID,ClassID", "评论")
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,UserName,NiceName,TemplateID", "作者")
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,UserID", "资金明细")
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,ChannelID", "消费明细")
If FoundInArr(UpdateTable, "PE_OrderForm") = True Then Call Update_Table("PE_OrderForm", "OrderFormID", "UserID", "订单")
If FoundInArr(UpdateTable, "PE_OrderFormItem") = True Then Call Update_Table("PE_OrderFormItem", "ItemID", "", "订单明细")
If FoundInArr(UpdateTable, "PE_DeliverType") = True Then Call Update_Table("PE_DeliverType", "TypeID", "Charge", "送货方式")
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", "UserID", "在线支付记录")
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_Item") = True Then Call Update_Table("PE_Item", "ItemID", "ItemID,SpecialID,ReadPoint,CollecOrder,Passed", "采集项目")
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", "ShowMyStyle,EnableCheck,DefaultSkinID,Template_Index", "网站频道")
If FoundInArr(UpdateTable, "PE_User") = True Then Call Update_PE_User
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("Update_2006.asp")) Then
fso.DeleteFile Server.mappath("Update_2006.asp")
End If
If Err.Number <> 0 Then
ErrMsg = ErrMsg & "<br><li>删除升级程序（Update_2006.asp）失败，错误原因：" & Err.Description & "<br>请手动删除此文件。"
Err.Clear
Exit Sub
Else
Response.Write "<li>删除升级程序（Update_2006.asp）成功！</li>"
End If
End Sub
Sub Update_Preview() '对原2005版的数据库进行预处理
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
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -