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>