<％
'######以下はクラスファイルであり、次の注釈は呼び出す方法です クラス＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃ ####################################################################################################################
'＃注：システムがScripting.filesystemObjectオブジェクトの作成をサポートしていない場合、データベース圧縮関数は使用されません。
'＃アクセスデータベースクラス
'＃sedureateBfileアクセスデータベースファイルを作成します
'＃CompactDataBaseアクセスデータベースファイルを圧縮します
'＃オブジェクトの作成方法：
'＃a = new Databasetoolsを設定します
'＃by（xiao hanxue）sf
######################################################################################################################＃
クラスデータベースツール
public function createdbfile（byval dbfilename、byval dbver、byval savepath）
'データベースファイルを作成します
'dbverが0の場合、Access97dbfileを作成します
'dbverが1の場合、Access2000dbfileを作成します
エラーの再開時に次に再開します
正しい場合（SavePath、1）<> "/"またはright（SavePath、1）<> "/" then SavePath = trim（SavePath）＆ "/"
左の場合（dbfileName、1）= "/"または左（dbfileName、1）= "/" then dbfileName = trim（mid（dbfileName、2、len（dbfilename）））
dbexists（savepath＆dbfilename）の場合
Response.Write（「申し訳ありませんが、このデータベースはすでに存在しています！」）
createdbfile = false
それ以外
薄暗いCA
ca = server.createObject（ "adox.catalog"）を設定します
err.number <> 0の場合
Response.write（ "確立できません。エラーメッセージを確認してください
「＆err.Number＆」
「＆err.description）
err.clear
出口機能
ifを終了します
dbver = 0の場合
ca.create（ "provider = microsoft.jet.oledb.3.51; data source ="＆savepath＆dbfilename）に電話する
それ以外
ca.create（ "provider = microsoft.jet.oledb.4.0; data source ="＆savepath＆dbfilename）に電話する
ifを終了します
CA =何も設定しません
createdbfile = true
ifを終了します
エンド関数
パブリック関数CompactDatabase（byval dbfilename、byval dbver、byval savepath）
'データベースファイルを圧縮します
アクセス97の場合
'アクセス2000の1
エラーの再開時に次に再開します
正しい場合（SavePath、1）<> "/"またはright（SavePath、1）<> "/" then SavePath = trim（SavePath）＆ "/"
左の場合（dbfileName、1）= "/"または左（dbfileName、1）= "/" then dbfileName = trim（mid（dbfileName、2、len（dbfilename）））
dbexists（savepath＆dbfilename）の場合
Response.Write（「申し訳ありませんが、このデータベースはすでに存在しています！」）
compactDataBase = false
それ以外
DIM CD
cd = server.createobject（ "jro.jetengine"）を設定します
err.number <> 0の場合
Response.Write（ "圧縮できない、エラーメッセージを確認してください
「＆err.Number＆」
「＆err.description）
err.clear
出口機能
ifを終了します
dbver = 0の場合
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;暗号化データベース= true "）
それ以外
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;暗号化データベース= true"）
ifを終了します
'古いデータベースファイルを削除します
deletefile（SavePath＆dbfileName）を呼び出す
「圧縮データベースファイルを復元します