del_book.asp
来自「本文件为ASP开发的图书馆管理系统,开发环境为ASP,创新数据时按照"图书馆管理」· ASP 代码 · 共 41 行
ASP
41 行
<%@ 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%>
<%'没有提交数据显示页面信息
book_id=Request.QueryString("book_id")
'查询此书的情况
sql="select sf_return from library_book where book_id='"&book_id&"'"
set rs=session("cn").execute(sql)
if rs(0)="Y" then
'图书已经借阅出去
%>
<SCRIPT LANGUAGE=javascript>
<!--
alert("图书已经借阅出去,不能删除图书的信息!");
window.close()
//-->
</SCRIPT>
<%
else
'删除图书的信息,和曾经借阅此图书的信息
sql="delete from library_book where book_id='"&book_id&"'"
session("cn").execute(sql)
sql="delete from lend_book where book_id='"&book_id&"'"
session("cn").execute(sql)
end if
%>
<SCRIPT LANGUAGE=javascript>
<!--
alert("图书信息已经删除!");
window.close()
//-->
</SCRIPT>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?