⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 adminback.asp

📁 一个不错的论坛原代码
💻 ASP
字号:
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->

<body  <%=background%> >

 <% 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 class=tdc>不能建立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 class=tdc>备份数据库成功,您的数据库备份路径为" &backf& "\"& backfy&"</div>"
response.end
end if 

%>
      <table  border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<form name="form1" method="POST" action="?action=do">

    <tr align="center"> 
      <td colspan="2" <%=tColor%> class=tdc1 height=22>
      备份数据库</td>
    </tr>
    <tr align="center"> 
      <td <%=tColor%> class=tdc1 height=22 colspan="2">你的空间只有支持fso才可以进行如下操作,否则你只能手动备份</td>
    </tr>

      <tr>
      <td width="30%" align="right" bgcolor=<%=tColor2%> class=tdc>数据库路径:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="currf" size="20" value="<%=feiyudbq%>"> </td>
    </tr>
    <tr>
      <td width="30%" align="right" bgcolor=<%=tColor2%> class=tdc>备份数据目录:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="backf" size="20" value="data"> </td>
    </tr>

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


<%

 conn.close
set conn=nothing%>

⌨️ 快捷键说明

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