企业400电话
微网小程序
AI电话机器人
电商代运营
全 部 栏 目
企业400电话
网络优化推广
AI电话机器人
呼叫中心
网站建设
商标✡知产
微网小程序
电商运营
彩铃•短信
增值拓展业务
纯编码实现Access数据库的建立或压缩
<% '#######以下是一个类文件,下面的注解是调用类的方法################################################ '# 注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用 '# Access 数据库类 '# CreateDbFile 建立一个Access 数据库文件 '# CompactDatabase 压缩一个Access 数据库文件 '# 建立对象方法: '# Set a = New DatabaseTools '# by (萧寒雪) s.f. '######################################################################################### Class DatabaseTools Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath) '建立数据库文件 'If DbVer is 0 Then Create Access97 dbFile 'If DbVer is 1 Then Create Access2000 dbFile On error resume Next If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) "\" If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName))) If DbExists(SavePath dbFileName) Then Response.Write ("对不起,该数据库已经存在!") CreateDBfile = False Else Dim Ca Set Ca = Server.CreateObject("ADOX.Catalog") If Err.number<>0 Then Response.Write ("无法建立,请检查错误信息 " Err.number " " Err.Description) Err.Clear Exit function End If If DbVer=0 Then call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" SavePath dbFileName) Else call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" SavePath dbFileName) End If Set Ca = Nothing CreateDBfile = True End If End function Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath) '压缩数据库文件 '0 为access 97 '1 为access 2000 On Error resume next If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) "\" If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName))) If DbExists(SavePath dbFileName) Then Response.Write ("对不起,该数据库已经存在!") CompactDatabase = False Else Dim Cd Set Cd =Server.CreateObject("JRO.JetEngine") If Err.number<>0 Then Response.Write ("无法压缩,请检查错误信息 " Err.number " " Err.Description) Err.Clear Exit function End If If DbVer=0 Then call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" SavePath dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" SavePath dbFileName ".bak.mdb;Jet OLEDB;Encrypt Database=True") Else call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" SavePath dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" SavePath dbFileName ".bak.mdb;Jet OLEDB;Encrypt Database=True") End If '删除旧的数据库文件 call DeleteFile(SavePath dbFileName) '将压缩后的数据库文件还原 call RenameFile(SavePath dbFileName ".bak.mdb",SavePath dbFileName) Set Cd = False CompactDatabase = True End If 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 %>
[Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]
上一篇:
远程图片自动按文件夹上传到服务器-默飞出品
下一篇:
用XML+FSO+JS实现服务器端文件的选择效果
相关文章
纯编码实现Access数据库的建立或压缩
\"\" Or Right(SavePath,1) \"/\" Then SavePath = Trim(SavePath) \"\" If Left(dbFileName,1)=\"\" Or Left(dbFileName,1)=\"/\" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName))) If DbExists(SavePath dbFileName) Then Response.Write (\"对不起,该纯,编码,实现,Access,数据库,...
asp.net无法加载oci.dll等错误的解决方法
解决方法一 修复方法: 1:找到oracle客户端的安装目录,例如:E:/oracle/ora92,选中目录...
厦门ai外呼电话机器人怎么样(厦门ai外呼电话机器人怎
本文目录一览:1、电话机器人效果好不好?2、外呼电话机器人效果怎么样3、ai智能机器...
400电话申请对企业来说真的那么重要吗
当下各大公司为什么都会纷纷去进行400电话申请?难道说有了这种电话对企业来说就那...
400电话合作,400电话查询网
400电话合作,400电话查询网400电话代理商为你解答。 如果你想成为400电话申请代理,你...
商标注册满五年,被诉侵犯在先权利怎么办?
关于本文讨论的话题,目前鲜有类似判例可供参考,前段时间有几个颇为引人关注的案...
河南400电话代理加盟创业项目靠谱吗?
2019年,很多刚成立的河南创业公司都会考虑网络科技型公司为主,主要以网站建设,...
卖电销机器人挣钱吗(电销机器人好卖吗)
今日给各位共享卖电销机器人赚钱吗的常识,其间也会对电销机器人好卖吗进行解说,...
朗玛电销卡怎么办理?
普通的电话卡办理是很简单的,只需要本人带上身份证去当地营业厅即可,那么对于朗...
物联网卡应用智慧井盖解决安全问题
另外,每到大雨天气的时候,对于城市排水系统都是一次考验,如果排水不及时,一场...
衡水400电话选号平台400电话选号需要费用吗
400号已成为企业宣传的必需品。400电话号码选择平台可以帮助想要申请400号码的公司选...
惠州呼叫系统的价格 汇港通科技
打造一站式智能综合营销管理服务平台。在“获客-筛选-智能跟进-营销管理(CRM)-企业...
西安教育培训公司回拨系统办理多少钱,向量axb和a·b-哪家
一企嗨电话营销系统 1.当前的电销场景有哪些困扰? 1)手机.卡频繁被封,电销业务...
重庆鹿聆外呼系统(鹿客 重庆)
本文目录一览: 1、请问有比较好用的外呼体系引荐吗?2、有没有比较专业的外呼体系...
泰安电话机器人哪家好
首先,必须将播打的数据导入系统。 可以通过单击来批量输入号码数据,也可以单独输...
中国移动至尊卡,中国移动至尊卡怎么样
中国移动至尊卡,中国移动至尊卡怎么样,根据网上了解并汇总,并于中国移动至尊卡...
纯编码实现Access数据库的建立或压缩
\"\" Or Right(SavePath,1) \"/\" Then SavePath = Trim(SavePath) \"\" If Left(dbFileName,1)=\"\" Or Left(dbFileName,1)=\"/\" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName))) If DbExists(SavePath dbFileName) Then Response.Write (\"对不起,该纯,编码,实现,Access,数据库,...
咨 询 客 服