databackupdel.asp

来自「本软件程序是一个基于WEB的进销存管理平台,代码十分完整,无错!」· ASP 代码 · 共 41 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#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 = 3
Recordset1.Open()
delpath = Recordset1("backupname")
Set GoDelFile = Server.CreateObject("Scripting.FileSystemObject")
    If GoDelFile.FileExists(delpath) Then
        GoDelFile.DeleteFile (delpath)
    End If
    Set GoDelFile = Nothing
	Recordset1.Delete
Recordset1_numRows = 0
%>

<%
response.Redirect("backup.asp")
Recordset1.Close()
Set Recordset1 = Nothing
%>