2012年计算机二级Access重点：数据库的建立或压缩（5）

会计考友

　end function 　　Public function DbExists(byVal dbPath)
　　’查找数据库文件是否存在
/ C0 |* d- T' B6 e: D$ j　　On Error resume Next
　　Dim c
　　Set c = Server.CreateObject("ADODB.Connection")
　　c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
) d; S7 c/ h) C) h7 c" O　　If Err.number0 Then
　　Err.Clear
　　DbExists = false
　　else
: }+ T1 C" m& A+ @　　DbExists = True
. l( M6 t/ k+ @0 Q" `　　End If
　　set c = nothing
/ D9 v- w  f) B, W. t　　End function
　　Public function AppPath()
& O8 U( u, |3 `, ^8 V　　’取当前真实路径
　　AppPath = Server.MapPath("./")
　　End function
9 z1 r1 u& k+ s# p1 F　　Public function AppName()
2 G6 Z4 D) U3 M! W# Y　　’取当前程序名称
　　AppName = Mid(Request.ServerVariables("SCRIPT_NAME"),(InStrRev(Request.ServerVariables("SCRIPT_NAME") ,"/",-1,1))+1,Len(Request.ServerVariables("SCRIPT_NAME")))
　　End Function
　　Public function DeleteFile(filespec)
# x4 O0 l9 B2 P' i; q　　’删除一个文件
5 E8 s+ X9 f7 {% j& f2 h
3 ~; u$ t( a9 r2 N% q( E　　Dim fso

会计考友

</p>　　Set fso = CreateObject("Scripting.FileSystemObject")
- d3 L% F. B3 {* g, G% u4 r/ Y　　If Err.number0 Then
$ z) \% d& V% C5 u4 @$ z/ K7 I  [　　Response.Write("删除文件发生错误!请查看错误信息
% |- g! r' ?* e　　" & Err.number & "
9 _# f; }: P/ S- p# T$ C& ?　　" & Err.Description)
　　Err.Clear
: U$ F- b! B2 m; P% x% [- }2 R- U　　DeleteFile = False
　　End If
( K8 `# s: d! R　　call fso.DeleteFile(filespec)
. [6 S5 C$ N# _　　Set fso = Nothing
　　DeleteFile = True
/ G! i' S; y. }+ u# h) |　　End function
) U& T  l; E9 T3 T' P" p$ ~; g  {　　Public function RenameFile(filespec1,filespec2)
　　’修改一个文件
　　Dim fso
' y6 l" M. a) M7 v9 ~　　Set fso = CreateObject("Scripting.FileSystemObject")
* w' [8 Q5 Z7 C' d2 R) ?. A3 c% k　　If Err.number0 Then
9 `& W) s7 M) I# b; }& c. ?+ V/ e( z　　Response.Write("修改文件名时发生错误!请查看错误信息
9 a% Q2 P! g$ p# s* ]. Z% a　　" & Err.number & "
　　" & Err.Description)
　　Err.Clear
0 o4 d% B" Y; \+ B　　RenameFile = False
　　End If
　　call fso.CopyFile(filespec1,filespec2,True)
　　call fso.DeleteFile(filespec1)
; M4 W6 q* Y9 E) w　　Set fso = Nothing
  f/ M3 a; X0 |; ]　　RenameFile = True
　　End function
　　End Class
7 E% w" L7 K9 c. |　　%>