优内建站网,专业建站,企业建站,免费建站,智能建站,个人建站!
主营企业建站,seo优化,手机网站,微信网站开发等业务!>> 繁体中文
用户名: 密 码: 验证码:    
企业建站,专业建站,模板建站,智能建站
 您现在的位置:首页 >> 网络编程 >> 详细内容>>        【字体:  】【颜色: 绿

ASP编程技巧大全

在百度搜索关于“ASP编程技巧大全”的内容

在谷歌搜索关于“ASP编程技巧大全”的内容

买空间、服务器就上威客主机网(VK163.COM) 虚拟主机评测+IDC导航=威客主机之家 标志设计
[内容提要] ################################################''#注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用''#Access数据库类''#CreateDbFile建立...

作者: 优内科技  来源: 优内科技  驻站日期:2010/4/13 【 加入收藏 】 【 打印此页 】 【 关闭

################################################
  ''# 注意:如果系统不支持建立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
  %>
 
  现在已可以压缩有密码的数据库,代码如下,但是压缩之后的数据库密码就没有了!如何解决?
 
  <%
  Const JET_3X = 4
 
  Function CompactDB(dbPath, boolIs97)
  Dim fso, Engine, strDBPath
  strDBPath = left(dbPath,instrrev(DBPath,"\"))
  Set fso = CreateObject("Scripting.FileSystemObject")
 
  If fso.FileExists(dbPath) Then
  Set Engine = CreateObject("JRO.JetEngine")
 
  If boolIs97 = "True" Then
  Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
  "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=''XXXXXXXX'';Data Source=" & strDBPath & "temp.mdb;" _
  & "Jet OLEDB:Engine Type=" & JET_3X
  Else
  Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=''XXXXXXXX'';Data Source=" & dbpath, _
  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
  End If
 
  fso.CopyFile strDBPath & "temp.mdb",dbpath
  fso.DeleteFile(strDBPath & "temp.mdb")
  Set fso = nothing
  Set Engine = nothing
 
  CompactDB = "你的数据库, " & dbpath & ", 已经压缩成功!" & vbCrLf
 
  Else
  CompactDB = "数据库名称或路径不正确. 请重试!" &

添加到QQ书签 百度收藏 订阅到抓虾 添加到鲜果  新浪ViVi  365Key网摘  天极网摘  我摘  和讯网摘  yahoo  收藏到收客网  Digbuzz我挖网  添加到饭否  挖客  添加到google  

   【回到顶部】 【返回文章列表】 编辑:优内科技
⊕ 上一篇:验证日期输入是否正确
⊕ 下一篇:ASP类中构造函数和解析函数
  相关新闻
返回首页 | 设为首页 | 添加收藏 | 关于我们 | 联系我们 | 企业文化 | 合作伙伴 | 诚聘英才 | 网站报价 | 企业资质 | 网站地图
邮箱登陆 E- mail:master@cck5.com 点击这里给我发消息 客服专员 QQ:310203268 点击这里给我发消息 技术咨询 QQ:22071287点击这里给我发消息 代理备案 QQ:529631515
丰富的网站建设经验,专业提供网站建设、网站制作、网页设计服务,专业设计,真诚服务,不满意不收费!
Copyright 2008 - 2025 cck5 Inc. All Rights Reserved 优内建站网络科技公司
本站部分资源来自网络,如有侵犯您的版权,请告之,我们将即刻删除!QQ:310203268
主要业务:网站建设企业建站专业建站智能建站SEO优化微信建站手机建站
本站ICP备案号:浙ICP备11019299号 中国电信增值ICP经营许可证
不良信息举报中心 江西网警 信息产业部门备案 企业法人营业执照
 
扫优内微信二维码
“码”上有惊喜