databackup.asp

本软件程序是一个基于WEB的进销存管理平台,代码十分完整,无错!

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../../Connections/backup.asp" -->
<%
if Session("quanxian")="" or Session("quanxian")>"b" or Session("quanxian")<"a" then
	Response.Redirect ("../err.asp")
end if%>

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("id") <> "") Then 
  Recordset1__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_backup_STRING
Recordset1.Source = "SELECT * FROM jxcbackup WHERE id = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<% 
dim backupname,curpass
backupname = recordset1("backupname")
curpass = server.MapPath("123.asp")
curpass=Left(curpass, InStrRev(curpass, "\71base\"))
curpass = curpass & "jxcdb\" & "jxc.mdb"
Set objmyfso = Server.CreateObject("scripting.filesystemobject")'objmyfso.copyfile backupname,curpass
objmyfso.copyfile backupname, curpass
Set objmyfso = Nothing

response.Redirect("backup.asp")

 %>
<%= backupname %> <%= curpass %>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>