📄 borrowbook.asp
字号:
<%'---------------------------------------------------------------
' AspStudio_Codepage="936"
' 上面这行是软件使用的代码页标记，请不要删除。详情请参考帮助文件。
'
' 档案名称：borrowbook.asp
' 原创作者：dan
' 作者邮件：
' 创建日期：星期六，2008年12月06日 18:26:31
' 版权所有(C)Lenovo
'--------------------------------------------------------------%>
<HTML>
<HEAD>
<Title>borrowbook.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD>
<BODY>
<%
'请在这里输入您的ASP代码
Dim rID,bID
Dim sql,rs
rID=Request.Form("rID")
rID=Replace(rID,"'","''",1,-1,vbTextCompare)
bID=Request.Form("bID")
bID=Replace(bID,"'","''",1,-1,vbTextCompare)
if rID="" then
Response.Write("6")
Response.End()
else
end if
if bID="" then
Response.Write("6")
Response.End()
else
end if
Set rs=Session("s_DBConn").Execute("select * from readerTable where rID='"&rID&"'")
'该证号不存在
if rs.EOF then
Response.Write("1")
else
Set rs=Session("s_DBConn").Execute("select * from bookTable where bID='"&bID&"'")
'该书号不存在
if rs.EOF then
Response.Write("2")
else
'该书已经全部借出
if rs("bCntLea")=0 then
Response.Write("5")
else
'该读者已经借阅该书，且未归还
Set rs=Session("s_DBConn").Execute("select * from infoTable where bID='"&bID&"'and rID='"&rID&"'")
if NOT rs.EOF then
Response.Write("4")
else
Dim nowDate,rDate
nowDate=Date()
rDate=DateAdd("m",1,nowDate)
'Response.Write("selete * from infoTable where rID='"&rID&"' and infoDate<#"&nowDate&"#")
'Response.End()
'该读者有超期书未还
Set rs=Session("s_DBConn").Execute("select * from infoTable where rID='"&rID&"' and infoDate< #"&nowDate&"#")
if NOT rs.EOF then
Response.Write("3")
else
sql="insert into infoTable(rID,bID,infoDate) values('"&rID&"','"&bID&"','"&rDate&"')"
'Response.Write(sql)
'Response.End()
Session("s_DBConn").Execute(sql)
Set rs=Session("s_DBConn").Execute("select bCntLea from bookTable where bID='"&bID&"'")
Dim bCntLea
bCntLea=rs("bCntLea")
bCntLea=CInt(bCntLea)
bCntLea=bCntLea-1
sql="update bookTable set bCntLea = '"&bCntLea&"' where bID='"&bID&"'"
'Response.Write(sql)
'Response.End()
Session("s_DBConn").Execute(sql)
Response.Write("0")
end if
end if
end if
end if
end if
rs.Close()
Set rs=Nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -