繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 纯编码实现数据库的建立或压缩
- ASP
- 随机提取Access/SqlServer数据库中的10条记录的SQL语句
- 实现对Access数据库表重命名的一段代码
- XML+XSL+CSS+ASP打造留言簿
- 小偷&小偷入库&采集入库
- 使用asp代码突破163相册的防盗连
- CJJ专用ASP类库中的某个class
- 能不能在flash动画中给asp传递变量？
- 禁止站外提交表单
- 改进一下asp自带的formatNumber函数
- 收集asp的常用函数
- CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格
- ASP 指南
- pjblog2的参数
- ASP智能搜索的实现
- 网站生成静态页面攻略2:数据采集
- 网站生成静态页面攻略3:防采集策略
- 网站生成静态页面攻略4:防采集而不防搜索引擎策略
- 简单分页函数一 常用
- asp最常用的分页函数
- asp:生成静态页面函数
ASP 中的 纯编码实现数据库的建立或压缩
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 167 ::
收藏到网摘: n/a
'#######以下是一个类文件，下面的注解是调用类的方法
'# 注意：如果系统不支持建立Scripting.FileSystemObject对象，
那么数据库压缩功能将无法使用
'# Access 数据库类
'# CreateDbFile 建立一个Access 数据库文件
'# CompactDatabase 压缩一个Access 数据库文件
'# 建立对象方法:
'# Set a = New DatabaseTools
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
评论 (0) All
