📄 mdb_compress.asp
字号:
<%Admin="SysMdbCR"%>
<!--#include file="check.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>管理中心 - 晓宇听幽 网站内容管理系统</title>
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body>
<div align="center">
<center>
<%
'#################################################################
'# 晓宇听幽网站内容管理系统(xoYu CMS)
'#
'# 版权所有: 晓宇听幽工作室
'#
'# 制作人 : xoyu(晓宇)
'#
'# 主页地址: http://www.xoYu.com 晓宇听幽工作室
'# 论坛地址: http://www.xoYu.com/bbs/ 晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。
'#################################################################
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_down_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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -