📄 mod_book.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<!--对用户登录身份进行判断，非法用户返回登录页面-->
<%if not session("user_session_id")=Session.SessionID then%>
<SCRIPT LANGUAGE=javascript>
parent.window.location.href="../default.asp"
</SCRIPT>
<%end if%>
<%
if Request.Form("hid")="" then
'接收页面传递过来的书籍编号值
book_id=Request.QueryString("book_id")
%>
<HEAD>
<TITLE>图书馆管理系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../css/scss.css" type=text/css rel=stylesheet>
<style TYPE="text/css">
<!--
.in
{
BORDER-RIGHT: rgb(127,127,127) 1px solid;
BORDER-TOP: rgb(127,127,127) 1px solid;
FONT-SIZE: 9pt;
BORDER-LEFT: rgb(127,127,127) 1px solid;
BORDER-BOTTOM: rgb(127,127,127) 1px solid;
BACKGROUND-COLOR: #ffffff
}
//-->
</STYLE>
</HEAD>
<BODY text=#000000 bgColor=#f7f7f7 leftMargin=0 topMargin=40 >
<DIV ID="commentsboard" CLASS="popcomments"> </DIV>
<center><h4>图书详细信息</h4></center>
<%'获取书籍的信息
sql="select * from library_book where book_id='"&book_id&"'"
set rs=session("cn").execute(sql)
%>
<form name=form1 action=mod_book.asp method=post>
<center>
<table cellspacing=0 cellpadding=0 width=60% border=0>
<tr>
<td valign=middle bgcolor=#f7f7f7 height=30 align=right>
书籍编号：
</td>
<td><%=rs("book_id")%></td>
</tr>
<tr>
<td height=30 valign=middle bgcolor=#f7f7f7 align=right>
书籍名称：
</td>
<td><%=rs("book_name")%></td>
</tr>
<tr>
<td height=30 valign=middle bgcolor=#f7f7f7 align=right>
位置架号：
</td>
<td><%=rs("stand")%>架</td>
</tr>
<tr>
<td height=30 valign=middle bgcolor=#f7f7f7 align=right>
位置层号：
</td>
<td><%=rs("floor")%>层</td>
</tr>
<tr >
<td height=30 valign=middle bgcolor=#f7f7f7 align=right>
图书作者：
</td>
<td><%=rs("book_author")%></td>
</tr>
<tr>
<td height=30 valign=middle bgcolor=#f7f7f7 align=right>
出版社名：
</td>
<td><%=rs("book_concern")%></td>
</tr>
<% '如果图书借阅出去，显示借阅者的信息
if rs("sf_return")="Y" then
sql="select card_id,card_name,lend_time from lend_book"
sql=sql&" where book_id='"&book_id&"' order by id desc"
set led=session("cn").execute(sql)
%>
<tr>
<td height=30 valign=middle bgcolor=#f7f7f7 align=right>
借书卡号：
</td>
<td><%=led("card_id")%></td>
</tr>
<tr>
<td height=30 valign=middle bgcolor=#f7f7f7 align=right>
借者姓名：
</td>
<td><%=led("card_name")%></td>
</tr>
<tr>
<td height=30 valign=middle bgcolor=#f7f7f7 align=right>
借阅时间：
</td>
<td><%=led("lend_time")%></td>
</tr>
<tr valign=middle>
<td height=30 valign=middle bgcolor=#f7f7f7 align=right>
返还图书：
</td>
<td>
<input type=checkbox name=sf_return value="Y" checked>
</td>
</tr>
<%
end if
%>
<tr>
<td height=30 align=middle valign=center
bgcolor=#f7f7f7 colspan=2>
<input type=hidden name=hid value="ok">
<%'书籍借阅出，显示提交书籍的按钮
if rs("sf_return")="Y" then%>
<input type=hidden name=book_id value="<%=book_id%>">
<input type=hidden name=return_time value="<%=date()%>">
<input type=hidden name=card_id value="<%=led("card_id")%>">
<input type=submit name=butt value=" 提交 " class=in >
<%end if%>
<input type=button name=butt value=" 关闭 " class=in
onclick="javascript:window.close()">
</td>
</tr>
</table>
</center>
</form>
</BODY>
</HTML>
<% '接收数据
else
sf_return=Request.Form("sf_return")
book_id=Request.Form("book_id")
return_time=Request.Form("return_time")
card_id=Request.Form("card_id")
if sf_return="Y" then
'返还书籍，更新书籍表和借阅表中的数据
sql="update library_book set sf_return='N' where book_id='"&book_id&"'"
session("cn").execute(sql)
sql="update lend_book set return_time='"&return_time&"'"
sql=sql&" where book_id='"&book_id&"' and card_id='"&card_id&"'"
session("cn").execute(sql)
end if
%>
<SCRIPT LANGUAGE=javascript>
<!--
window.close()
//-->
</SCRIPT>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -