asp数据库连接方式大全

《asp数据库连接方式大全》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、<%'#######以下是一个类文件，下面的注解是调用类的方法################################################'#注意：如果系统不支持建立Scripting.FileSystemObject对象，那么数据库压缩功能将无法使用'#Access数据库类'#CreateDbFile建立一个Access数据库文件'#CompactDatabase压缩一个Access数据库文件'#建立对象方法:'#Seta=NewDatabaseTools'#by(萧寒雪)s.f.'#########################################

2、################################################ClassDatabaseToolsPublicfunctionCreateDBfile(byValdbFileName,byValDbVer,byValSavePath)'建立数据库文件'IfDbVeris0ThenCreateAccess97dbFile'IfDbVeris1ThenCreateAccess2000dbFileOnerrorresumeNextIfRight(SavePath,1)<>""OrRight(SavePath,1)<>"/"ThenSavePath=Trim

3、(SavePath)&""IfLeft(dbFileName,1)=""OrLeft(dbFileName,1)="/"ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName)))IfDbExists(SavePath&dbFileName)ThenResponse.Write("对不起，该数据库已经存在!")CreateDBfile=FalseElseDimCaSetCa=Server.CreateObject("ADOX.Catalog")IfErr.number<>0ThenResponse.Write("无法建立，请检查错误信

4、息"&Err.number&""&Err.Description)Err.ClearExitfunctionEndIfIfDbVer=0ThencallCa.Create("Provider=Microsoft.Jet.OLEDB.3.51;DataSource="&SavePath&dbFileName)ElsecallCa.Create("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&SavePath&dbFileName)EndIfSetCa=NothingCreateDBfile=TrueEndIfEndfunctionPublic

5、functionCompactDatabase(byValdbFileName,byValDbVer,byValSavePath)'压缩数据库文件'0为access97'1为access2000OnErrorresumenextIfRight(SavePath,1)<>""OrRight(SavePath,1)<>"/"ThenSavePath=Trim(SavePath)&""IfLeft(dbFileName,1)=""OrLeft(dbFileName,1)="/"ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName)))I

6、fDbExists(SavePath&dbFileName)ThenResponse.Write("对不起，该数据库已经存在!")CompactDatabase=FalseElseDimCdSetCd=Server.CreateObject("JRO.JetEngine")IfErr.number<>0ThenResponse.Write("无法压缩，请检查错误信息"&Err.number&""&Err.Description)Err.ClearExitfunctionEndIfIfDbVer=0ThencallCd.CompactDatabase("Provider=Microsof

7、t.Jet.OLEDB.3.51;DataSource="&SavePath&dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;DataSource="&SavePath&dbFileName&".bak.mdb;JetOLEDB;EncryptDatabase=True")ElsecallCd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data