pe2006_datatrans.asp

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

    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
	'star
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_AreaCollection"" checked>区域采集表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_City"" checked>邮政编码</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Client"" 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_Company"" checked>公司表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_ComplainItem"" checked>投诉项目</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Contacter"" checked>联系人表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Country"" checked>国家表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_DeliverCharge"" checked>运费标准</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Dictionary"" 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_DownError"" checked>下载报错</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_DownServer"" checked>镜像服务器</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Friend"" checked>好友表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_HouseArea"" checked>房产区域表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_HouseConfig"" checked>房产栏目配置</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_HouseCS"" 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_HouseCZ"" checked>出租信息表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_HouseHZ"" checked>合租信息表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_HouseQG"" checked>求购信息表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_HouseQZ"" checked>求租信息表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_InfoS"" checked>专题关联表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_InvoiceItem"" 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_JobCategory"" checked>工作类别</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Page"" checked>自定义页面</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_PageClass"" checked>自定义页分类</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Position"" checked>地区表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_PositionSupplyInfo"" checked>申请职位表</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Province"" 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_RechargeLog"" checked>有效期明细</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Resume"" checked>简历</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_ServiceItem"" checked>服务记录</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Space"" checked>聚合空间</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_SpaceBook"" checked>聚合空间图书</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_SpaceComment"" 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_SpaceDiary"" checked>聚合空间日志</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_SpaceKind"" checked>聚合空间分类</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_SpaceLink"" checked>聚合空间链接</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_SpaceMusic"" checked>聚合空间音乐</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_SpacePhoto"" checked>聚合空间图片</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_SpaceVisitor"" 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_SubCompany"" checked>分公司</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Supply"" checked>供求</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_Supply_Company"" checked>供求公司</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_TemplateProject"" checked>模板方案</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_WorkPlace"" checked>工作地点</td>" & vbCrLf
	Response.Write "                <td width=""16%""><input name=""UpdateTable"" type=""checkbox"" id=""UpdateTable"" value=""PE_ShoppingCarts"" checked>购物车表</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=""RefreshNum"" type=""hidden"" value=""" & Trim(request("RefreshNum")) & """>" & 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
	RefreshNum=PE_Clng(Trim(request("RefreshNum")))
	If RefreshNum<10 then RefreshNum=10
    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=""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 "            &nbsp;&nbsp;迁移过程中请勿刷新页面或关闭窗口！</font><br>" & vbCrLf