borrow.asp

=== === === === === === === === === 项目：图书管理系统V2.0 作者：覃武权 主页：http://cpucool.512j.com 邮箱：cooltoend

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<!--#include file="global.asp" -->
<% checkUser("user") %>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = Session("bookno")
If (Request.QueryString("bookno") <> "") Then 
  Recordset1__MMColParam = Request.QueryString("bookno")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT bookno,title,[number] FROM Books WHERE bookno = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0

If Recordset1.Fields.Item("number").Value>0 then
	Dim rs,keepDays
	Set rs=executeQuery("SELECT * FROM Loans WHERE cardno = " & Session("cardno") & " ORDER BY date DESC")
	if rs.BOF And rs.EOF then 
		keepDays=0 
	else
		keepDays = maxLoanKeepDays - DateDiff("d",rs("date").Value,now())
	end if
	If keepDays<0 Then
		addLog "","","借书&lt;&lt;"&Recordset1.Fields.Item("title").Value&"&gt;&gt;失败，因为有图书逾期未还"
	Else
		Set rs=executeQuery("select loannum from Borrowers where cardno="&Session("cardno"))
		if rs("loannum")<maxLoanNumber then
			executeUpdate("UPDATE Books SET [number]=[number]-1 WHERE bookno = " + Replace(Recordset1__MMColParam, "'", "''") + "")
			executeUpdate("UPDATE Borrowers SET loannum=loannum+1 WHERE cardno="&Session("cardno"))
			executeUpdate("INSERT INTO Loans (cardno,bookno,title,[date]) Values ("&Session("cardno")&","&Recordset1.Fields.Item("bookno").Value&",'"&Recordset1.Fields.Item("title").Value&"','"&now()&"')")
			addLog "","","借书&lt;&lt;"&Recordset1.Fields.Item("title").Value&"&gt;&gt;成功"
			freshTo "成功借到书名为&lt;&lt;"&Recordset1.Fields.Item("title").Value&"&gt;&gt;的图书！","Bookslist.asp"
		else
			addLog "","","借书&lt;&lt;"&Recordset1.Fields.Item("title").Value&"&gt;&gt;失败，因为借书量超额"
			freshTo "错误！你的借书总量已经达到最大数量（"& maxLoanNumber &"本）！","Bookslist.asp"
		end if
	End If
else
	addLog "","","借书&lt;&lt;"&Recordset1.Fields.Item("title").Value&"&gt;&gt;失败，因为书库已空"
	freshTo "错误！书名为&lt;&lt;"&Recordset1.Fields.Item("title").Value&"&gt;&gt;的图书的库存量为 0 ，无法外借！","Bookslist.asp"
end if 
Recordset1.Close()
Set Recordset1 = Nothing
%>