-
'###### ต่อไปนี้เป็นไฟล์คลาสและคำอธิบายประกอบต่อไปนี้คือวิธีการโทร ระดับ############################################################################################################### -
'#Note: หากระบบไม่รองรับการสร้างสคริปต์วัตถุ FilesYstemObject จะไม่ใช้ฟังก์ชันการบีบอัดฐานข้อมูล
'#cascess database class
'#CreatedBFile สร้างไฟล์ฐานข้อมูลการเข้าถึง
'#CompactDatabase บีบอัดไฟล์ฐานข้อมูลการเข้าถึง
'#Create Object Method:
'#seta = newDatabasetools
'#by (Xiao Hanxue) SF
-
classdatabasetools
PublicFunctionCreatedBfile (Byvaldbfilename, Byvaldbver, Byvalsavepath)
'สร้างไฟล์ฐานข้อมูล
'ifdBveris0ThenCreateAccess97dBfile
'ifdBveris1ThenCreateAccess2000dbfile
onerrorresumenext
ifright (savepath, 1) <> "/" orright (savepath, 1) <> "/" thensavepath = trim (savepath) & "/"
ifleft (dbfilename, 1) = "/" orleft (dbfilename, 1) = "/" thendbfilename = trim (mid (dbfilename, 2, len (dbfilename))))))))))))))))))
ifdbexists (SavePath & dbfilename) จากนั้น
Response.write ("ขออภัยฐานข้อมูลนี้มีอยู่แล้ว!")
createBfile = false
อื่น
dimca
setca = server.createObject ("adox.catalog"))
iferr.number <> 0 แล้ว
Response.write ("ไม่สามารถจัดตั้งได้โปรดตรวจสอบข้อความแสดงข้อผิดพลาด
"& err.number &"
"& err.description)
err.lear
exitfunction
endif
ifdbver = 0 แล้ว
callca.create ("ผู้ให้บริการ = microsoft.jet.oledb.3.51; dataSource =" & savepath & dbfilename)
อื่น
callca.create ("ผู้ให้บริการ = microsoft.jet.oledb.4.0; dataSource =" & savepath & dbfilename)
endif
setca = ไม่มีอะไร
createBfile = true
endif
endfunction
PublicFunctionCompactDatabase (byvaldbfilename, byvaldbver, byvalsavepath)
'ไฟล์ฐานข้อมูลบีบอัด
'0 สำหรับ access97
'1 คือ Access2000
onerrorresumenext
ifright (savepath, 1) <> "/" orright (savepath, 1) <> "/" thensavepath = trim (savepath) & "/"
ifleft (dbfilename, 1) = "/" orleft (dbfilename, 1) = "/" thendbfilename = trim (mid (dbfilename, 2, len (dbfilename))))))))))))))))))
ifdbexists (SavePath & dbfilename) จากนั้น