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

会计考友

Public function DbExists(byVal dbPath) 　　’查找数据库文件是否存在
　　On Error resume Next
: y4 _: i. o+ Q6 n9 j% i6 B' r: \　　Dim c
　　Set c = Server.CreateObject("ADODB.Connection")
) y" R7 D8 N" e" G( a0 p# `6 r　　c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
) C+ v9 k- H1 D　　If Err.number0 Then
　　Err.Clear
　　DbExists = false
/ U- j$ V. H/ S% {6 h( ?　　else
0 I" [& g; X- k! A5 m1 I$ a6 [& {　　DbExists = True
　　End If
5 j( E$ l% D4 F& l  h! R$ T) s5 ?　　set c = nothing
$ d- [$ y: S! i& P　　End function
　　Public function AppPath()
　　’取当前真实路径
　　AppPath = Server.MapPath("./")
　　End function
　　Public function AppName()
　　’取当前程序名称
　　AppName = Mid(Request.ServerVariables("SCRIPT_NAME"),(InStrRev(Request.ServerVariables("SCRIPT_NAME") ,"/",-1,1))+1,Len(Request.ServerVariables("SCRIPT_NAME")))
　　End Function
- n0 Q, E; v* N; K: p2 G　　Public function DeleteFile(filespec)
. \8 B' W' O# e4 U/ p6 ^+ }- i　　’删除一个文件
/ @' N  i2 t, z) b$ Z$ C* c. k# N$ s, I　　Dim fso
! Q- N3 K( o& r$ ^+ E　　Set fso = CreateObject("Scripting.FileSystemObject")

　　If Err.number0 Then

会计考友

</p>　　Response.Write("删除文件发生错误!请查看错误信息
4 @7 [! `: \& E5 ?. `8 W& W" & Err.number & "
" & Err.Description)
　　Err.Clear
' R4 Y9 ~0 F5 _$ R+ T1 u+ Y　　DeleteFile = False
& X& f' v, C! I. n  [　　End If
　　call fso.DeleteFile(filespec)
　　Set fso = Nothing
6 F% S; E/ s# y4 E6 q9 z) R, C6 x　　DeleteFile = True
% n7 L9 F. }6 P+ j　　End function
　　Public function RenameFile(filespec1,filespec2)
　　’修改一个文件
' G4 g) B% v5 K　　Dim fso
　　Set fso = CreateObject("Scripting.FileSystemObject")
. T7 m: b# S# ]　　If Err.number0 Then
0 b) n2 k& [. f4 [7 G　　Response.Write("修改文件名时发生错误!请查看错误信息
4 L0 y( c1 G5 i8 A" & Err.number & "
" & Err.Description)
6 ~0 S& \5 M3 \8 X1 r3 r　　Err.Clear
　　RenameFile = False
　　End If
; \& b* o5 d$ n/ v# L　　call fso.CopyFile(filespec1,filespec2,True)
. A& I, f, D2 S2 L# r* }- O+ o　　call fso.DeleteFile(filespec1)
1 ^1 X- ?0 Z8 |  H* E4 Q　　Set fso = Nothing
; Z0 @8 U; h2 |2 i" @) A　　RenameFile = True
: M7 b/ C2 \& i0 T　　End function
　　End Class
& L( G; `8 \) v　　%>