<%
　　’#######以下是一个类文件，下面的注解是调用类的方法################################################
　　’# 注意：如果系统不支持建立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 ("无法建立，请检查错误信息<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

上一页12345下一页