繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP编程技巧大全
- ASP
- 隐藏ASP木马后门的两种方法
- 一段asp防注入的通用脚本
- 十万条Access数据表分页的两个解决方法
- asp下让数据库在需要读取的时候才打开
- ASP代码实现自动清除替换ACCESS(MDB)数据库的日文字符的
- 原来ASP和PHP都是可以删除自身的
- [原创]asp获取URL参数的几种方法分析总结
- asp+javascript实现404页的处理转换
- ASP+模板生成Word、Excel、html的代码
- 天枫常用的ASP函数封装如下
- asp获取当前文件名的代码
- ASP把长的数字用逗号隔开显示的代码
- 防止网页后退 asp禁止缓存
- ASP的一些自定义函数整理
- ASP个人网站与动网整合非官方方法
- Access模糊查询查不到数据的解决方法
- asp源码打包成xml的工具
- 透彻掌握ASP分页技术很详细的分析
- asp下根据标题生成关键字的代码
- asp取日期1月25日为0125的最简单方法
ASP编程技巧大全
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 145 ::
收藏到网摘: 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
