asp Access数据备份,还原,压缩类代码- ASP

当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp Access数据备份,还原,压缩类代码

ASP: ASP连接SQL2005数据库连接代码; ASP程序与SQL存储过程结合使用详解; asp 小偷采集程序原理与常用函数方法; 防盗链接ASP函数; asp将table生成excel文件(xls); asp实现新评论自动发短信提示的代码; asp最简单的生成验证码代码; ASP 常见对象总结(熟悉一下利用以后的开发使用); ASP UTF-8编码生成静态网页的函数; ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法; asp Access数据备份,还原,压缩类代码; asp fso操作类; ASP 自动采集实现代码; asp 一些支付接口; ASP 递归调用已知节点查找根节点的函数; 用asp实现读取文件的最后一行的代码; 用asp实现的获取文件夹中文件的个数的代码; ASP与Excel结合生成数据表和Chart图的代码; iis7 ASP+Access数据库连接错误; ASP 日期的加减运算实现代码

No. « ‹ 220 221 222 223 › »

技术文章搜索

关键字

ASP 中的 asp Access数据备份,还原,压缩类代码

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 31 ::

收藏到网摘: n/a

ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法 asp fso操作类

asp Access数据备份,还原,压缩类实现代码，大家可以参考下。 

<%
'数据库管理类
class Datas
'备份
public sub Bk()
Set fso=server.createobject("scripting.filesystemobject")
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
set fso=nothing
response.Write("<script language=javascript></script>")
end sub
'还原
public sub Rt()
SDPath = server.mappath(SiteDataPath)
SDBPath = server.mappath(SiteDataBakPath)
set Fso=Server.CreateObject("Scripting.FileSystemObject")
if Fso.FileExists(SDBPath) then
Fso.CopyFile SDBPath,SDPath
Set Fso=nothing
response.Write("<script language=javascript></script>")
else
response.Write("<script language=javascript></script>")
end if
end sub
'压缩
public sub Dc()
SDBPath = server.mappath(SiteDataBakPath)
set Fso=Server.CreateObject("Scripting.FileSystemObject")
if Fso.FileExists(SDBPath) then
Set Engine =Server.CreateObject("JRO.JetEngine")
if request("boolIs") = "97" then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath & "_temp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath & "_temp.mdb"
end if
Fso.CopyFile SDBPath & "_temp.mdb",SDBPath
Fso.DeleteFile(SDBPath & "_temp.mdb")
set Fso = nothing
set Engine = nothing
response.Write("<script language=javascript></script>")
else
response.Write("<script language=javascript></script>")
end if
end sub
end class
%>

ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法 asp fso操作类

ASP 中的 asp Access数据备份,还原,压缩类代码

评论 (0) All