admin_db_compact.asp
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:4k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <!--#include file=admin_sb.asp-->
  2. <br><%
  3. '====================================================================
  4. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  5. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  6. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  7. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  8. '====================================================================
  9. %> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  10.   <tr> 
  11.     <td height="20">在线压缩数据库</a><br>
  12.       <%
  13.   if Request("action")="compact" Then
  14. dim Dbpath,boolIs97 
  15. if request("boolIs97")<>"" then boolIs97=request("boolIs97") else boolIs97=true end if 
  16. if request("Dbpath")<>"" then Dbpath="../"&trim(request("Dbpath")) end if
  17. if Dbpath<>"" then
  18. Dbpath = server.mappath(Dbpath)
  19. response.write(CompactDatabase(Dbpath,boolIs97))
  20. else
  21. Response.Write("数据库地址不能为空")
  22. end if
  23.   Else
  24.    if not fsolimit then
  25.    call showspaceinfo
  26. %>
  27. <form name="pollform3sdx" method="post" action="admin_db_compact.asp">
  28.   <input type="hidden" name="action" value=compact>
  29. <table width="100%" height="1" border="0" align=center cellpadding="5" cellspacing="1" bgcolor="#336699" class="tableBorder"> 
  30. <tr> 
  31. <td bgcolor="#FFFFFF" class="forumrow">请输入数据库的相绝对路径:<br/>数据库: 
  32. <input type="text" name="Dbpath" value=<%=const_AccessDatabase%>> 
  33.   
  34. <input name="submit3" type="submit" value="开始压缩"></td> 
  35. </tr> 
  36. <tr> 
  37. <td bgcolor="#FFFFFF" class="forumrow"><input type="checkbox" name="boolIs97" value="True"> 
  38. 如果使用 Access 97 数据库请选择 (默认为 Access 2000 数据库)<br> 
  39. <br>-------------------------------------------------------------------<br> 
  40. 注意:所有路径都是相对与程序空间根目录的相对路径 </td>  
  41. </td> 
  42. </tr><%
  43.    end if
  44.   End If
  45.   
  46.   %>
  47.       <p></p></td>
  48.   </tr>
  49. </table></form>
  50. <%sub showspaceinfo
  51. %>
  52. <table width=100% align="center">
  53.         <tr> 
  54.      </td>
  55.         </tr>
  56.       </table>
  57. <%
  58. end sub
  59. function fsolimit()
  60. on error resume next
  61. fsolimit=false
  62. dim fsolimitstr,testfso
  63. Set testfso = CreateObject("Scripting.FileSystemObject") 
  64. if not isobject(testfso) then '不支持FSO
  65. fsolimit=true
  66. fsolimitstr="注意:此功能需要FSO的支持,您现在使用的服务器<font color=""red"">不支持</font>该组件,所以该功能无法实现!"
  67. else
  68. fsolimit=false
  69. fsolimitstr="注意:此功能需要FSO的支持,您现在使用的服务器<font color=""green"">支持</font>该组件。<br><br>"
  70. end if
  71. Response.Write(fsolimitstr)
  72. end function
  73. Function CompactDatabase(dbPath, boolIs97) 
  74. Dim fso, Engine, strDBPath,JET_3X 
  75. strDBPath = left(dbPath,instrrev(DBPath,"")) 
  76. Set fso = CreateObject("Scripting.FileSystemObject") 
  77. If fso.FileExists(dbPath) Then 
  78. fso.CopyFile dbpath,strDBPath & "temp.mdb" 
  79. Set Engine = CreateObject("JRO.JetEngine") 
  80. If boolIs97 = "True" Then 
  81. Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _ 
  82. "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb;" _ 
  83. & "Jet OLEDB:Engine Type=" & JET_3X 
  84. Else 
  85. Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _ 
  86. "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb" 
  87. End If 
  88. fso.CopyFile strDBPath & "temp1.mdb",dbpath 
  89. fso.DeleteFile(strDBPath & "temp.mdb") 
  90. fso.DeleteFile(strDBPath & "temp1.mdb") 
  91. Set fso = nothing 
  92. Set Engine = nothing 
  93. CompactDatabase = "你的数据库已经压缩成功!" & vbCrLf 
  94. Else 
  95. CompactDatabase = "数据库名称或路径不正确. 请重试!或用备份数据库压缩!" & vbCrLf 
  96. End If 
  97. End Function 
  98. %>