在线管理数据库 类
0 ThenErr.Clear()Call ErrMsg("错误提示:" Data Source=" Data Source=" Data source="SourceConn = Jet_Conn_Partial &AppPath() &strDBFileNameDestCon
0 ThenErr.Clear()Call ErrMsg("错误提示:" Data Source=" Data Source=" Data source="SourceConn = Jet_Conn_Partial &AppPath() &strDBFileNameDestCon
dim IISCount,IISObject,logfiledir,fso,LogFilePeriods,inputtime,site,sites,i,j,sitename(999),WshShell 'on error resume next set WshShell = WScript.Crea