纯编码如何实现Access数据库的建立或压缩（5）

会计考友

end function 　　Public function DbExists(byVal dbPath)
　　’查找数据库文件是否存在
1 d) W. S- |7 s3 y$ Q　　On Error resume Next
* ^% s6 f1 q4 {) d" n* E- F　　Dim c
　　Set c = Server.CreateObject("ADODB.Connection")
　　c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
- ^; `% ?) Q3 s' Q( |0 ~　　If Err.number0 Then
" R" ]( F/ L' @　　Err.Clear
3 c: Q- T/ c9 Z4 T! b　　DbExists = false
　　else
　　DbExists = True
　　End If
　　set c = nothing
: y+ X9 R; f2 O　　End function
　　Public function AppPath()
+ y1 S6 z  _$ d$ h6 E) J! u　　’取当前真实路径
( A7 j2 Z7 q, b6 E/ A* C　　AppPath = Server.MapPath("./")
7 t5 w" W' E( C/ a8 o5 W3 D　　End function
　　Public function AppName()
; B: b3 Q& K) C9 V　　’取当前程序名称
1 i1 R7 T: {, h; O; }& f　　AppName = Mid(Request.ServerVariables("SCRIPT_NAME"),(InStrRev(Request.ServerVariables("SCRIPT_NAME") ,"/",-1,1))+1,Len(Request.ServerVariables("SCRIPT_NAME")))
2 c/ Q: V- m/ N) `/ {, v　　End Function
　　Public function DeleteFile(filespec)
, [- g# ?7 H$ d2 w5 W
; `0 {) n, L1 R( e　　’删除一个文件

会计考友

</p>　　Dim fso
" [* T( w, s6 y( a1 }　　Set fso = CreateObject("Scripting.FileSystemObject")
6 b3 m$ ?$ X3 r2 ~: d　　If Err.number0 Then
　　Response.Write("删除文件发生错误!请查看错误信息
6 |. ]+ I5 e; h& P0 s* f0 G　　" & Err.number & "
　　" & Err.Description)
　　Err.Clear
　　DeleteFile = False
* ?  ?* z  A# ^　　End If
( J. H) U% u# T5 U* ]; K; h8 ^　　call fso.DeleteFile(filespec)
　　Set fso = Nothing
, M' |# F/ M* _　　DeleteFile = True
* [1 M1 X4 U0 u2 W. v4 U4 v" H8 B1 V　　End function
' F% \- q% R6 v, ~- f　　Public function RenameFile(filespec1,filespec2)
2 p; M. c$ j+ N　　’修改一个文件
　　Dim fso
　　Set fso = CreateObject("Scripting.FileSystemObject")
$ o3 U+ i' l2 Q& c* d: T5 k　　If Err.number0 Then
6 u* t9 I& F; R5 g0 q2 ?　　Response.Write("修改文件名时发生错误!请查看错误信息
　　" & Err.number & "
　　" & Err.Description)
5 k5 C' v( [# u8 Q1 G0 D* i" F　　Err.Clear
: ~% o' t4 H% k. N; m2 k+ P　　RenameFile = False
0 J" e% Y9 g# J! G) k　　End If
: B, \9 y7 k; i, w/ u' v　　call fso.CopyFile(filespec1,filespec2,True)
　　call fso.DeleteFile(filespec1)
. x; {" z0 s: _  q3 f　　Set fso = Nothing
1 F4 t+ _! {% `0 Q! ~1 Q　　RenameFile = True
- b$ Z  q2 |% h- ]　　End function
9 m  B. ~3 N' T" E) v+ t　　End Class
1 i. E( c: g8 T  E　　%>