我考网社区 › 计算机等级考试 › 纯编码如何实现Access数据库的建立或压缩（5）

会计考友 发表于 2012-7-31 22:26:35

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

end function 　　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)

　　’删除一个文件

会计考友 发表于 2012-7-31 22:26:36

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

</p>　　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
　　%>

查看完整版本: 纯编码如何实现Access数据库的建立或压缩（5）