<!DOCTYPE html>
<%@ language="vbscript" codepage="936" %>
<%
'========================================================================================
' 文 件 名: admin_bakdata.asp
' 版    本: 岭峰网行业专用留言系统3.10.0 (LFMessS 2020 - 3.10.0.F Build 200604)
' 说    明: 数据库备份文件 | 请勿自行修改该处文件源代码，以确保程序正确的执行
' 文件日期: 2020-06-04
' 设 计 者: 疾风之狼
'========================================================================================
' 郑州文达岭峰网络科技有限公司.
'========================================================================================
' Copyright (C) 2001-2020 岭峰网. All rights reserved.
' 网    站: http://www.lfmesss.com
' 电子邮件: support@lfmesss.com
' 联系ＱＱ: 85112407
'========================================================================================
%>
<!-- #include file="../common/sub_inc.asp" -->
<!-- #include file="../common/commfun.asp" -->
<!-- #include file="../common/ip_purview.asp" -->
<!-- #include file="../common/connect.asp" -->
<%flg = "man"%>
<!-- #include file="../common/purview.asp" -->
<%
n = Year(date())
y = Month(date())
r = Day(date())
s = Hour(time())
f = Minute(time())
IF Len(y) = 1 Then y = "0" & y
IF Len(r) = 1 Then r = "0" & r
IF Len(s) = 1 Then s = "0" & s
IF Len(f) = 1 Then f = "0" & f
nowsj = LingFengNet_MS_language_bakdata_mes_10 & n & "-"& y &"-"& r &"-"& s&f
%>
<head>
<title><%= LingFengNet_MS_language_title_bakdata %></title>
<%  
Call htmlmeta() 
%> 
<link rel="stylesheet" href="../style/css/<%= LingFengNet_MS_web_css %>.css" type="text/css">
<link rel="shortcut icon" href="../pic/favicon.ico" type="image/x-icon">
<link rel="bookmark" href="../pic/favicon.ico" type="image/x-icon">
</head>
<body onkeydown="EnableKey()" >
<%
Call htmltop()
Call htmlbr()
Call htmladminmen()
Call htmlbr()
%>
<table width="<%= LingFengNet_MS_web_w %>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td class="bgc2"> 
      <table width="100%" border="0" cellspacing="1" cellpadding="3">
        <tr class="bgc"> 
          <td height=20 width=25% class="bgc">
            <table width=95% cellspacing=0 cellpadding=0 align="center" >
              <tr> 
                <td height=25 > &ensp;&ensp;<b><br>
                  <%= LingFengNet_MS_language_bakdata_mes_1 %></b>( <%= LingFengNet_MS_language_bakdata_mes_2 %> )<br>
                </td>
              </tr>
              <%
IF IsObjInstalled("Scripting.FileSystemObject") Then
	Dim method
	method = Request.Querystring("method")
	IF method = "" Then 
%>
              <form method="post" action="admin_bakdata<%= Get_Suffix() %>?method=Backup">
                <tr> 
                  <td height="100"> &ensp;&ensp;<br>
                    <%= LingFengNet_MS_language_bakdata_mes_3 %>:  
                    <input type=text size=30 name=DBpath value="<%= nowsj %>">&ensp;&ensp;<input type=submit value="<%= LingFengNet_MS_language_bakdata_mes_sub %>" class="buttonface">
                    <br>
                    <br>
                    <p>&ensp;&ensp;<%= LingFengNet_MS_language_bakdata_mes_4 %><br>
                      <br>
                      &ensp;&ensp;<%= LingFengNet_MS_language_bakdata_mes_5 %><br>
                      <br>
                      &ensp;&ensp;<%= LingFengNet_MS_language_bakdata_mes_6 %></p>
                    <p>&ensp;</p>
                  </td>
                </tr>
              </form>
<%
	ElseIF method = "Backup" Then 
		Dbpath = Trim(Request.Form("Dbpath"))
		IF chkfname(Dbpath) = 1 Then ErrAlt(""& LingFengNet_MS_language_Warning_bakdata_1 & "")
		Dbpathys = "#" & Dbpath & ".asp"
		Dbpath = "../data/" & Dbpathys
		Dbpath = Server.Mappath(Dbpath) 
		db2 = Server.Mappath(dbnow)
		Set Fso = Server.Createobject("Scripting.FileSystemObject")
		Fso.copyfile db2, dbpath, True
		logstr = LingFengNet_MS_language_Warning_bakdata_3 & Dbpathys
		Call logtodo(logstr, 1, "ok")
		Response.Write "<tr><td height=25><br><br><li>"& LingFengNet_MS_language_Warning_bakdata_2 & Dbpath & "<br><br><br></td></tr>"
		Set Fso = Nothing
	End IF
Else
%>
              <tr> 
                <td height="30">
                  <li>&ensp;&ensp;<%= LingFengNet_MS_language_bakdata_mes_7 %><b>FSO</b><%= LingFengNet_MS_language_bakdata_mes_8 %>。
                </td>
              </tr>
              <%End IF%>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="<%= LingFengNet_MS_web_w %>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> </td>
  </tr>
</table>
</body>
</html>
<%
Call htmlbr()
Call htmlend()
Function chkfname(fn)
	Dim chk2
	chk2 = 0
	IF Instr(fn, "/") <> 0 Then chk2 = 1
	IF Instr(fn, "\") <> 0 Then chk2 = 1
	IF Instr(fn, "|") <> 0 Then chk2 = 1
	IF Instr(fn, "*") <> 0 Then chk2 = 1
	IF Instr(fn, """") <> 0 Then chk2 = 1
	IF Instr(fn, ":") <> 0 Then chk2 = 1
	IF Instr(fn, "?") <> 0 Then chk2 = 1
	IF Instr(fn, ">") <> 0 Then chk2 = 1
	IF Instr(fn, "<") <> 0 Then chk2 = 1
	IF Instr(fn, ".") <> 0 Then chk2 = 1
	chkfname = chk2
End Function
Sub ErrAlt(says)
	Response.Write "<html><head><meta http-equiv=Content-Type content=text/html;charset="& LingFengNet_MS_language_meta_mes_1 &"></head><body><script>alert('"& says &"');history.go(-1);</script></body></html>"
	Response.End
End Sub
%>