📄 sk_crm_access_back.asp

📁 为你节约成本,让你的企业在信息时代助上一臂之力!!! 真正做到无纸办公,全自动化信息办公,不受地点的限制,只要你能上网就能随时随地掌握公司动向.
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" --> 
<%
if session("name")="" or session("dd")="" then
Response.Write("<script>alert(""非法登陆，请确认密码的正确性！\n或者已经被管理员锁定！"");history.back();</script>")
response.end
end if
if session("super")="0" then
if session("quanxian")<"3"  then
Response.Write("<script>alert(""对不起,你的权限不够！"");history.back();</script>")
response.end
end if
end if
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.3790.2993" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0">
<LINK href="images/style.css" type=text/css rel=stylesheet>

<TABLE borderColor=#ffffff cellSpacing=0 borderColorDark=#ffffff cellPadding=3 width="100%" borderColorLight=#dfdfdf border=1>
  <TBODY>
  <TR>
    <TD class=td>
      <DIV align=left>您现在的位置：CRM &gt;&gt; 数据管理 &gt;&gt; 备份数据库</DIV></TD></TR></TBODY></TABLE>

<!--备份数据库-->
<form id="formbf" name="formbf" method="post" action="">
<TABLE borderColor=#ffffff cellSpacing=0 borderColorDark=#ffffff cellPadding=3 width="100%" borderColorLight=#dfdfdf border=1>
  <tr><td height="30" colspan="2" align="left">
<%
newaddr=Trim(Request.Form("newaddr"))
newname=Trim(Request.Form("newname"))
oldaddr=Trim(Request.Form("oldaddr"))
oldname=Trim(Request.Form("oldname"))
action=Trim(Request.Form("action"))
if Trim(Request.Form("Submit"))<>"" and action="bf" then
newaddrname=server.MapPath(newaddr&newname)
oldaddrname=server.MapPath(oldaddr&oldname)
'Response.Write newaddrname&"<br/>"
'Response.Write oldaddrname
'备份数据库
Set fso=server.CreateObject("scripting.FileSystemObject")
on error resume next
fso.copyfile oldaddrname,newaddrname
Response.Write("<div align='center'><font color='red'>备份数据库成功 "&newaddrname&"</font></div>")
set fso=nothing
end if

if Trim(Request.Form("Submithy"))<>"" and action="hy" then
newaddrname=server.MapPath(newaddr&newname)
oldaddrname=server.MapPath(oldaddr&oldname)
'原来数据库
Set fso=server.CreateObject("scripting.FileSystemObject")
on error resume next
fso.copyfile newaddrname,oldaddrname
Response.Write("<div align='center'><font color='red'>还原数据库成功 "&oldaddrname&"</font></div>")
set fso=nothing
end if
%>

</td>
  </tr>
    <tr class="addbt">
      <td height="30" colspan="2"><b>备份数据库</b>      </td>
    </tr>
    <tr class="adtd">
      <td width="35%">原路径：
      <input name="oldaddr" type="text" id="oldaddr" value="" size="30" maxlength="30" readonly="true" /></td>
      <td width="65%">备份路径：
      <input name="newaddr" type="text" id="newaddr" value="backupdate/" size="40" maxlength="50" /></td>
    </tr>
    <tr class="adtd">
      <td>原数据：
        <input name="oldname" type="text" id="oldname" value="" size="30" maxlength="40" readonly="true" /></td>
      <td>备份数据：
        <input name="newname" type="text" id="newname" value="<%=date%>.bak" size="40" maxlength="50" /></td>
    </tr>

    <tr>
      <td colspan="2">
        <input name="action" type="hidden" id="action" value="bf" />
        <input name="Submit" type="submit" class="subinput" value="执行备份数据库操作" />
      </td>
    </tr>
  </table>
</form>
<hr color="#B50000"/>
<!--还原数据库-->
<form id="formhy" name="formhy" method="post" action="">
<TABLE borderColor=#ffffff cellSpacing=0 borderColorDark=#ffffff cellPadding=3 width="100%" borderColorLight=#dfdfdf border=1>
    <tr class="addbt">
      <td height="30" colspan="2"><b>还原数据库</b></td>
    </tr>
    <tr class="adtd">
      <td width="35%">目标路径：
        <input name="oldaddr" type="text" id="oldaddr" value="" size="30" maxlength="30" readonly="true" /></td>
      <td width="65%">备份路径：
      <input name="newaddr" type="text" id="newaddr" value="backupdate/" size="40" maxlength="50" /></td>
    </tr>
    <tr class="adtd">
      <td>目标数据：
        <input name="oldname" type="text" id="oldname" value="" size="30" maxlength="40" readonly="true" /></td>
      <td>备份数据：
        <select name="newname" id="newname">
                <%
                showaddr="backupdate/"
                newshowaddr=server.MapPath(showaddr)
                set fso=createobject("scripting.FileSystemObject")
                set fe=fso.Getfolder(newshowaddr)
                for each f in fe.files
                Response.Write "<option value='"&f.Name&"'>"
                Response.Write f.Name&"-"
                Response.Write f.Size&"</option>"
                next
                set fe=nothing
                set fso=nothing
                %>
        </select>
        (时间+原名称) </td>
    </tr>
   <!--  <tr>
      <td colspan="2">
        <input name="action" type="hidden" id="action" value="hy" />
        <input name="Submithy" type="submit" class="subinput" id="Submithy" value="执行还原数据库操作" />      </td>
    </tr> -->
    <tr>
      <td colspan="2">非管理员请不要操作些功能,在操作此功能是请先和相关的同事商量好,防止数据丢失.<br>
        <br>
		下载数据库后请把文件名改成mdb类型即可打开查看.<br>
		<select name="FriendLink" onChange="if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_blank');}">
        <%
                showaddr="backupdate/"
                newshowaddr=server.MapPath(showaddr)
                set fso=createobject("scripting.FileSystemObject")
                set fe=fso.Getfolder(newshowaddr)
                for each f in fe.files
                Response.Write "<option value='backupdate/"&f.Name&"'>"
                Response.Write f.Name&"-"
                Response.Write f.Size&"</option>"
                next
                set fe=nothing
                set fso=nothing
                %>
        </select>
		</td>
    </tr>
  </table>
</form>
💿 文件大小 245 K
👤 上传用户 ASD___1234
📂 所属分类企业管理
🏷️ 相关标签

#节约成本 #信息时代 #正 #全自动
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -