📄 adminback.asp

📁 一个功能很全面占用空间的小商城程序,适合个人网上开店使用

💻 ASP

字号:

<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"--><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=css.css rel=STYLESHEET type=text/css>
<body>

 <% if Request.QueryString("action")="do" then
 currf=request.form("currf")
 currf=server.mappath(currf)
  backf=request.form("backf")
backf=server.mappath(backf)
   backfy=request.form("backfy")
   on error resume next
 Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then 
	err.clear
response.write "<div>不能建立fso对象，请确保你的空间支持fso:！"
response.end
	end if
 if objfso.Folderexists(backf) then
 else
  Set fy=objfso.CreateFolder(backf)
  end if
 objfso.copyfile currf,backf& "\"& backfy
response.write "<div>备份数据库成功，您的数据库备份路径为" &backf& "\"& backfy&"</div>"
response.end
end if 

%>

<form name="form1" method="POST" action="?action=do">
  <table  border="0" cellspacing="1" cellpadding="4"class=tb1 >
    <tr align="center"> 
      <td colspan="2" background=../image/b2.gif  height=22>
      备份数据库</td>
    </tr>
    <tr align="center"> 
      <td height=22 colspan="2" background=../image/b2.gif>你的空间只有支持fso才可以进行如下操作，否则你只能手动备份</td>
    </tr>

      <tr>
      <td width="30%" align="right">数据库路径：</td>
      <td> 
        <input type="text" name="currf" size="30" value="../database/database.asp"> </td>
    </tr>
    <tr>
      <td width="30%" align="right">备份数据目录：</td>
      <td> 
        <input type="text" name="backf" size="30" value="../databack"> </td>
    </tr>

      <tr> 
      <td width="30%" align="right">数据库名称：</td>
      <td> 
        <input type="text" name="backfy" size="30" value="databack.asp"> </td>
    </tr>
    <tr> 
      <td width="20%" align="right">　</td>
      <td  class=tdc> 
        <input type="submit" name="Submit" value="提交">
        <input type="reset" name="Submit2" value="重置">
      </td>
    </tr>
  </table>
  </form>


<%

 conn.close
set conn=nothing%>

</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -