deleteborrow.asp

图书管管理系统

<!--#include file="Conn.asp"-->
<%	
	Dim id
	Dim ISBN
	
	ISBN=Request("ISBN")
	id	=	Request("id")
	
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Sql="Select * From borrowlist Where id="&id
	Rs.Open Sql,conn,3,3 
				
	Rs.Delete
	Rs.Update
	Rs.Close
	Set Rs=nothing
	
	Set Rs1 = Server.CreateObject("ADODB.RecordSet")
			Sql1="Select * From bookInfo where ISBN = '"&ISBN&"'"
			Rs1.Open Sql1,conn,3,3
			
			Rs1("remain") = Rs1("remain") + 1
		    Rs1.Update
			id=Rs1("id")
		    Rs1.Close
		    Set Rs1 = nothing 
            Conn.close
		    Set Conn=nothing
	     Response.Redirect "AdminBorrow.asp"
%>