📄 borrow1.asp

📁 我的课程设计

💻 ASP

字号:

<html>
<!--#include file="ADOFunctions.asp"-->
<!--#include file="conn.asp"-->

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link rel="stylesheet" href="css/admin.css" type="text/css">
</head>
<%
     Dim rs1,strsql,bookno
	 cardn=session("cardnumber")
	 bookno1=request.QueryString("id")
	 strsql="Select * From books Where bookno='" & bookno1 & "'"
     strsql2="Select lendno From borrowers Where cardno='" & session("cardnumber") & "'"

     Set rs1=GetRecordset("BOOK.mdb","loans")
	 set rs=GetSQLRecordset(strsql,"book.mdb","books")
     set rs2=GetSQLRecordset(strsql2,"book.mdb","borrowers")
     booktitle1=rs("title")
	 booknumber=rs("number")
	 if  (rs("number"))<=0 or (rs2("lendno"))>=10 then 	
		response.Write("此书已经没有库存或者你借阅已经超过了10本!请检查!")
	 else
	 date1=now()
	 booknumber=booknumber-1
     rs("number")=booknumber
	 rs1.Addnew 
	 rs1("cardno")=cardn
	 rs1("bookno")=bookno1
	 rs1("title")=booktitle1
	 rs1("date")=date1
     rs1.update
	 rs.update
	 rs.close
	 rs1.Close
	 Set rs1=Nothing
	 set rs=nothing

	 db.execute("UPDATE borrowers SET lendno=lendno+1 WHERE cardno='" &cardn&"'")
	 response.Write("此书借阅成功!")
	 end if
	 %>
	 
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -