2020-02-16 标签:asp,access,数据,备份,还原,压缩,代码,include,file,config,fun,数据库,管理,class,datas,public,sub,bk,set

") end sub '还原public sub Rt()SDPath = server.mappath(SiteDataPath) SDBPath = server.mappath(SiteDataBakPath)set Fso=Server.CreateObject("Scripting.F

2020-02-16 标签:在线,管理,数据库,class,rlmandbcls,private,sdbpath,rlconn,sdbtype,sservername,susername,spassword,public,count,sub,initialize,end,terminate,isobject

0 ThenErr.Clear()Call ErrMsg("错误提示：" Data Source=" Data Source=" Data source="SourceConn = Jet_Conn_Partial &AppPath() &strDBFileNameDestCon