restore.asp

来自「我的课程设计」· ASP 代码 · 共 22 行

<!--#include file="conn.asp" -->
<!--#include file="ADOFunctions.asp"-->
<link rel="stylesheet" href="css/admin.css" type="text/css">
<%
	if  (session("username")="") then 	
		response.Redirect("index.asp")
	end if
%>
<%
    bookno1=request.QueryString("id")
	sql = "Select cardno From loans WHERE bookno='" & bookno1 & "'"
	set rs=GetSQLRecordset(sql,"book.mdb","loans")
	cardno = rs("cardno")
	string1="UPDATE books SET [number]=[number]+1 WHERE bookno='" & bookno1&"'"
	db.execute(string1)
	db.execute("UPDATE borrowers SET lendno=lendno-1 WHERE cardno='" &session("cardnumber")&"'")
	db.execute("Delete From loans WHERE bookno='" & bookno1&"'" )
	Response.Write("编号为“"&bookno1&"”的图书已经回收。")
	
%>