admin_data.asp

南鄂电子商务学校网: 学校概况、校园动态、师资力量、教学成果、师生论坛、友情链接

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="format.asp"-->
<!--#include file="error.asp"-->
<!--#include file="body/incjs.asp"-->
<!--#include file="body/adminmenu.asp"-->
<!--#include file="body/foot.asp"-->
<script language="javascript">
  if(top.frames.length == 0)
  {
    document.location = "login.asp";
  }
  else
  {
    if(parent.ryan_bar)
    {
    }
    else
    {
      parent.location = "login.asp";
    }
  }
</script>
<%
function fsodbback()
	on error resume next
	dim obj_fso,backdbpath
	backdbpath=server.mappath(backdbdir & "/bak_"&right(server.mappath(dbpath),len(server.mappath(dbpath))-instrRev(server.mappath(dbpath),"\")))
	set obj_fso=server.createobject("scripting.filesystemobject")
	obj_fso.copyfile server.mappath(dbpath),backdbpath,true
	set obj_fso=nothing
	if err.number<>0 then
		fsodbback="<font color="&colors(12)&"><b>备份失败，请确保服务器支持FSO，且 "&backdbdir&" 目录可写！</b></font>"
	else
		fsodbback="<font color="&colors(12)&"><b>备份数据库成功，数据库已成功备份到 "&backdbdir&" 目录中！</b></font>"
	end if
end function
function compactdb()
	on error resume next
	dim obj_fso,obj_engine,temppath
	temppath = server.mappath(backdbdir & "/temp_compactdb.tmp")
	Set obj_fso = Server.CreateObject("Scripting.FileSystemObject")
	Set obj_engine = CreateObject("JRO.JetEngine")
	obj_engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(dbpath) ,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & temppath
	obj_fso.CopyFile temppath,server.mappath(dbpath),true
	obj_fso.DeleteFile temppath,true
	Set obj_engine = nothing
	if Err.Number <>0 then
		response.write "<font color="&colors(12)&"><b>压缩失败,可能你的服务器不支持FSO或JRO组件</b></font>"
	else
		response.write "<font color="&colors(12)&"><b>压缩网站数据库成功！</b></font>"
	end if
	set obj_fso=nothing
end function
%>
<!--#include file="body/admintop.asp"-->
<table width="<%=tablewidth%>" align="center" cellpadding=0 cellspacing=0 bgcolor="#FFFFFF" style="border-top:0px;">
  <tr>
		<td width="205" valign="top" class="line"><%call adminmenu()%></td>
		<td valign="top" class="linee" width="565" style="text-align:center"><br><br><br>
			<table width="80%" border="1" cellspacing="0" cellpadding="4" bordercolor="#09DD77" style="border-collapse: collapse">
                <tr >
					<td background="images/dh.gif"><font color="#000000">网站数据库备份</font></td>
				</tr>
				<tr>
					<td><font color="#ff0000"><b>说明：</b></font><br>　　本操作将备份网站数据库到网站所在目录的 databackup 子目录中，必要时可进行恢复。但仍推荐将数据库备份到本地硬盘上。<br><br><font color="#ff0000"><b>注意：</b></font>本次操作需要服务器支持FSO才能顺利完成！</td>
				</tr>
            <%if request.form("act")="backupdb" then%>
            <%=fsodbback()%> 
            <%else%>
				<tr >
					<td align="center"> 
            <form method="post" action="<%=selfname%>" onsubmit="if(confirm('你现在就要备份网站数据库吗？')){return true}else{return false}"><input type="hidden" name="act" value="backupdb"><input type="submit" value="备份数据库" style="width:96px" class="button"></form></td>
				</tr><%end if%>
			</table><br><br><br>
			<table width="80%" border="1" cellspacing="0" cellpadding="4" bordercolor="#09DD77" style="border-collapse: collapse">
                 <tr>
					
          <td background="images/dh.gif"><font color="#000000">网站数据库压缩</font></td>
				</tr>
				<tr>
					<td><font color="#ff0000"><b>说明：</b></font><br>　　本操作将在线压缩网站数据库，且是一个相对较慢的过程。为保证安全，执行本操作前请一定先<b>备份</b>好你的数据库。<font color="#ff0000">强烈建议在网站访问量小的时段压缩数据库！</font><br><br><font color="#ff0000"><b>注意：</b></font><br>　　1。本操作需服务器支持FSO、JRO组件才能顺利完成！<br>　　2。压缩所需时间视数据库大小而定，可能在0.1秒-10秒之间</td>
				</tr>
            <%if request.form("act")="compactdb" then%>
            <%=compactdb()%>
            <%else%>
			<tr>
            <td align="center">
            <form method="post" action="<%=selfname%>" onsubmit="if(confirm('建议在访问量不大时压缩数据库。是否继续？')){return true}else{return false}"><input type="hidden" name="act" value="compactdb"><input type="submit" value="压缩数据库" style="width:96px" class="button"></form></td>
				</tr><%end if%>
			</table><br><br><br>
		</td>
	</tr>
</table>
<%call endpage()%>