首页 > 安全资讯 >

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

12-04-12

Public function DbExists(byVal dbPath)   ’查找数据库文件是否存在  On Error resume Next  Dim c  Set c = Server.CreateObject("ADODB.Connection")  c.Open "Provider=Micr...

       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

  %>

相关文章
最新文章
热点推荐