update_2006.asp

软件简介： 系统安装步骤： 1、安装IIS。 2、安装动易组件 3、双击PowerEasy2006.exe

        If Err.Number <> 0 Then
            Response.Write "数据库连接错误，请确认输入的动易2005 SQL版的数据库连接字符串是否正确，特别是数据库服务器的IP地址。"
            Exit Function
        End If
    End If
    CheckDatabase = True
End Function

Sub SelectTable()
    If CheckDatabase() = False Then Exit Sub
    Response.Write "<table 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 "            &nbsp;&nbsp;请选择要升级的数据库内容。" & vbCrLf
    Response.Write "          </td>" & vbCrLf
    Response.Write "          <td align=""right"" width=""180"" background=""http://www.powereasy.net/images/logo.gif"">&nbsp;</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 "            <fieldset><legend>选择升级内容</legend>" & vbCrLf
    Response.Write "            <table width=""650"" border=""0"" cellpadding=""0"" cellspacing=""8"">" & vbCrLf
    Response.Write "              <tr>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Config"" checked>网站配置</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Skin"" checked>网站风格</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Template"" checked>网站模板</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Channel"" checked>网站频道</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Class"" checked>网站栏目</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Special"" checked>所有专题</td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "              <tr>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Article"" checked>所有文章</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Soft"" checked>所有软件</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Photo"" checked>所有图片</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Product"" checked>所有商品</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_GuestKind"" checked>留言类别</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_GuestBook"" checked>网站留言</td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "              <tr>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Admin"" checked>网站管理员</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_UserGroup"" checked>用户组</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_User"" checked>会员记录</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Label"" checked>自定义标签</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Comment"" checked>评论</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_JsFile"" checked>ＪＳ数据</td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Announce"" checked>网站公告</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_AdZone"" checked>广告版位</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Advertisement"" checked>网站广告</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_FsKind"" checked>友情链接类别</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_FriendSite"" checked>友情链接</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Vote"" checked>网站调查</td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "              <tr>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Author"" checked>作者</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_CopyFrom"" checked>来源</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_NewKeys"" checked>关键字</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Producer"" checked>生产商</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Trademark"" checked>商标</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_KeyLink"" checked>字符替换</td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "              <tr>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Log"" checked>网站日志</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Favorite"" checked>用户收藏</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Message"" checked>短消息</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Classroom"" checked>室场记录</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Equipment"" checked>设备记录</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_UsedDetail"" checked>设备使用记录</td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "              <tr>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Bank"" checked>银行帐户</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_BankrollItem"" checked>资金明细</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Card"" checked>充值卡</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_ConsumeLog"" checked>消费明细</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_OrderForm"" checked>订单</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_OrderFormItem"" checked>订单明细</td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "              <tr>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_DeliverType"" checked>送货方式</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_DeliverItem"" checked>发退货记录</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Payment"" checked>在线支付记录</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_PaymentType"" checked>付款方式</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_PresentProject"" checked>促销方案</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_TransferItem"" checked>订单过户记录</td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "              <tr>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Item"" checked>采集项目</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Filters"" checked>采集过滤</td>" & vbCrLf
    Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_HistrolyNews"" checked>采集历史记录</td>" & vbCrLf
    Response.Write "                <td width=""16%""> </td>" & vbCrLf
    Response.Write "                <td width=""16%""> </td>" & vbCrLf
    Response.Write "                <td width=""16%""> </td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "            </table>" & vbCrLf
    Response.Write "            </fieldset>" & 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 name=""db_access"" type=""hidden"" value=""" & db_access & """>" & vbCrLf
    Response.Write "            <input name=""db_sql"" type=""hidden"" value=""" & db_sql & """>" & vbCrLf
    Response.Write "            <input name=""db_type"" type=""hidden"" value=""" & db_type & """>" & vbCrLf
    Response.Write "            <input name=""Action"" type=""hidden"" value=""Update"">" & vbCrLf
    Response.Write "            <input name=""PrevStep"" type=""button"" value="" 上一步 "" onclick=""history.go(-1)"">" & vbCrLf
    Response.Write "            <input name=""StartUpdate"" type=""submit"" value=""开始升级"">" & 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
End Sub

Sub Update()
    BeginTime = Timer
    If CheckDatabase() = False Then Exit Sub

    UpdateTable = Trim(request("UpdateTable"))
    TotalRecordNum = 0
    If InStr(UpdateTable, ",") > 0 Then
        Dim arrUpdateTable, intTemp
        arrUpdateTable = Split(UpdateTable, ",")
        For intTemp = 0 To UBound(arrUpdateTable)
            TotalRecordNum = TotalRecordNum + GetRecordNum(Trim(arrUpdateTable(intTemp)))
        Next
    Else
        TotalRecordNum = GetRecordNum(Trim(UpdateTable))
    End If

    Response.Write "<table id=""Update_Table"" style=""display:"" 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 "            &nbsp;&nbsp;升级过程中请勿刷新页面或关闭窗口！</font><br>" & vbCrLf
    Response.Write "          </td>" & vbCrLf
    Response.Write "          <td align=""right"" width=""180"" background=""http://www.powereasy.net/images/logo.gif"">&nbsp;</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