📄 data.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
select case Request.QueryString("act")
case "compact"
call compact()
case "bak"
call bak()
case "restore"
call restore()
case "diskview"
call diskview()
end select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=urlname%>--数据库管理</title>
</head>
<body>
<%
if not session(Variable&Names)=Variable then
response.redirect "index.asp"
end if
sub compact()
%>
<script language=javascript>
<!--
function checkform1()
{
if(document.form1.dbpath.value=="")
{
alert("数据库路径不能为空");
form1.dbpath.focus()
return false;
}
}
-->
</script>
<table width="65%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="4%"><img src="images/skin/t-tl.gif" width="31" height="29"></td>
<td width="91%" background="images/skin/t-tc.gif"> </td>
<td width="5%"><img src="images/skin/t-tr.gif" width="35" height="29"></td>
</tr>
<tr>
<td background="images/skin/t-lt.gif"> </td>
<td>
<form action="compact.asp" method="post" name="form1" onSubmit="javascript:return checkform1();">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="70%">
<tr>
<td width="50%" height="50%" align="center" valign="top">
<table width="85%" height="45%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#cad6eb" style="border-collapse: collapse">
<tr>
<td height="30" colspan="2" align="center" background="images/skin/t-tc.gif" bgcolor="#F4F6FC">压缩数据库</td>
</tr>
<tr>
<td width="19%" height="30" align="center">数据库路径</td>
<td width="81%"> <input size="30" value="<%=db%>" name="dbpath"></td>
</tr>
<tr>
<td width="19%" height="30" align="center">数据库格式</td>
<td> <input type="radio" value="True" name="boolIs97" id=boolIs97>
Access 97
<input type="radio" value="" name="boolIs97" checked id=boolIs97_1>
Access 2000、2002、2003</td>
</tr><tr>
<td width="19%" height="30" align="center"> </td>
<td> <input type="submit" value="确定压缩">
<input type="reset" value="数据重置"></td>
</tr>
</table><p align="center"><a href="javascript:history.back(-1)">返 回</a></p>
</td>
</tr>
</table>
</form>
</td>
<td background="images/skin/t-rt.gif"> </td>
</tr>
<tr>
<td><img src="images/skin/t-bl.gif" width="31" height="32"></td>
<td background="images/skin/t-bc.gif"></td>
<td><img src="images/skin/t-br.gif" width="35" height="32"></td>
</tr>
</table><%
end sub
sub bak() %>
<script language=javascript>
<!--
function checkform2()
{
if(document.form2.using.value=="")
{
alert("原来的数据库路径不能为空");
form2.using.focus()
return false;
}
if(document.form2.bak.value=="")
{
alert("备份的数据库路径不能为空");
form2.bak.focus()
return false;
}
}
-->
</script>
<table width="65%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="4%"><img src="images/skin/t-tl.gif" width="31" height="29"></td>
<td width="91%" background="images/skin/t-tc.gif"> </td>
<td width="5%"><img src="images/skin/t-tr.gif" width="35" height="29"></td>
</tr>
<tr>
<td background="images/skin/t-lt.gif"> </td>
<td>
<form action="data_fso.asp?action=bakdb" method="post" name="form2" onSubmit="javascript:return checkform2();">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="70%">
<tr>
<td width="50%" height="50%" align="center" valign="top">
<table width="85%" height="45%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#cad6eb" style="border-collapse: collapse">
<tr>
<td height="30" colspan="2" align="center" background="images/skin/t-tc.gif" bgcolor="#F4F6FC">备份数据库</td>
</tr>
<tr>
<td width="29%" height="30" align="center">原来的数据库路径</td>
<td width="71%"> <input type="text" name="using" size="30" value=<%=db%>></td>
</tr>
<tr>
<td width="29%" height="30" align="center">备份的数据库路径</td>
<td> <input type="text" name="bak" size="30" value="backup/<%= date() %>-<%= second(time) %>.mdb"></td>
</tr><tr>
<td width="29%" height="30" align="center"> </td>
<td> <input type="submit" value="确定备份">
<input type="reset" value="数据重置"></td>
</tr>
</table><p align="center"><a href="javascript:history.back(-1)">返 回</a></p>
</td>
</tr>
</table>
</form>
</td>
<td background="images/skin/t-rt.gif"> </td>
</tr>
<tr>
<td><img src="images/skin/t-bl.gif" width="31" height="32"></td>
<td background="images/skin/t-bc.gif"></td>
<td><img src="images/skin/t-br.gif" width="35" height="32"></td>
</tr>
</table>
<%
end sub
sub restore()
%><script language=javascript>
<!--
function checkform3()
{
if(document.form3.using.value=="")
{
alert("原来的数据库路径不能为空");
form3.using.focus()
return false;
}
if(document.form3.bak.value=="")
{
alert("备份的数据库路径不能为空");
form3.bak.focus()
return false;
}
}
-->
</script>
<table width="65%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="4%"><img src="images/skin/t-tl.gif" width="31" height="29"></td>
<td width="91%" background="images/skin/t-tc.gif"> </td>
<td width="5%"><img src="images/skin/t-tr.gif" width="35" height="29"></td>
</tr>
<tr>
<td background="images/skin/t-lt.gif"> </td>
<td>
<form action="data_fso.asp?action=restoredb" method="post" onSubmit="javascript:return checkform3();" name="form3">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="70%">
<tr>
<td width="50%" height="50%" align="center" valign="top">
<table width="85%" height="45%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#cad6eb" style="border-collapse: collapse">
<tr>
<td height="30" colspan="2" align="center" background="images/skin/t-tc.gif" bgcolor="#F4F6FC">恢复数据库</td>
</tr>
<tr>
<td width="29%" height="30" align="center">备份的数据库路径</td>
<td width="71%"> <input type="text" name="bak" size="30" value="backup/数据库名.mdb"></td>
</tr>
<tr>
<td width="29%" height="30" align="center">原来的数据库路径</td>
<td> <input type="text" name="using" size="30" value=<%=db%>></td>
</tr><tr>
<td width="29%" height="30" align="center"> </td>
<td> <input type="submit" value="确定恢复">
<input type="reset" value="数据重置"></td>
</tr>
</table><p align="center"><a href="javascript:history.back(-1)">返 回</a></p>
</td>
</tr>
</table>
</form>
</td>
<td background="images/skin/t-rt.gif"> </td>
</tr>
<tr>
<td><img src="images/skin/t-bl.gif" width="31" height="32"></td>
<td background="images/skin/t-bc.gif"></td>
<td><img src="images/skin/t-br.gif" width="35" height="32"></td>
</tr>
</table><% end sub
Sub ShowSpaceInfo(drvpath)
dim fso,d,size,showsize
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
showsize=size & " Byte"
if size>1024 then
size=(size\1024)
showsize=size & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " GB"
end if
response.write "<font face=verdana>" & showsize & "</font>"
End Sub
Sub Showspecialspaceinfo(method)
dim fso,d,fc,f1,size,showsize,drvpath
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath("pic")
drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
set d=fso.getfolder(drvpath)
if method="All" then
size=d.size
elseif method="Program" then
set fc=d.Files
for each f1 in fc
size=size+f1.size
next
end if
showsize=size & " Byte"
if size>1024 then
size=(size\1024)
showsize=size & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " GB"
end if
response.write "<font face=verdana>" & showsize & "</font>"
end sub
Function Drawbar(drvpath)
dim fso,drvpathroot,d,size,totalsize,barsize
set fso=server.createobject("scripting.filesystemobject")
drvpathroot=server.mappath("pic")
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
barsize=cint((size/totalsize)*400)
Drawbar=barsize
End Function
Function Drawspecialbar()
dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize
set fso=server.createobject("scripting.filesystemobject")
drvpathroot=server.mappath("pic")
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
set fc=d.files
for each f1 in fc
size=size+f1.size
next
barsize=cint((size/totalsize)*400)
Drawspecialbar=barsize
End Function%>
<%
sub diskview()
on error resume next%>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="4%"><img src="images/skin/t-tl.gif" width="31" height="29"></td>
<td width="91%" background="images/skin/t-tc.gif"> </td>
<td width="5%"><img src="images/skin/t-tr.gif" width="35" height="29"></td>
</tr>
<tr>
<td background="images/skin/t-lt.gif"> </td>
<td>
<table width="90%" height="45%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#cad6eb" style="border-collapse: collapse">
<tr>
<td height="30" colspan="2" align="center" background="images/skin/t-tc.gif" bgcolor="#F4F6FC">空间数据统计</td>
</tr>
<tr>
<td width="22%" height="30" align="center">数据库总占用空间</td>
<td width="78%"><img src="images/bar.gif" width=<%=drawbar("db")%> height=10>
<%showSpaceinfo("db")%></td>
</tr>
<tr>
<td width="22%" height="30" align="center">数据备份占用空间</td>
<td><img src="images/bar.gif" width=<%=drawbar("backup")%> height=10>
<%showSpaceinfo("backup")%></td>
</tr>
<tr>
<td width="22%" height="30" align="center">程序文件占用空间</td>
<td><img src="images/bar.gif" width=<%=drawspecialbar%> height=10>
<%showSpecialSpaceinfo("Program")%> </td>
</tr><tr>
<td width="22%" height="30" align="center">图片目录占用空间</td>
<td><img src="images/bar.gif" width=<%=drawbar("images")%> height=10>
<%showSpaceinfo("images")%></td>
</tr>
<tr>
<td width="22%" height="30" align="center">程序占用空间总计</td>
<td><img src="images/voteline.gif" width=250 height=10>
<%showspecialspaceinfo("All")%></td>
</tr></table><p align="center"><a href="javascript:history.back(-1)">返 回</a></p>
</td>
<td background="images/skin/t-rt.gif"> </td>
</tr>
<tr>
<td><img src="images/skin/t-bl.gif" width="31" height="32"></td>
<td background="images/skin/t-bc.gif"> </td>
<td><img src="images/skin/t-br.gif" width="35" height="32"></td>
</tr>
</table><% end sub %>
<!--#include file="bottom.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -