www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/mdb_compress.asp

    <!--#include file="top.asp"-->
<%Admin="SysMdbCR"%>
<!--#include file="check.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>管理中心 - 共享世纪新闻文章管理系统</title>
<meta copy="WWW.2KY.CN 共享世纪">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body>
<div align="center">
  <center>
<%
'==========================================
'
'  晓宇听幽新闻文章管理系统 2004
'
'  主页地址:http://www.xoYu.com
'
'==========================================
'程序名称:晓宇听幽新闻文章管理系统
'英文名称:xoYu News 2004 Professional
'程序创建时间:2003-7-10
'程序完成时间:2003-9-11
'最后修改时间:2003-10-10
'==========================================
if request("type")="save" then
xoYuStudioMDBname=request("xoYuStudioMDBname")
if xoYuStudioMDBname="" then
xoYuStudioMsg="错误:文件名不能为空."
else
dbpath = server.mappath("data_backup\"&xoYuStudioMDBname&".asp")
Set fso=Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")

	If request("boolIs") = "97" Then
		Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
		"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath & "_temp.asp;" _
		& "Jet OLEDB:Engine Type=" & JET_3X
	Else
		Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
		"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath & "_temp.asp"
	End If

fso.CopyFile dbpath & "_temp.asp",dbpath
fso.DeleteFile(dbpath & "_temp.asp")
Set fso = nothing
Set Engine = nothing


xoYuStudioMsg="成功:你的数据库,"&xoYuStudioMDBname&".asp, 已经压缩成功!"
else
xoYuStudioMsg="错误:数据库名称不正确.请重试!"	
end if
end if
%>
<table width="380" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
  <tr>
    <td width="100%" class=forumrow><font color="#FF0000">·</font><%=xoYuStudioMsg%> 时间:<%=Now()%></td>
  </tr>
</table>
<%end if%>
<table width="380" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr>
      <th width="100%"><b>压缩数据库</b></th>
    </tr>
    
    <tr>
      <td width="100%" class=forumHeaderBackgroundAlternate>      
      ·操作前最好先备份数据库<br>
      ·正在使用中数据库不能压缩,请选择备份数据库进行压缩操作(当前压缩数据库名为默认备份文件名)</td>
    </tr>
    <!--#include file="mdb_path_info_name.asp"-->
    <form action="mdb_compress.asp?type=save" method="post">
    <tr>
      <td width="100%" class=forumrow>      
      <font color="#000080"><b>文章数据库压缩</b></font></td>
    </tr>
    <tr>
      <td width="100%" class=forumrow>      
      压缩数据库:<input name="xoYuStudioMDBname" value="<%=MDBname%>_backup" size="20" style="border-style: solid; border-width: 1">.asp<input name="b1" type="submit" value="压缩"></td>
    </tr>
     </form>
    </tr>
    <!--#include file="mdb_path_user_name.asp"-->
    <form action="mdb_compress.asp?type=save" method="post">
    <tr>
      <td width="100%" class=forumrow>      
      <font color="#000080"><b>用户数据库压缩</b></font></td>
    </tr>
    <tr>
      <td width="100%" class=forumrow>      
      压缩数据库:<input name="xoYuStudioMDBname" value="<%=MDBname%>_backup" size="20" style="border-style: solid; border-width: 1">.asp<input name="b1" type="submit" value="压缩"></td>
    </tr>
     </form>
    </tr>
    <!--#include file="mdb_path_vote_name.asp"-->
    <form action="mdb_compress.asp?type=save" method="post">
    <tr>
      <td width="100%" class=forumrow>      
      <font color="#000080"><b>投票数据库压缩</b></font></td>
    </tr>
    <tr>
      <td width="100%" class=forumrow>      
      压缩数据库:<input name="xoYuStudioMDBname" value="<%=MDBname%>_backup" size="20" style="border-style: solid; border-width: 1">.asp<input name="b1" type="submit" value="压缩"></td>
    </tr>
     </form>
    </tr>
    <!--#include file="mdb_path_ad_name.asp"-->
    <form action="mdb_compress.asp?type=save" method="post">
    <tr>
      <td width="100%" class=forumrow>      
      <font color="#000080"><b>广告数据库压缩</b></font></td>
    </tr>
    <tr>
      <td width="100%" class=forumrow>      
      压缩数据库:<input name="xoYuStudioMDBname" value="<%=MDBname%>_backup" size="20" style="border-style: solid; border-width: 1">.asp<input name="b1" type="submit" value="压缩"></td>
    </tr>
     </form>
    </tr>
  </table>
  </center>
</div>
</body>
</html>