纯编码如何实现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 DbExists = f

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

　　DbExists = false

　　else

　　DbExists = True

　　End If

　　set c = nothing

　　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

　　Public function DeleteFile(filespec)

　　’删除一个文件

　　Dim fso

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　If Err.number0 Then

　　Response.Write("删除文件发生错误!请查看错误信息
" & Err.number & "
" & Err.Description)

　　Err.Clear

　　DeleteFile = False

　　End If

　　call fso.DeleteFile(filespec)

　　Set fso = Nothing

　　DeleteFile = True

　　End function

　　Public function RenameFile(filespec1,filespec2)

　　’修改一个文件

　　Dim fso

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　If Err.number0 Then

　　Response.Write("修改文件名时发生错误!请查看错误信息
" & Err.number & "
" & Err.Description)

　　Err.Clear

　　RenameFile = False

　　End If

　　call fso.CopyFile(filespec1,filespec2,True)

　　call fso.DeleteFile(filespec1)

　　Set fso = Nothing

　　RenameFile = True

　　End function

　　End Class

　　%>