📄 mdb_compress.asp
字号:
<%Admin="SysMdbCR"%>
<!--#include file="check.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>■管理中心 - 惊云下载系统(HTML版)</title>
<style>
td{font-size:9pt;line-height:160%}
body{font-size:9pt;line-height:160%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #FF0000; text-decoration: none }
a:hover { color: #000000; text-decoration: underline}
</style>
</head>
<body topmargin="1">
<div align="center">
<center>
<%
if request("type")="save" then
JyDownMDBname=request("JyDownMDBname")
if JyDownMDBname="" then
JyDownMsg="错误:文件名不能为空."
else
dbpath = server.mappath("data_backup\"&JyDownMDBname&".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
JyDownMsg="成功:你的数据库,"&JyDownMDBname&".asp, 已经压缩成功!"
else
JyDownMsg="错误:数据库名称不正确.请重试!"
end if
end if
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="380" cellpadding="0">
<tr>
<td width="100%"><font color="#FF0000">·</font><%=JyDownMsg%> 时间:<%=Now()%></td>
</tr>
</table>
<%end if%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="380" bgcolor="#555555">
<tr>
<td width="100%" bgcolor="#6A6A6A"><font color="#FFFFFF"><b>压缩数据库</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<font color="#ff0000">·</font><font color="#808080">操作前最好先备份数据库<br>
</font><font color="#ff0000">·</font><font color="#808080">正在使用中数据库不能压缩,请选择备份数据库进行压缩操作(当前压缩数据库名为默认备份文件名)</font></td>
</tr>
<!--#include file="mdb_path_down_name.asp"-->
<form action="mdb_compress.asp?type=save" method="post">
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>软件数据库压缩</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
压缩数据库:<input name="JyDownMDBname" 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_info_name.asp"-->
<form action="mdb_compress.asp?type=save" method="post">
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>文章数据库压缩</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
压缩数据库:<input name="JyDownMDBname" 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%" bgcolor="#F4F4F4">
<font color="#000080"><b>用户数据库压缩</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
压缩数据库:<input name="JyDownMDBname" 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 + -