<%
Sub SubdoHistory
If Application("Beian_ver")="3.1" Then
If nowtime="" Then nowtime=now


conn.Execute "insert into FreeHost.FreeHost_Beian_UP_History select username,opname,optime,IspZtid,Dwmc,Dwxz,Tzr,Txdz,Shengid,Shiid,Xianid,Xxdz,Zjlx,Zjhm,Zjzs,Fzr_xm,Fzr_dhhm ,Fzr_sjhm,Fzr_dzyj,Msn,Qq,Fzr_zjlx,Fzr_zjhm,Bbfs ,Bz,uptype,Ztbah,Ztid,ICPmm,Hsjg ,Hsrxm,Hssj datetime,Bbdw ,Hsyj,Cwxx ,Zslj,Scbbsj datetime,Zjxgsj datetime,Zsyxq datetime,Shsj datetime,IsBGBA,BGBAstatus,IsXZBA,XZBAstatus,IsZXBA,ZXBAstatus,Zxly ,Zxlybz,XZBA_XML_ID,BGBA_XML_ID,ZXBA_XML_ID,HSJG_XML_ID,IsHSJG,HSJGstatus,Hsff,AddisOk,ChisOk,WaitHS,ZXisOk,Jgdm,BGJgdm,ZXBAJgdm,LocalHSOK,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus,ZT_ZJ_ZB,ZT_ZJ_FZR,ZT_ZJ_ZB_BZ,ZT_ZJ_FZR_BZ,ChisOk_ZJ,WaitHS_ZJ,LocalHSOK_ZJ,ZJ_XML_ID,Hsjg_ZJ,Hsrxm_ZJ,Hssj_ZJ,Hsff_ZJ,Hsyj_ZJ,Cwxx_ZJ,status_ZJ,IsBGZJ,BGZJstatus,ZT_ZJ_FZR_2,ZT_ZJ_FZR_BZ_2,ZT_ZJ_FZR_3,ZT_ZJ_FZR_BZ_3 from FreeHost.FreeHost_Beian_UP where IspZtid="&IspZtid&""
conn.Execute "update FreeHost.FreeHost_Beian_UP set historystatus='"&historystatus&"' where IspZtid="&IspZtid&""'同步主表
conn.Execute "insert into FreeHost.FreeHost_Beian_Wz_xx_History select username,opname,optime ,localZtid ,IspWzid ,Wzmc,Fzr_xm,Fzr_dhhm ,Fzr_sjhm,Fzr_dzyj,Msn,Qq,Fzr_zjlx ,Fzr_zjhm,Syurl,Wz_Bz,Fwnr_id_1,Fwnr_id_2,Fwnr_id_3,Fwnr_id_4,Nrlx_id_1,Qzsph_1,Spwj_1 image,Nrlx_id_2,Qzsph_2,Spwj_2 image,Nrlx_id_3,Qzsph_3,Spwj_3 image,Nrlx_id_4,Qzsph_4,Spwj_4 image,Nrlx_id_5,Qzsph_5,Spwj_5 image,Nrlx_id_6,Qzsph_6,Spwj_6 image,Nrlx_id_7,Qzsph_7,Spwj_7 image,Nrlx_id_8,Qzsph_8,Spwj_8 image,Nrlx_id_9,Qzsph_9,Spwj_9 image,Nrlx_id_10,Qzsph_10,Spwj_10 image,Wzid ,IsXZWZ,XZWZstatus,Wzbah,Zjxgsj datetime,Scbbsj datetime,IsXZJR,IsZXBA,ZXBAstatus,IdZXBA ,ZXWZ_XML_ID ,XZBAstatus,IsXZWZ_New,IsXZJR_New,Fwnr_id_5,Fwnr_id_6,Fwnr_id_7,Fwnr_id_8,Fwnr_id_9,Fwnr_id_10,Fwnr_id_11,Fwnr_id_12,Fwnr_id_13,Fwnr_id_14,Fwnr_id_15,Fwnr_id_16,Fwnr_id_17,Fwnr_id_18,Fwnr_id_19,Fwnr_id_20,Fwnr_id_21,Fwnr_id_22,Fwnr_id_23,Fwnr_id_24,Fwnr_id_25,Fwnr_id_26,Fwnr_id_27,Fwnr_id_28,Ztbah,Ztid ,ICPmm,ChisOk,WaitHS,Hsjg ,Hsrxm,Hssj datetime,Hsff,Hsyj,Cwxx,XZWZ_XML_ID ,Bz,Zxly ,Zxlybz,ZXisOk,XZWZJgdm,ZXWZJgdm,LocalHSOK,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus,WZ_ZJ_FZR,WZ_ZJ_JP,WZ_ZJ_FZR_BZ,WZ_ZJ_JP_BZ,ChisOk_ZJ,WaitHS_ZJ,LocalHSOK_ZJ,ZJ_XML_ID,Hsjg_ZJ,Hsrxm_ZJ,Hssj_ZJ,Hsff_ZJ,Hsyj_ZJ,Cwxx_ZJ,status_ZJ,WZ_ZJ_JY,WZ_ZJ_JY_BZ,Yylb_id_1,Yylb_id_2,Yylb_id_3,Yylb_id_4,Yylb_id_5,Yylb_id_6,Yylb_id_7,Yylb_id_8,Yylb_id_9,Yylb_id_10,Yylb_id_11,Yylb_id_12,Yylb_id_13,Yylb_id_14,Yylb_id_15,Yylb_id_16,Yylb_id_17,WZ_ZJ_FZR_2,WZ_ZJ_FZR_BZ_2,WZ_ZJ_FZR_3,WZ_ZJ_FZR_BZ_3,WZ_ZJ_FZR_4,WZ_ZJ_FZR_BZ_4 from FreeHost.FreeHost_Beian_Wz_xx where localZtid="&IspZtid&""
conn.Execute "insert into FreeHost.FreeHost_Beian_Ym_xx_History select username,opname,optime ,locaWZid ,IspYmid ,Ym,status,Ymid ,localZtid ,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus from FreeHost.FreeHost_Beian_Ym_xx where localZtid="&IspZtid&""
conn.Execute "insert into FreeHost.FreeHost_Beian_Jr_xx_History select username,opname,optime,locaWZid ,IspJrid ,Fbdd,Jrfs_1 ,Jrfs_2 ,Jrfs_3 ,Jrfs_4,Jrid ,Ispid ,IsXZJR,XZJRstatus,XZJR_XML_ID ,IsZXBA,ZXBAstatus,IsXZWZ_New,ZXJR_XML_ID ,localZtid ,ICPmm,ChisOk,WaitHS,Hsjg ,Hsrxm,Hssj datetime,Hsff,Hsyj,Cwxx,XZWZ_XML_ID ,Bz,Wzbah,Zxly ,Zxlybz,ZXisOk,XZJRJgdm,ZXJRJgdm,LocalHSOK,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus from FreeHost.FreeHost_Beian_Jr_xx where localZtid="&IspZtid&""
conn.Execute "insert into FreeHost.FreeHost_Beian_Ip_xx_History select username,opname,optime,locaJrid ,IspIpid ,Qsip ,Zzip ,status,Ipid ,localZtid ,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus from FreeHost.FreeHost_Beian_Ip_xx where localZtid="&IspZtid&""



else
If Application("Beian_ver")="3.0" Then
If nowtime="" Then nowtime=now
conn.Execute "insert into FreeHost.FreeHost_Beian_UP_History select username,opname,optime,IspZtid,Dwmc,Dwxz,Tzr,Txdz,Shengid,Shiid,Xianid,Xxdz,Zjlx,Zjhm,Zjzs,Fzr_xm,Fzr_dhhm ,Fzr_sjhm,Fzr_dzyj,Msn,Qq,Fzr_zjlx,Fzr_zjhm,Bbfs ,Bz,uptype,Ztbah,Ztid,ICPmm,Hsjg ,Hsrxm,Hssj datetime,Bbdw ,Hsyj,Cwxx ,Zslj,Scbbsj datetime,Zjxgsj datetime,Zsyxq datetime,Shsj datetime,IsBGBA,BGBAstatus,IsXZBA,XZBAstatus,IsZXBA,ZXBAstatus,Zxly ,Zxlybz,XZBA_XML_ID,BGBA_XML_ID,ZXBA_XML_ID,HSJG_XML_ID,IsHSJG,HSJGstatus,Hsff,AddisOk,ChisOk,WaitHS,ZXisOk,Jgdm,BGJgdm,ZXBAJgdm,LocalHSOK,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus,ZT_ZJ_ZB,ZT_ZJ_FZR,ZT_ZJ_ZB_BZ,ZT_ZJ_FZR_BZ,ChisOk_ZJ,WaitHS_ZJ,LocalHSOK_ZJ,ZJ_XML_ID,Hsjg_ZJ,Hsrxm_ZJ,Hssj_ZJ,Hsff_ZJ,Hsyj_ZJ,Cwxx_ZJ,status_ZJ,IsBGZJ,BGZJstatus from FreeHost.FreeHost_Beian_UP where IspZtid="&IspZtid&""
conn.Execute "update FreeHost.FreeHost_Beian_UP set historystatus='"&historystatus&"' where IspZtid="&IspZtid&""'同步主表
conn.Execute "insert into FreeHost.FreeHost_Beian_Wz_xx_History select username,opname,optime ,localZtid ,IspWzid ,Wzmc,Fzr_xm,Fzr_dhhm ,Fzr_sjhm,Fzr_dzyj,Msn,Qq,Fzr_zjlx ,Fzr_zjhm,Syurl,Wz_Bz,Fwnr_id_1,Fwnr_id_2,Fwnr_id_3,Fwnr_id_4,Nrlx_id_1,Qzsph_1,Spwj_1 image,Nrlx_id_2,Qzsph_2,Spwj_2 image,Nrlx_id_3,Qzsph_3,Spwj_3 image,Nrlx_id_4,Qzsph_4,Spwj_4 image,Nrlx_id_5,Qzsph_5,Spwj_5 image,Nrlx_id_6,Qzsph_6,Spwj_6 image,Nrlx_id_7,Qzsph_7,Spwj_7 image,Nrlx_id_8,Qzsph_8,Spwj_8 image,Nrlx_id_9,Qzsph_9,Spwj_9 image,Nrlx_id_10,Qzsph_10,Spwj_10 image,Wzid ,IsXZWZ,XZWZstatus,Wzbah,Zjxgsj datetime,Scbbsj datetime,IsXZJR,IsZXBA,ZXBAstatus,IdZXBA ,ZXWZ_XML_ID ,XZBAstatus,IsXZWZ_New,IsXZJR_New,Fwnr_id_5,Fwnr_id_6,Fwnr_id_7,Fwnr_id_8,Fwnr_id_9,Fwnr_id_10,Fwnr_id_11,Fwnr_id_12,Fwnr_id_13,Fwnr_id_14,Fwnr_id_15,Fwnr_id_16,Fwnr_id_17,Fwnr_id_18,Fwnr_id_19,Fwnr_id_20,Fwnr_id_21,Fwnr_id_22,Fwnr_id_23,Fwnr_id_24,Fwnr_id_25,Fwnr_id_26,Fwnr_id_27,Fwnr_id_28,Ztbah,Ztid ,ICPmm,ChisOk,WaitHS,Hsjg ,Hsrxm,Hssj datetime,Hsff,Hsyj,Cwxx,XZWZ_XML_ID ,Bz,Zxly ,Zxlybz,ZXisOk,XZWZJgdm,ZXWZJgdm,LocalHSOK,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus,WZ_ZJ_FZR,WZ_ZJ_JP,WZ_ZJ_FZR_BZ,WZ_ZJ_JP_BZ,ChisOk_ZJ,WaitHS_ZJ,LocalHSOK_ZJ,ZJ_XML_ID,Hsjg_ZJ,Hsrxm_ZJ,Hssj_ZJ,Hsff_ZJ,Hsyj_ZJ,Cwxx_ZJ,status_ZJ,WZ_ZJ_JY,WZ_ZJ_JY_BZ,Yylb_id_1,Yylb_id_2,Yylb_id_3,Yylb_id_4,Yylb_id_5,Yylb_id_6,Yylb_id_7,Yylb_id_8,Yylb_id_9,Yylb_id_10,Yylb_id_11,Yylb_id_12,Yylb_id_13,Yylb_id_14,Yylb_id_15,Yylb_id_16,Yylb_id_17 from FreeHost.FreeHost_Beian_Wz_xx where localZtid="&IspZtid&""
conn.Execute "insert into FreeHost.FreeHost_Beian_Ym_xx_History select username,opname,optime ,locaWZid ,IspYmid ,Ym,status,Ymid ,localZtid ,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus from FreeHost.FreeHost_Beian_Ym_xx where localZtid="&IspZtid&""
conn.Execute "insert into FreeHost.FreeHost_Beian_Jr_xx_History select username,opname,optime,locaWZid ,IspJrid ,Fbdd,Jrfs_1 ,Jrfs_2 ,Jrfs_3 ,Jrfs_4,Jrid ,Ispid ,IsXZJR,XZJRstatus,XZJR_XML_ID ,IsZXBA,ZXBAstatus,IsXZWZ_New,ZXJR_XML_ID ,localZtid ,ICPmm,ChisOk,WaitHS,Hsjg ,Hsrxm,Hssj datetime,Hsff,Hsyj,Cwxx,XZWZ_XML_ID ,Bz,Wzbah,Zxly ,Zxlybz,ZXisOk,XZJRJgdm,ZXJRJgdm,LocalHSOK,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus from FreeHost.FreeHost_Beian_Jr_xx where localZtid="&IspZtid&""
conn.Execute "insert into FreeHost.FreeHost_Beian_Ip_xx_History select username,opname,optime,locaJrid ,IspIpid ,Qsip ,Zzip ,status,Ipid ,localZtid ,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus from FreeHost.FreeHost_Beian_Ip_xx where localZtid="&IspZtid&""

else
If nowtime="" Then nowtime=now
conn.Execute "insert into FreeHost.FreeHost_Beian_UP_History select username,opname,optime,IspZtid,Dwmc,Dwxz,Tzr,Txdz,Shengid,Shiid,Xianid,Xxdz,Zjlx,Zjhm,Zjzs,Fzr_xm,Fzr_dhhm ,Fzr_sjhm,Fzr_dzyj,Msn,Qq,Fzr_zjlx,Fzr_zjhm,Bbfs ,Bz,uptype,Ztbah,Ztid,ICPmm,Hsjg ,Hsrxm,Hssj datetime,Bbdw ,Hsyj,Cwxx ,Zslj,Scbbsj datetime,Zjxgsj datetime,Zsyxq datetime,Shsj datetime,IsBGBA,BGBAstatus,IsXZBA,XZBAstatus,IsZXBA,ZXBAstatus,Zxly ,Zxlybz,XZBA_XML_ID,BGBA_XML_ID,ZXBA_XML_ID,HSJG_XML_ID,IsHSJG,HSJGstatus,Hsff,AddisOk,ChisOk,WaitHS,ZXisOk,Jgdm,BGJgdm,ZXBAJgdm,LocalHSOK,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus,ZT_ZJ_ZB,ZT_ZJ_FZR,ZT_ZJ_ZB_BZ,ZT_ZJ_FZR_BZ,ChisOk_ZJ,WaitHS_ZJ,LocalHSOK_ZJ,ZJ_XML_ID,Hsjg_ZJ,Hsrxm_ZJ,Hssj_ZJ,Hsff_ZJ,Hsyj_ZJ,Cwxx_ZJ,status_ZJ from FreeHost.FreeHost_Beian_UP where IspZtid="&IspZtid&""
conn.Execute "update FreeHost.FreeHost_Beian_UP set historystatus='"&historystatus&"' where IspZtid="&IspZtid&""'同步主表
conn.Execute "insert into FreeHost.FreeHost_Beian_Wz_xx_History select username,opname,optime ,localZtid ,IspWzid ,Wzmc,Fzr_xm,Fzr_dhhm ,Fzr_sjhm,Fzr_dzyj,Msn,Qq,Fzr_zjlx ,Fzr_zjhm,Syurl,Wz_Bz,Fwnr_id_1,Fwnr_id_2,Fwnr_id_3,Fwnr_id_4,Nrlx_id_1,Qzsph_1,Spwj_1 image,Nrlx_id_2,Qzsph_2,Spwj_2 image,Nrlx_id_3,Qzsph_3,Spwj_3 image,Nrlx_id_4,Qzsph_4,Spwj_4 image,Nrlx_id_5,Qzsph_5,Spwj_5 image,Nrlx_id_6,Qzsph_6,Spwj_6 image,Nrlx_id_7,Qzsph_7,Spwj_7 image,Nrlx_id_8,Qzsph_8,Spwj_8 image,Nrlx_id_9,Qzsph_9,Spwj_9 image,Nrlx_id_10,Qzsph_10,Spwj_10 image,Wzid ,IsXZWZ,XZWZstatus,Wzbah,Zjxgsj datetime,Scbbsj datetime,IsXZJR,IsZXBA,ZXBAstatus,IdZXBA ,ZXWZ_XML_ID ,XZBAstatus,IsXZWZ_New,IsXZJR_New,Fwnr_id_5,Fwnr_id_6,Fwnr_id_7,Fwnr_id_8,Fwnr_id_9,Fwnr_id_10,Fwnr_id_11,Fwnr_id_12,Fwnr_id_13,Fwnr_id_14,Fwnr_id_15,Fwnr_id_16,Fwnr_id_17,Fwnr_id_18,Fwnr_id_19,Fwnr_id_20,Fwnr_id_21,Fwnr_id_22,Fwnr_id_23,Fwnr_id_24,Fwnr_id_25,Fwnr_id_26,Fwnr_id_27,Fwnr_id_28,Ztbah,Ztid ,ICPmm,ChisOk,WaitHS,Hsjg ,Hsrxm,Hssj datetime,Hsff,Hsyj,Cwxx,XZWZ_XML_ID ,Bz,Zxly ,Zxlybz,ZXisOk,XZWZJgdm,ZXWZJgdm,LocalHSOK,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus,WZ_ZJ_FZR,WZ_ZJ_JP,WZ_ZJ_FZR_BZ,WZ_ZJ_JP_BZ,ChisOk_ZJ,WaitHS_ZJ,LocalHSOK_ZJ,ZJ_XML_ID,Hsjg_ZJ,Hsrxm_ZJ,Hssj_ZJ,Hsff_ZJ,Hsyj_ZJ,Cwxx_ZJ,status_ZJ,WZ_ZJ_JY,WZ_ZJ_JY_BZ from FreeHost.FreeHost_Beian_Wz_xx where localZtid="&IspZtid&""
conn.Execute "insert into FreeHost.FreeHost_Beian_Ym_xx_History select username,opname,optime ,locaWZid ,IspYmid ,Ym,status,Ymid ,localZtid ,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus from FreeHost.FreeHost_Beian_Ym_xx where localZtid="&IspZtid&""
conn.Execute "insert into FreeHost.FreeHost_Beian_Jr_xx_History select username,opname,optime,locaWZid ,IspJrid ,Fbdd,Jrfs_1 ,Jrfs_2 ,Jrfs_3 ,Jrfs_4,Jrid ,Ispid ,IsXZJR,XZJRstatus,XZJR_XML_ID ,IsZXBA,ZXBAstatus,IsXZWZ_New,ZXJR_XML_ID ,localZtid ,ICPmm,ChisOk,WaitHS,Hsjg ,Hsrxm,Hssj datetime,Hsff,Hsyj,Cwxx,XZWZ_XML_ID ,Bz,Wzbah,Zxly ,Zxlybz,ZXisOk,XZJRJgdm,ZXJRJgdm,LocalHSOK,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus from FreeHost.FreeHost_Beian_Jr_xx where localZtid="&IspZtid&""
conn.Execute "insert into FreeHost.FreeHost_Beian_Ip_xx_History select username,opname,optime,locaJrid ,IspIpid ,Qsip ,Zzip ,status,Ipid ,localZtid ,'"&nowtime&"' as historytime,'"&historystatus&"' as historystatus from FreeHost.FreeHost_Beian_Ip_xx where localZtid="&IspZtid&""
End If
End if
End Sub
%>