当前位置:Gxlcms > mysql > 纯编码如何实现Access数据库的建立或压缩(5)

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

时间:2021-07-01 10:21:17 帮助过:42人阅读

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.number<>0 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.number<>0 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.number<>0 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

  %>

人气教程排行