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

会计考友

　end function 　　Public function DbExists(byVal dbPath)
1 q3 z+ Q. O4 L0 E　　’查找数据库文件是否存在
# L* z, m  n2 W: J8 w5 H　　On Error resume Next
% Y3 P, T$ k- Q2 a　　Dim c
　　Set c = Server.CreateObject("ADODB.Connection")
8 P; ?  ^: N+ D# @  T# B; m" }( i% ?　　c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
8 t/ s1 O/ |, h. O　　If Err.number0 Then
　　Err.Clear
　　DbExists = false
　　else
. i, l/ e5 Z+ p$ t. |4 l. J% I　　DbExists = True
0 m4 C# I# u7 I, y. J% P& W, @　　End If
　　set c = nothing
0 \( U" M9 k6 m! i, R9 R) I　　End function
　　Public function AppPath()
0 F# p8 Z' ~) ~! B- m9 x0 j' P　　’取当前真实路径
　　AppPath = Server.MapPath("./")
' Q" y& M2 `% h, Z" |5 m　　End function
3 M0 ?( ^9 `* N　　Public function AppName()
　　’取当前程序名称
　　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)
　　’删除一个文件
# l$ Y+ T- j4 [- Z: ?* [6 k' p9 n. o
8 N6 n, s! k2 S1 i( O　　Dim fso

会计考友

</p>　　Set fso = CreateObject("Scripting.FileSystemObject")
. Z; r2 L# Y$ b: J4 I& b: ?　　If Err.number0 Then
　　Response.Write("删除文件发生错误!请查看错误信息
　　" & Err.number & "
: A& N# X# [0 H6 x" Q0 U) K- j　　" & Err.Description)
! W, F4 _  w( T3 L8 D% m$ X　　Err.Clear
　　DeleteFile = False
　　End If
　　call fso.DeleteFile(filespec)
　　Set fso = Nothing
3 J3 F4 b7 p# Q: N　　DeleteFile = True
　　End function
　　Public function RenameFile(filespec1,filespec2)
　　’修改一个文件
  g; e9 }8 N% O0 S9 }　　Dim fso
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　If Err.number0 Then
7 J. `- S$ j0 N& f  o* Q1 j　　Response.Write("修改文件名时发生错误!请查看错误信息
　　" & Err.number & "
　　" & Err.Description)
　　Err.Clear
- @7 y; w$ V7 ^- B( U* \) o　　RenameFile = False
　　End If
　　call fso.CopyFile(filespec1,filespec2,True)
　　call fso.DeleteFile(filespec1)
* X# _5 L7 \' m　　Set fso = Nothing
0 g. l+ u! A0 m' j　　RenameFile = True
　　End function
　　End Class
　　%>