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

会计考友

　Public function DbExists(byVal dbPath) 　　’查找数据库文件是否存在
　　On Error resume Next
　　Dim c
　　Set c = Server.CreateObject("ADODB.Connection")
　　c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
　　If Err.number0 Then
　　Err.Clear
4 p' Z+ C+ _, p( }3 o　　DbExists = false
+ m* S9 a0 J; t1 j8 b! b" L/ r　　else
　　DbExists = True
　　End If
　　set c = nothing
; q5 c. a0 A. _% Y　　End function
　　Public function AppPath()
　　’取当前真实路径
　　AppPath = Server.MapPath("./")
　　End function
7 D. u& p/ R3 s( L5 j2 }' ~　　Public function AppName()
2 s; {0 I4 L' j0 g. z. R! P0 ]　　’取当前程序名称
4 J6 ]. i' @/ r0 q$ {: x3 U' @　　AppName = Mid(Request.ServerVariables("SCRIPT_NAME"),(InStrRev(Request.ServerVariables("SCRIPT_NAME") ,"/",-1,1))+1,Len(Request.ServerVariables("SCRIPT_NAME")))
& p* \8 I' X& e% I! r( r　　End Function
　　Public function DeleteFile(filespec)
　　’删除一个文件
' O1 R: |* h% k: e" I8 s! m　　Dim fso
　　Set fso = CreateObject("Scripting.FileSystemObject")
% H: q, r, K( V. ?8 ]/ Z
8 M" _/ Z1 i7 G& K3 \2 r　　If Err.number0 Then

会计考友

</p>　　Response.Write("删除文件发生错误!请查看错误信息
" & Err.number & "
/ t: ~9 B9 M0 V1 R' c# Z2 W6 s& j" & Err.Description)
& x- e1 n# Q2 u% s# ^! Y- Z: E　　Err.Clear
( D6 ^2 ?  r4 @7 @( S3 ?: N% W2 Q! m　　DeleteFile = False
3 p- X9 Z+ N7 ?$ p9 `　　End If
) T2 e6 A, f4 f7 O　　call fso.DeleteFile(filespec)
　　Set fso = Nothing
  m7 c1 ]! h  v, X　　DeleteFile = True
　　End function
( ?% b6 w# M7 x) k" H& a" Z7 w　　Public function RenameFile(filespec1,filespec2)
　　’修改一个文件
　　Dim fso
　　Set fso = CreateObject("Scripting.FileSystemObject")
* p: O  @$ s# P8 @9 u  q8 w# W　　If Err.number0 Then
( I/ U9 r. }' g1 N+ d　　Response.Write("修改文件名时发生错误!请查看错误信息
" & Err.number & "
3 a$ ^- z) h) l# q/ t" & Err.Description)
* P) l6 j2 J4 |; M7 \9 E　　Err.Clear
: k3 G7 v4 s, B2 t3 S# Y# \4 C" m　　RenameFile = False
　　End If
9 \2 H1 P3 ^0 g: _  |9 N; `, V' J　　call fso.CopyFile(filespec1,filespec2,True)
　　call fso.DeleteFile(filespec1)
* j1 E! f. g* A- d8 L　　Set fso = Nothing
　　RenameFile = True
　　End function
5 C) q% ~+ n( y. d$ k4 z% n- }3 C3 A. `　　End Class
　　%>