纯编码实现Access数据库的建立或压缩!!

纯源代码实行access数据库的创造或收缩!! <% '#######以次是一个类文献，底下的证明是挪用类的本领################################################ '#提防：即使体例不扶助创造scripting.filesystemobject东西，那么数据库收缩功效将没辙运用 '#access 数据库类 '# createdbfile 创造一个access 数据库文献 '# compactdatabase 收缩一个access 数据库文献 '# 创造东西本领: '# set a = new databasetools '# by (萧寒雪) s.f. '######################################################################################### class databasetools public function createdbfile(byval dbfilename,byval dbver,byval savepath) '创造数据库文献 'if dbver is 0 then create access97 dbfile 'if dbver is 1 then create access2000 dbfile on error resume next if right(savepath,1)<>"\" or right(savepath,1)<>"/" then savepath = trim(savepath) & "\" if left(dbfilename,1)="\" or left(dbfilename,1)="/" then dbfilename = trim(mid(dbfilename,2,len(dbfilename))) if dbexists(savepath & dbfilename) then response.write ("抱歉，该数据库仍旧生存!") createdbfile = false else dim ca set ca = server.createobject("adox.catalog") if err.number<>0 then response.write ("没辙创造，请查看缺点消息<br>" & err.number & "<br>" & err.description) err.clear exit function end if if dbver=0 then call ca.create("provider=microsoft.jet.oledb.3.51;data source=" & savepath & dbfilename) else call ca.create("provider=microsoft.jet.oledb.4.0;data source=" & savepath & dbfilename) end if set ca = nothing createdbfile = true end if end function public function compactdatabase(byval dbfilename,byval dbver,byval savepath) '收缩数据库文献 '0 为access 97 '1 为access 2000 on error resume next if right(savepath,1)<>"\" or right(savepath,1)<>"/" then savepath = trim(savepath) & "\" if left(dbfilename,1)="\" or left(dbfilename,1)="/" then dbfilename = trim(mid(dbfilename,2,len(dbfilename))) if dbexists(savepath & dbfilename) then response.write ("抱歉，该数据库仍旧生存!") compactdatabase = false else dim cd set cd =server.createobject("jro.jetengine") if err.number<>0 then response.write ("没辙收缩，请查看缺点消息<br>" & err.number & "<br>" & err.description) err.clear exit function end if if dbver=0 then call cd.compactdatabase("provider=microsoft.jet.oledb.3.51;data source=" & savepath & dbfilename,"provider=microsoft.jet.oledb.3.51;data source=" & savepath & dbfilename & ".bak.mdb;jet oledb;encrypt database=true") else call cd.compactdatabase("provider=microsoft.jet.oledb.4.0;data source=" & savepath & dbfilename,"provider=microsoft.jet.oledb.4.0;data source=" & savepath & dbfilename & ".bak.mdb;jet oledb;encrypt database=true") end if '简略旧的数据库文献 call deletefile(savepath & dbfilename) '将收缩后的数据库文献恢复 call renamefile(savepath & dbfilename & ".bak.mdb",savepath & dbfilename) set cd = false compactdatabase = true end if end function public function dbexists(byval dbpath) '搜索数据库文献能否生存 on error resume next dim c set c = server.createobject("adodb.connection") c.open "provider=microsoft.jet.oledb.4.0;data source=" & dbpath if err.number<>0 then err.clear dbexists = false else dbexists = true end if set c = nothing end function public function apppath() '取暂时如实路途 apppath = server.mappath("./") end function public function appname() '取当出息序称呼 appname = mid(request.servervariables("script_name"),(instrrev(request.servervariables("script_name") ,"/",-1,1))+1,len(request.servervariables("script_name"))) end function public function deletefile(filespec) '简略一个文献 dim fso set fso = createobject("scripting.filesystemobject") if err.number<>0 then response.write("简略文献爆发缺点!请察看缺点消息<br>" & err.number & "<br>" & err.description) err.clear deletefile = false end if call fso.deletefile(filespec) set fso = nothing deletefile = true end function public function renamefile(filespec1,filespec2) '窜改一个文献 dim fso set fso = createobject("scripting.filesystemobject") if err.number<>0 then response.write("窜改文献名时爆发缺点!请察看缺点消息<br>" & err.number & "<br>" & err.description) err.clear renamefile = false end if call fso.copyfile(filespec1,filespec2,true) call fso.deletefile(filespec1) set fso = nothing renamefile = true end function end class %>