资源描述:
《ASP编程技巧大全.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、ASP编程技巧大全<%''#######以下是一个类文件,下面的注解是调用类的方法################################################''#注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用''#Access数据库类''#CreateDbFile建立一个Access数据库文件''#CompactDatabase压缩一个Access数据库文件''#建立对象方法:''#Seta=NewDatabaseTools''#by(萧寒雪)s.f.''##
2、#######################################################################################ClassDatabaseToolsPublicfunctionCreateDBfile(byValdbFileName,byValDbVer,byValSavePath)''建立数据库文件''IfDbVeris0ThenCreateAccess97dbFile''IfDbVeris1ThenCreateAccess2000dbFileOnerrorresumeNextIf
3、Right(SavePath,1)<>""OrRight(SavePath,1)<>"/"ThenSavePath=Trim(SavePath)&""IfLeft(dbFileName,1)=""OrLeft(dbFileName,1)="/"ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName)))IfDbExists(SavePath&dbFileName)ThenResponse.Write("对不起,该数据库已经存在!")CreateDBfile=FalseElseDimCaSet
4、Ca=Server.CreateObject("ADOX.Catalog")IfErr.number<>0ThenResponse.Write("无法建立,请检查错误信息"&Err.number&""&Err.Description)Err.ClearExitfunctionEndIfIfDbVer=0ThencallCa.Create("Provider=Microsoft.Jet.OLEDB.3.51;DataSource="&SavePath&dbFileName)ElsecallCa.Create("Provider=Microsoft
5、.Jet.OLEDB.4.0;DataSource="&SavePath&dbFileName)EndIfSetCa=NothingCreateDBfile=TrueEndIfEndfunctionPublicfunctionCompactDatabase(byValdbFileName,byValDbVer,byValSavePath)''压缩数据库文件''0为access97''1为access2000OnErrorresumenextIfRight(SavePath,1)<>""OrRight(SavePath,1)<>"/"ThenS
6、avePath=Trim(SavePath)&""IfLeft(dbFileName,1)=""OrLeft(dbFileName,1)="/"ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName)))IfDbExists(SavePath&dbFileName)ThenResponse.Write("对不起,该数据库已经存在!")CompactDatabase=FalseElseDimCdSetCd=Server.CreateObject("JRO.JetEngine")IfErr.num
7、ber<>0ThenResponse.Write("无法压缩,请检查错误信息"&Err.number&""&Err.Description)Err.ClearExitfunctionEndIfIfDbVer=0ThencallCd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;DataSource="&SavePath&dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;DataSource="&SavePath&dbFileName&".bak.m
8、db;JetOLEDB;EncryptDatabase=True")ElsecallCd.CompactDatabase("Provider=Micr