</p> Response.Write ("对不起,该数据库已经存在!")
4 \9 ?. H0 S m, ], d CreateDBfile = False$ A ?. m0 {5 p) \4 X F, f; p! B
Else
/ }% |# f2 Z- F- Z0 i; y Dim Ca
8 t4 D- y9 a4 g& x% y Set Ca = Server.CreateObject("ADOX.Catalog")
4 x' ]( W$ M1 }- L3 ^% K' g1 J7 F If Err.number0 Then
8 y/ s& v! Y! W; Z$ O Response.Write ("无法建立,请检查错误信息. ~2 T9 f3 r, s/ H4 J
" & Err.number & "6 p$ {( d$ a5 [. [; ]0 _" a. }$ W8 s
" & Err.Description)
5 N2 H8 U9 P# ]/ e2 K) v( ?' f Err.Clear
' L8 S3 |; L! F- Q* O8 r Exit function4 T) K) g& m0 C4 j1 }
End If
% U4 L1 v; {; y3 A1 i If DbVer=0 Then
# h$ }4 v9 L0 _+ \) k2 }, J1 y call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName)
9 J* i& K% s1 D* Y" ^0 { Else0 w f& ? R8 t8 T
call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName)
2 i* g! W6 v9 s* d, E) q' L End If |