繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP编程技巧大全
- ASP
- 连接数据库查询手册
- ASP.net组件编程中的两种事件编写方法
- 简单快捷实现ASP在线发邮件
- ASP能读写注册表
- 用ASP实现在线压缩与解压缩
- Asp编写不再让人讨厌的自动弹出窗口
- 使用组件封装ASP的数据库操作
- 删除Access数词库中的空记录
- 制做行背景颜色交替变换的表格
- 将数据库中的信息存储至XML文件中
- 如何用foreach遍历页面上所有的TextBox
- asp.net如何生成图片验证码(简单)
- WEB表格导出为EXCEL文档的方法
- ASP上两个防止SQL注入式攻击Function
- xmlHTTP技术资料
- 提高ASP.NET性能的方法
- DataGrid 分页问题
- 如何固定表格的标题行和标题列
- 在B/S系统中引入定时器的功能
- 关于用ASP.Net识别远程主机服务器种类
ASP编程技巧大全
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 34 ::
收藏到网摘: n/a
''#######以下是一个类文件，下面的注解是调用类的方法################################################
''# 注意：如果系统不支持建立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 ("无法建立，请检查错误信息
" & Err.number & "
" & 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 ("无法压缩，请检查错误信息
" & Err.number & "
" & 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
&nb
评论 (0) All
