欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  数据库

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

程序员文章站 2022-05-31 20:37:52
...

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

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)

  ’删除一个文件

  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

  %>