ASP数据库操作大全及常用.doc

ASP数据库操作大全及常用.doc

ID:51686311

大小:112.00 KB

页数:37页

时间:2020-03-15

ASP数据库操作大全及常用.doc_第1页
ASP数据库操作大全及常用.doc_第2页
ASP数据库操作大全及常用.doc_第3页
ASP数据库操作大全及常用.doc_第4页
ASP数据库操作大全及常用.doc_第5页
资源描述:

《ASP数据库操作大全及常用.doc》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、ASP数据库操作大全大

2、中

3、小[2006/03/1912:52

4、分类:Asp相关

5、byNetFetch]ASP数据库操作类:包括Asp建立数据库文件,Asp压缩数据库文件,Asp查找数据库文件以及一些有用的asp编程的例子<%'#######以下是一个类文件,下面的注解是调用类的方法################################################'#注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用'#Access数据库类'#CreateDbFile建立一个Access数据库文件'#Compact

6、Database压缩一个Access数据库文件'#建立对象方法:'#Seta=NewDatabaseTools'#########################################################################################ClassDatabaseToolsPublicfunctionCreateDBfile(byValdbFileName,byValDbVer,byValSavePath)'建立数据库文件'IfDbVeris0ThenCreateAccess97dbFile'IfDbVeris1ThenCreateAc

7、cess2000dbFileOnerrorresumeNextIfRight(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=FalseElse

8、DimCaSetCa=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.Jet.OLEDB.4.0

9、;DataSource="&SavePath&dbFileName)EndIfSetCa=NothingCreateDBfile=TrueEndIfEndfunctionPublicfunctionCompactDatabase(byValdbFileName,byValDbVer,byValSavePath)'压缩数据库文件'0为access97'1为access2000OnErrorresumenextIfRight(SavePath,1)<>""orRight(SavePath,1)<>"/"ThenSavePath=Trim(SavePath)&""IfLeft(dbFileNa

10、me,1)=""orLeft(dbFileName,1)="/"ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName)))IfDbExists(SavePath&dbFileName)ThenResponse.Write("对不起,该数据库已经存在!")CompactDatabase=FalseElseDimCdSetCd=Server.CreateObject("JRO.JetEngine")IfErr.number<>0ThenResponse.Write("无法压缩,请检查错误信息"&Err.number&""&Err.Descri

11、ption)Err.ClearExitfunctionEndIfIfDbVer=0ThencallCd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;DataSource="&SavePath&dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;DataSource="&SavePath&dbFileName&".bak.mdb;JetO

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。