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

php中文网
发布: 2016-06-07 15:02:42
原创
1401人浏览过

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

  %>

豆包AI编程
豆包AI编程

智能代码生成与优化,高效提升开发速度与质量!

下载
相关标签:
来源:php中文网
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
最新问题
热门教程
更多>
最新下载
更多>
网站特效
网站源码
网站素材
前端模板
关于我们 免责申明 意见反馈 讲师合作 广告合作 最新更新
php中文网:公益在线php培训,帮助PHP学习者快速成长!
关注服务号 技术交流群
PHP中文网订阅号
每天精选资源文章推送
PHP中文网APP
随时随地碎片化学习
PHP中文网抖音号
发现有趣的

Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号